home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / JaPa / Kkp.exe / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Text File  |  1999-01-05  |  26KB  |  1,104 lines
  1. object Form1: TForm1
  2.   Left = 146
  3.   Top = 176
  4.   Width = 800
  5.   Height = 600
  6.   HorzScrollBar.Visible = False
  7.   VertScrollBar.Visible = False
  8.   Caption = 'Komputerowy Katalog P∩┐╜yt 1998'
  9.   Color = clTeal
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   Menu = MainMenu1
  16.   Position = poDefault
  17.   OnClose = FormClose
  18.   OnResize = FormResize
  19.   OnShow = FormShow
  20.   PixelsPerInch = 96
  21.   TextHeight = 16
  22.   object Background1: TBackground
  23.     Left = 0
  24.     Top = 2
  25.     Width = 828
  26.     Height = 552
  27.     Align = alClient
  28.     Color1 = clWhite
  29.     Color2 = clBlack
  30.     BackStyle = bgTileBitmap
  31.   end
  32.   object Label1: TLabelEffect
  33.     Left = 0
  34.     Top = 7
  35.     Width = 828
  36.     Height = 36
  37.     ColourHighlight = clBlack
  38.     GraduateFrom = clBlack
  39.     ColourScheme = csCustom
  40.     Alignment = taCenter
  41.     Caption = 'Komputerowy  Katalog  P∩┐╜yt  1998'
  42.     Color = clBlack
  43.     Font.Color = clYellow
  44.     Font.Height = -27
  45.     Font.Name = 'Times New Roman'
  46.     Font.Style = []
  47.     ParentColor = False
  48.     ParentFont = False
  49.   end
  50.   object Label2: TLabelEffect
  51.     Left = 0
  52.     Top = 39
  53.     Width = 828
  54.     Height = 22
  55.     DepthShadow = 5
  56.     DirectionHighlight = edDownRight
  57.     ColourHighlight = clBlack
  58.     GraduateFrom = clWindowText
  59.     EffectStyle = esFlying
  60.     ColourScheme = csCustom
  61.     Alignment = taCenter
  62.     Caption = 'Wybranie pierwszej litery nazwy u∩┐╜atwi odnalezienie wykonawcy'
  63.     Color = clBlack
  64.     Font.Color = clYellow
  65.     Font.Height = -13
  66.     Font.Name = 'Arial'
  67.     Font.Style = []
  68.     ParentColor = False
  69.     ParentFont = False
  70.   end
  71.   object Bevel1: TBevel
  72.     Left = 0
  73.     Top = 0
  74.     Width = 828
  75.     Height = 2
  76.     Align = alTop
  77.     Shape = bsTopLine
  78.   end
  79.   object DLabel1: TLabelEffect
  80.     Left = 232
  81.     Top = 508
  82.     Width = 261
  83.     Height = 33
  84.     ColourHighlight = clBlack
  85.     GraduateFrom = clWindowText
  86.     ColourScheme = csCustom
  87.     Alignment = taCenter
  88.     Caption = 'DLabel1'
  89.     Color = clBlack
  90.     Font.Color = clYellow
  91.     Font.Height = -13
  92.     Font.Name = 'MS Sans Serif'
  93.     Font.Style = []
  94.     ParentColor = False
  95.     ParentFont = False
  96.   end
  97.   object DBGrid1: TBSDBGrid
  98.     Left = 12
  99.     Top = 96
  100.     Width = 185
  101.     Height = 409
  102.     Color = clBtnFace
  103.     Ctl3D = True
  104.     DataSource = dsWykonawca2
  105.     FixedColor = clYellow
  106.     Font.Color = clBlack
  107.     Font.Height = -12
  108.     Font.Name = 'MS Sans Serif'
  109.     Font.Style = []
  110.     Options = [dgTitles, dgIndicator, dgColumnResize, dgConfirmDelete, dgCancelOnExit]
  111.     ParentCtl3D = False
  112.     ParentFont = False
  113.     TabOrder = 0
  114.     TitleFont.Color = clRed
  115.     TitleFont.Height = -12
  116.     TitleFont.Name = 'Arial'
  117.     TitleFont.Style = []
  118.     Cellstyle = csNone
  119.   end
  120.   object DBGrid2: TBSDBGrid
  121.     Left = 208
  122.     Top = 96
  123.     Width = 213
  124.     Height = 409
  125.     Color = clBtnFace
  126.     DataSource = dsPlyty
  127.     FixedColor = clYellow
  128.     Font.Color = clWindowText
  129.     Font.Height = -13
  130.     Font.Name = 'System'
  131.     Font.Style = []
  132.     Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgConfirmDelete, dgCancelOnExit]
  133.     ParentFont = False
  134.     TabOrder = 1
  135.     TitleFont.Color = clRed
  136.     TitleFont.Height = -12
  137.     TitleFont.Name = 'Arial'
  138.     TitleFont.Style = []
  139.     Cellstyle = csNone
  140.   end
  141.   object DBGrid3: TBSDBGrid
  142.     Left = 432
  143.     Top = 96
  144.     Width = 201
  145.     Height = 409
  146.     Color = clBtnFace
  147.     DataSource = dsUtwory
  148.     FixedColor = clYellow
  149.     Font.Color = clBlack
  150.     Font.Height = -12
  151.     Font.Name = 'MS Sans Serif'
  152.     Font.Style = []
  153.     Options = [dgEditing, dgTitles, dgColumnResize, dgConfirmDelete, dgCancelOnExit]
  154.     ParentFont = False
  155.     TabOrder = 2
  156.     TitleFont.Color = clRed
  157.     TitleFont.Height = -12
  158.     TitleFont.Name = 'Arial'
  159.     TitleFont.Style = []
  160.     Cellstyle = csNone
  161.   end
  162.   object Button1: TColorButton
  163.     Left = 12
  164.     Top = 508
  165.     Width = 213
  166.     Height = 29
  167.     Hint = 'Przejd∩┐╜ do okna wyszukiwania'
  168.     BevelSize = 1
  169.     Caption = 'Wyszukiwanie'
  170.     Color = clTeal
  171.     Font.Color = clYellow
  172.     Font.Height = -13
  173.     Font.Name = 'MS Sans Serif'
  174.     Font.Style = []
  175.     Style = [bsCenter, bsShowFocus, bsShowKey]
  176.     TabOrder = 3
  177.     TabStop = True
  178.     OnClick = Button1Click
  179.   end
  180.   object Button2: TColorButton
  181.     Left = 500
  182.     Top = 508
  183.     Width = 201
  184.     Height = 29
  185.     Hint = 'Zako∩┐╜cz prac∩┐╜ programu'
  186.     BevelSize = 1
  187.     Caption = 'Koniec pracy'
  188.     Color = clTeal
  189.     Font.Color = clYellow
  190.     Font.Height = -13
  191.     Font.Name = 'MS Sans Serif'
  192.     Font.Style = []
  193.     Style = [bsCenter, bsShowFocus, bsShowKey]
  194.     TabOrder = 4
  195.     TabStop = True
  196.     OnClick = Button2Click
  197.   end
  198.   object b_wszystkie: TColorButton
  199.     Left = 8
  200.     Top = 56
  201.     Width = 97
  202.     Height = 25
  203.     Hint = 'Wczytaj pe∩┐╜n∩┐╜ list∩┐╜ wykonawc∩┐╜w'
  204.     BevelSize = 1
  205.     Caption = 'Wszystkie'
  206.     Color = clTeal
  207.     Font.Color = clYellow
  208.     Font.Height = -11
  209.     Font.Name = 'MS Sans Serif'
  210.     Font.Style = []
  211.     Style = [bsCenter, bsShowFocus, bsShowKey]
  212.     TabOrder = 5
  213.     TabStop = True
  214.     OnClick = b_wszystkieClick
  215.   end
  216.   object b_a: TColorButton
  217.     Left = 104
  218.     Top = 56
  219.     Width = 25
  220.     Height = 25
  221.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ A'
  222.     BevelSize = 1
  223.     Caption = 'A'
  224.     Color = clTeal
  225.     Font.Color = clYellow
  226.     Font.Height = -13
  227.     Font.Name = 'MS Sans Serif'
  228.     Font.Style = []
  229.     Style = [bsCenter, bsShowFocus, bsShowKey]
  230.     TabOrder = 6
  231.     TabStop = True
  232.     OnClick = b_aClick
  233.   end
  234.   object b_b: TColorButton
  235.     Left = 128
  236.     Top = 56
  237.     Width = 25
  238.     Height = 25
  239.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ B'
  240.     BevelSize = 1
  241.     Caption = 'B'
  242.     Color = clTeal
  243.     Font.Color = clYellow
  244.     Font.Height = -13
  245.     Font.Name = 'MS Sans Serif'
  246.     Font.Style = []
  247.     Style = [bsCenter, bsShowFocus, bsShowKey]
  248.     TabOrder = 7
  249.     TabStop = True
  250.     OnClick = b_bClick
  251.   end
  252.   object b_c: TColorButton
  253.     Left = 152
  254.     Top = 56
  255.     Width = 25
  256.     Height = 25
  257.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ C'
  258.     BevelSize = 1
  259.     Caption = 'C'
  260.     Color = clTeal
  261.     Font.Color = clYellow
  262.     Font.Height = -13
  263.     Font.Name = 'MS Sans Serif'
  264.     Font.Style = []
  265.     Style = [bsCenter, bsShowFocus, bsShowKey]
  266.     TabOrder = 8
  267.     TabStop = True
  268.     OnClick = b_cClick
  269.   end
  270.   object b_d: TColorButton
  271.     Left = 176
  272.     Top = 56
  273.     Width = 25
  274.     Height = 25
  275.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ D'
  276.     BevelSize = 1
  277.     Caption = 'D'
  278.     Color = clTeal
  279.     Font.Color = clYellow
  280.     Font.Height = -13
  281.     Font.Name = 'MS Sans Serif'
  282.     Font.Style = []
  283.     Style = [bsCenter, bsShowFocus, bsShowKey]
  284.     TabOrder = 9
  285.     TabStop = True
  286.     OnClick = b_dClick
  287.   end
  288.   object b_e: TColorButton
  289.     Left = 200
  290.     Top = 56
  291.     Width = 25
  292.     Height = 25
  293.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ E'
  294.     BevelSize = 1
  295.     Caption = 'E'
  296.     Color = clTeal
  297.     Font.Color = clYellow
  298.     Font.Height = -13
  299.     Font.Name = 'MS Sans Serif'
  300.     Font.Style = []
  301.     Style = [bsCenter, bsShowFocus, bsShowKey]
  302.     TabOrder = 10
  303.     TabStop = True
  304.     OnClick = b_eClick
  305.   end
  306.   object b_f: TColorButton
  307.     Left = 224
  308.     Top = 56
  309.     Width = 25
  310.     Height = 25
  311.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ F'
  312.     BevelSize = 1
  313.     Caption = 'F'
  314.     Color = clTeal
  315.     Font.Color = clYellow
  316.     Font.Height = -13
  317.     Font.Name = 'MS Sans Serif'
  318.     Font.Style = []
  319.     Style = [bsCenter, bsShowFocus, bsShowKey]
  320.     TabOrder = 11
  321.     TabStop = True
  322.     OnClick = b_fClick
  323.   end
  324.   object b_g: TColorButton
  325.     Left = 248
  326.     Top = 56
  327.     Width = 25
  328.     Height = 25
  329.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ G'
  330.     BevelSize = 1
  331.     Caption = 'G'
  332.     Color = clTeal
  333.     Font.Color = clYellow
  334.     Font.Height = -13
  335.     Font.Name = 'MS Sans Serif'
  336.     Font.Style = []
  337.     Style = [bsCenter, bsShowFocus, bsShowKey]
  338.     TabOrder = 12
  339.     TabStop = True
  340.     OnClick = b_gClick
  341.   end
  342.   object b_h: TColorButton
  343.     Left = 272
  344.     Top = 56
  345.     Width = 25
  346.     Height = 25
  347.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ H'
  348.     BevelSize = 1
  349.     Caption = 'H'
  350.     Color = clTeal
  351.     Font.Color = clYellow
  352.     Font.Height = -13
  353.     Font.Name = 'MS Sans Serif'
  354.     Font.Style = []
  355.     Style = [bsCenter, bsShowFocus, bsShowKey]
  356.     TabOrder = 13
  357.     TabStop = True
  358.     OnClick = b_hClick
  359.   end
  360.   object b_i: TColorButton
  361.     Left = 296
  362.     Top = 56
  363.     Width = 25
  364.     Height = 25
  365.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ I'
  366.     BevelSize = 1
  367.     Caption = 'I'
  368.     Color = clTeal
  369.     Font.Color = clYellow
  370.     Font.Height = -13
  371.     Font.Name = 'MS Sans Serif'
  372.     Font.Style = []
  373.     Style = [bsCenter, bsShowFocus, bsShowKey]
  374.     TabOrder = 14
  375.     TabStop = True
  376.     OnClick = b_iClick
  377.   end
  378.   object b_j: TColorButton
  379.     Left = 320
  380.     Top = 56
  381.     Width = 25
  382.     Height = 25
  383.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ J'
  384.     BevelSize = 1
  385.     Caption = 'J'
  386.     Color = clTeal
  387.     Font.Color = clYellow
  388.     Font.Height = -13
  389.     Font.Name = 'MS Sans Serif'
  390.     Font.Style = []
  391.     Style = [bsCenter, bsShowFocus, bsShowKey]
  392.     TabOrder = 15
  393.     TabStop = True
  394.     OnClick = b_jClick
  395.   end
  396.   object b_k: TColorButton
  397.     Left = 344
  398.     Top = 56
  399.     Width = 25
  400.     Height = 25
  401.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ K'
  402.     BevelSize = 1
  403.     Caption = 'K'
  404.     Color = clTeal
  405.     Font.Color = clYellow
  406.     Font.Height = -13
  407.     Font.Name = 'MS Sans Serif'
  408.     Font.Style = []
  409.     Style = [bsCenter, bsShowFocus, bsShowKey]
  410.     TabOrder = 16
  411.     TabStop = True
  412.     OnClick = b_kClick
  413.   end
  414.   object b_l: TColorButton
  415.     Left = 368
  416.     Top = 56
  417.     Width = 25
  418.     Height = 25
  419.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ L'
  420.     BevelSize = 1
  421.     Caption = 'L'
  422.     Color = clTeal
  423.     Font.Color = clYellow
  424.     Font.Height = -13
  425.     Font.Name = 'MS Sans Serif'
  426.     Font.Style = []
  427.     Style = [bsCenter, bsShowFocus, bsShowKey]
  428.     TabOrder = 17
  429.     TabStop = True
  430.     OnClick = b_lClick
  431.   end
  432.   object b_m: TColorButton
  433.     Left = 392
  434.     Top = 56
  435.     Width = 25
  436.     Height = 25
  437.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ M'
  438.     BevelSize = 1
  439.     Caption = 'M'
  440.     Color = clTeal
  441.     Font.Color = clYellow
  442.     Font.Height = -13
  443.     Font.Name = 'MS Sans Serif'
  444.     Font.Style = []
  445.     Style = [bsCenter, bsShowFocus, bsShowKey]
  446.     TabOrder = 18
  447.     TabStop = True
  448.     OnClick = b_mClick
  449.   end
  450.   object b_n: TColorButton
  451.     Left = 416
  452.     Top = 56
  453.     Width = 25
  454.     Height = 25
  455.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ N'
  456.     BevelSize = 1
  457.     Caption = 'N'
  458.     Color = clTeal
  459.     Font.Color = clYellow
  460.     Font.Height = -13
  461.     Font.Name = 'MS Sans Serif'
  462.     Font.Style = []
  463.     Style = [bsCenter, bsShowFocus, bsShowKey]
  464.     TabOrder = 19
  465.     TabStop = True
  466.     OnClick = b_nClick
  467.   end
  468.   object b_o: TColorButton
  469.     Left = 440
  470.     Top = 56
  471.     Width = 25
  472.     Height = 25
  473.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ O'
  474.     BevelSize = 1
  475.     Caption = 'O'
  476.     Color = clTeal
  477.     Font.Color = clYellow
  478.     Font.Height = -13
  479.     Font.Name = 'MS Sans Serif'
  480.     Font.Style = []
  481.     Style = [bsCenter, bsShowFocus, bsShowKey]
  482.     TabOrder = 20
  483.     TabStop = True
  484.     OnClick = b_oClick
  485.   end
  486.   object b_p: TColorButton
  487.     Left = 464
  488.     Top = 56
  489.     Width = 25
  490.     Height = 25
  491.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ P'
  492.     BevelSize = 1
  493.     Caption = 'P'
  494.     Color = clTeal
  495.     Font.Color = clYellow
  496.     Font.Height = -13
  497.     Font.Name = 'MS Sans Serif'
  498.     Font.Style = []
  499.     Style = [bsCenter, bsShowFocus, bsShowKey]
  500.     TabOrder = 21
  501.     TabStop = True
  502.     OnClick = AClick
  503.   end
  504.   object b_q: TColorButton
  505.     Left = 488
  506.     Top = 56
  507.     Width = 25
  508.     Height = 25
  509.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ Q'
  510.     BevelSize = 1
  511.     Caption = 'Q'
  512.     Color = clTeal
  513.     Font.Color = clYellow
  514.     Font.Height = -13
  515.     Font.Name = 'MS Sans Serif'
  516.     Font.Style = []
  517.     Style = [bsCenter, bsShowFocus, bsShowKey]
  518.     TabOrder = 22
  519.     TabStop = True
  520.     OnClick = AClick
  521.   end
  522.   object b_r: TColorButton
  523.     Left = 512
  524.     Top = 56
  525.     Width = 25
  526.     Height = 25
  527.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ R'
  528.     BevelSize = 1
  529.     Caption = 'R'
  530.     Color = clTeal
  531.     Font.Color = clYellow
  532.     Font.Height = -13
  533.     Font.Name = 'MS Sans Serif'
  534.     Font.Style = []
  535.     Style = [bsCenter, bsShowFocus, bsShowKey]
  536.     TabOrder = 23
  537.     TabStop = True
  538.     OnClick = AClick
  539.   end
  540.   object b_s: TColorButton
  541.     Left = 536
  542.     Top = 56
  543.     Width = 25
  544.     Height = 25
  545.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ S'
  546.     BevelSize = 1
  547.     Caption = 'S'
  548.     Color = clTeal
  549.     Font.Color = clYellow
  550.     Font.Height = -13
  551.     Font.Name = 'MS Sans Serif'
  552.     Font.Style = []
  553.     Style = [bsCenter, bsShowFocus, bsShowKey]
  554.     TabOrder = 24
  555.     TabStop = True
  556.     OnClick = AClick
  557.   end
  558.   object b_t: TColorButton
  559.     Left = 560
  560.     Top = 56
  561.     Width = 25
  562.     Height = 25
  563.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ T'
  564.     BevelSize = 1
  565.     Caption = 'T'
  566.     Color = clTeal
  567.     Font.Color = clYellow
  568.     Font.Height = -13
  569.     Font.Name = 'MS Sans Serif'
  570.     Font.Style = []
  571.     Style = [bsCenter, bsShowFocus, bsShowKey]
  572.     TabOrder = 25
  573.     TabStop = True
  574.     OnClick = AClick
  575.   end
  576.   object b_u: TColorButton
  577.     Left = 584
  578.     Top = 56
  579.     Width = 25
  580.     Height = 25
  581.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ U'
  582.     BevelSize = 1
  583.     Caption = 'U'
  584.     Color = clTeal
  585.     Font.Color = clYellow
  586.     Font.Height = -13
  587.     Font.Name = 'MS Sans Serif'
  588.     Font.Style = []
  589.     Style = [bsCenter, bsShowFocus, bsShowKey]
  590.     TabOrder = 26
  591.     TabStop = True
  592.     OnClick = AClick
  593.   end
  594.   object b_v: TColorButton
  595.     Left = 608
  596.     Top = 56
  597.     Width = 25
  598.     Height = 25
  599.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ V'
  600.     BevelSize = 1
  601.     Caption = 'V'
  602.     Color = clTeal
  603.     Font.Color = clYellow
  604.     Font.Height = -13
  605.     Font.Name = 'MS Sans Serif'
  606.     Font.Style = []
  607.     Style = [bsCenter, bsShowFocus, bsShowKey]
  608.     TabOrder = 27
  609.     TabStop = True
  610.     OnClick = AClick
  611.   end
  612.   object b_w: TColorButton
  613.     Left = 632
  614.     Top = 56
  615.     Width = 25
  616.     Height = 25
  617.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ W'
  618.     BevelSize = 1
  619.     Caption = 'W'
  620.     Color = clTeal
  621.     Font.Color = clYellow
  622.     Font.Height = -13
  623.     Font.Name = 'MS Sans Serif'
  624.     Font.Style = []
  625.     Style = [bsCenter, bsShowFocus, bsShowKey]
  626.     TabOrder = 28
  627.     TabStop = True
  628.     OnClick = AClick
  629.   end
  630.   object b_x: TColorButton
  631.     Left = 656
  632.     Top = 56
  633.     Width = 25
  634.     Height = 25
  635.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ X'
  636.     BevelSize = 1
  637.     Caption = 'X'
  638.     Color = clTeal
  639.     Font.Color = clYellow
  640.     Font.Height = -13
  641.     Font.Name = 'MS Sans Serif'
  642.     Font.Style = []
  643.     Style = [bsCenter, bsShowFocus, bsShowKey]
  644.     TabOrder = 29
  645.     TabStop = True
  646.     OnClick = AClick
  647.   end
  648.   object b_y: TColorButton
  649.     Left = 680
  650.     Top = 56
  651.     Width = 25
  652.     Height = 25
  653.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ Y'
  654.     BevelSize = 1
  655.     Caption = 'Y'
  656.     Color = clTeal
  657.     Font.Color = clYellow
  658.     Font.Height = -13
  659.     Font.Name = 'MS Sans Serif'
  660.     Font.Style = []
  661.     Style = [bsCenter, bsShowFocus, bsShowKey]
  662.     TabOrder = 30
  663.     TabStop = True
  664.     OnClick = AClick
  665.   end
  666.   object b_z: TColorButton
  667.     Left = 704
  668.     Top = 56
  669.     Width = 25
  670.     Height = 25
  671.     Hint = 'Wczytaj wykonawc∩┐╜w na liter∩┐╜ Z'
  672.     BevelSize = 1
  673.     Caption = 'Z'
  674.     Color = clTeal
  675.     Font.Color = clYellow
  676.     Font.Height = -13
  677.     Font.Name = 'MS Sans Serif'
  678.     Font.Style = []
  679.     Style = [bsCenter, bsShowFocus, bsShowKey]
  680.     TabOrder = 31
  681.     TabStop = True
  682.     OnClick = AClick
  683.   end
  684.   object b_pozostale: TColorButton
  685.     Left = 728
  686.     Top = 56
  687.     Width = 85
  688.     Height = 25
  689.     Hint = 'Wczytaj wykonawc∩┐╜w, kt∩┐╜rych nazwy zaczynaj∩┐╜ si∩┐╜ cyframi'
  690.     BevelSize = 1
  691.     Caption = '0 - 9'
  692.     Color = clTeal
  693.     Font.Color = clYellow
  694.     Font.Height = -13
  695.     Font.Name = 'MS Sans Serif'
  696.     Font.Style = []
  697.     Style = [bsCenter, bsShowFocus, bsShowKey]
  698.     TabOrder = 32
  699.     TabStop = True
  700.     OnClick = b_pozostaleClick
  701.   end
  702.   object Wykonawca: TTable
  703.     IndexFieldNames = 'Wykonawca'
  704.     ReadOnly = True
  705.     TableName = 'WYKONAW.DB'
  706.     Left = 20
  707.     Top = 364
  708.     object WykonawcaWykonawca: TStringField
  709.       FieldName = 'Wykonawca'
  710.       Required = True
  711.       Size = 30
  712.     end
  713.   end
  714.   object Plyty: TTable
  715.     IndexName = 'sortuj_plyty'
  716.     MasterFields = 'Wykonawca'
  717.     MasterSource = dsWykonawca2
  718.     ReadOnly = True
  719.     TableName = 'PLYTY.DB'
  720.     Left = 216
  721.     Top = 388
  722.     object PlytyPlyta: TStringField
  723.       DisplayLabel = 'P∩┐╜yta'
  724.       DisplayWidth = 32
  725.       FieldName = 'Plyta'
  726.       Required = True
  727.       Size = 50
  728.     end
  729.     object PlytyRok: TStringField
  730.       FieldName = 'Rok'
  731.       Size = 4
  732.     end
  733.     object PlytyCzas: TStringField
  734.       FieldName = 'Czas'
  735.       Visible = False
  736.       Size = 5
  737.     end
  738.     object PlytyPlyta_index: TIntegerField
  739.       FieldName = 'Plyta_index'
  740.       Visible = False
  741.     end
  742.     object PlytyWykonawca: TStringField
  743.       FieldName = 'Wykonawca'
  744.       Required = True
  745.       Visible = False
  746.       Size = 30
  747.     end
  748.   end
  749.   object Utwory: TTable
  750.     IndexFieldNames = 'Plyta_index'
  751.     MasterFields = 'Plyta_index'
  752.     MasterSource = dsPlyty
  753.     ReadOnly = True
  754.     TableName = 'UTWORY.DB'
  755.     Left = 440
  756.     Top = 384
  757.     object UtworyUtwor: TStringField
  758.       DisplayLabel = 'Utw∩┐╜r'
  759.       DisplayWidth = 120
  760.       FieldName = 'Utwor'
  761.       Size = 120
  762.     end
  763.     object UtworyCzas: TStringField
  764.       FieldName = 'Czas'
  765.       Visible = False
  766.       Size = 5
  767.     end
  768.     object UtworyPlyta_index: TIntegerField
  769.       FieldName = 'Plyta_index'
  770.       Visible = False
  771.     end
  772.     object UtworyUtwor_index: TIntegerField
  773.       FieldName = 'Utwor_index'
  774.       Visible = False
  775.     end
  776.   end
  777.   object dsWykonawca: TDataSource
  778.     DataSet = Wykonawca
  779.     Left = 48
  780.     Top = 364
  781.   end
  782.   object dsPlyty: TDataSource
  783.     DataSet = Plyty
  784.     Left = 244
  785.     Top = 388
  786.   end
  787.   object dsUtwory: TDataSource
  788.     DataSet = Utwory
  789.     Left = 468
  790.     Top = 384
  791.   end
  792.   object Query1: TQuery
  793.     DatabaseName = '\kkp_dat\'
  794.     DataSource = dsWykonawca
  795.     SQL.Strings = (
  796.       'SELECT * FROM Wykonaw')
  797.     Left = 20
  798.     Top = 392
  799.   end
  800.   object dsWykonawca2: TDataSource
  801.     DataSet = Query1
  802.     Left = 48
  803.     Top = 392
  804.   end
  805.   object MainMenu1: TMainMenu
  806.     Left = 8
  807.     Top = 4
  808.     object menu_koniec_pracy: TMenuItem
  809.       Caption = '&Koniec pracy'
  810.       ShortCut = 16459
  811.       OnClick = menu_koniec_pracyClick
  812.     end
  813.     object menu_wyszukiwanie: TMenuItem
  814.       Caption = '&Wyszukiwanie'
  815.       Hint = 'Ctrl+W'
  816.       ShortCut = 16471
  817.       object Okno1: TMenuItem
  818.         Caption = 'Otw∩┐╜rz okno wyszukiwania'
  819.         ShortCut = 0
  820.         OnClick = Button1Click
  821.       end
  822.       object N7: TMenuItem
  823.         Caption = '-'
  824.         ShortCut = 0
  825.       end
  826.       object Okno2: TMenuItem
  827.         Caption = 'Okno zawsze na wierzchu'
  828.         Checked = True
  829.         ShortCut = 0
  830.         OnClick = Okno2Click
  831.       end
  832.       object Okno3: TMenuItem
  833.         Caption = 'Zamykaj okno automatycznie'
  834.         ShortCut = 0
  835.         OnClick = Okno3Click
  836.       end
  837.     end
  838.     object Kolor1: TMenuItem
  839.       Caption = '&Pulpit'
  840.       ShortCut = 16464
  841.       object KolorPulpit: TMenuItem
  842.         Caption = 'Kolor pulpitu'
  843.         GroupIndex = 1
  844.         ShortCut = 0
  845.         OnClick = Kolor1Click
  846.       end
  847.       object Tapeta1: TMenuItem
  848.         Caption = 'Tapeta pulpitu'
  849.         GroupIndex = 1
  850.         ShortCut = 0
  851.         object Brak1: TMenuItem
  852.           Caption = 'Brak'
  853.           ShortCut = 0
  854.           OnClick = Brak1Click
  855.         end
  856.         object N6: TMenuItem
  857.           Caption = '-'
  858.           ShortCut = 0
  859.         end
  860.         object Aqua2: TMenuItem
  861.           Caption = 'Aqua'
  862.           ShortCut = 0
  863.           OnClick = Aqua2Click
  864.         end
  865.         object Bluestone1: TMenuItem
  866.           Caption = 'Bluestone'
  867.           ShortCut = 0
  868.           OnClick = Bluestone1Click
  869.         end
  870.         object Cool1: TMenuItem
  871.           Caption = 'Cool'
  872.           ShortCut = 0
  873.           OnClick = Cool1Click
  874.         end
  875.         object Grass1: TMenuItem
  876.           Caption = 'Grass'
  877.           ShortCut = 0
  878.           OnClick = Grass1Click
  879.         end
  880.         object Levis1: TMenuItem
  881.           Caption = 'Jeans'
  882.           ShortCut = 0
  883.           OnClick = Levis1Click
  884.         end
  885.         object RedBlack1: TMenuItem
  886.           Caption = 'Mars'
  887.           ShortCut = 0
  888.           OnClick = RedBlack1Click
  889.         end
  890.         object Lines1: TMenuItem
  891.           Caption = 'Paint'
  892.           ShortCut = 0
  893.           OnClick = Lines1Click
  894.         end
  895.         object Quartz1: TMenuItem
  896.           Caption = 'Quartz'
  897.           ShortCut = 0
  898.           OnClick = Quartz1Click
  899.         end
  900.         object Rainbow1: TMenuItem
  901.           Caption = 'Rainbow'
  902.           ShortCut = 0
  903.           OnClick = Rainbow1Click
  904.         end
  905.         object Rings1: TMenuItem
  906.           Caption = 'Rock'
  907.           ShortCut = 0
  908.           OnClick = Rings1Click
  909.         end
  910.         object Sky1: TMenuItem
  911.           Caption = 'Sky'
  912.           ShortCut = 0
  913.           OnClick = Sky1Click
  914.         end
  915.         object Space1: TMenuItem
  916.           Caption = 'Space'
  917.           ShortCut = 0
  918.           OnClick = Space1Click
  919.         end
  920.         object Squares1: TMenuItem
  921.           Caption = 'Squares'
  922.           ShortCut = 0
  923.           OnClick = Squares1Click
  924.         end
  925.         object Rings2: TMenuItem
  926.           Caption = 'Stone'
  927.           ShortCut = 0
  928.           OnClick = Rings2Click
  929.         end
  930.         object Volcano1: TMenuItem
  931.           Caption = 'Volcano'
  932.           ShortCut = 0
  933.           OnClick = Volcano1Click
  934.         end
  935.         object Wall1: TMenuItem
  936.           Caption = 'Wall'
  937.           ShortCut = 0
  938.           OnClick = Wall1Click
  939.         end
  940.         object Baumwolle1: TMenuItem
  941.           Caption = 'Wood'
  942.           ShortCut = 0
  943.           OnClick = Baumwolle1Click
  944.         end
  945.       end
  946.       object Czcionkapulpitu1: TMenuItem
  947.         Caption = 'Kolor czcionki pulpitu'
  948.         GroupIndex = 1
  949.         ShortCut = 0
  950.         OnClick = Czcionkapulpitu1Click
  951.       end
  952.       object Efektczcionkipulpitu1: TMenuItem
  953.         Caption = 'Efekt czcionki pulpitu'
  954.         GroupIndex = 1
  955.         ShortCut = 0
  956.         object None1: TMenuItem
  957.           Caption = 'Brak'
  958.           ShortCut = 0
  959.           OnClick = None1Click
  960.         end
  961.         object N4: TMenuItem
  962.           Caption = '-'
  963.           ShortCut = 0
  964.         end
  965.         object Raised1: TMenuItem
  966.           Caption = 'Ramka'
  967.           ShortCut = 0
  968.           OnClick = Raised1Click
  969.         end
  970.         object Shadow1: TMenuItem
  971.           Caption = 'Po∩┐╜wiata'
  972.           ShortCut = 0
  973.           OnClick = Shadow1Click
  974.         end
  975.         object Flying1: TMenuItem
  976.           Caption = 'Cie∩┐╜'
  977.           ShortCut = 0
  978.           OnClick = Flying1Click
  979.         end
  980.       end
  981.       object BtnKolor: TMenuItem
  982.         Caption = 'Kolor przycisk∩┐╜w'
  983.         GroupIndex = 1
  984.         ShortCut = 0
  985.         OnClick = BtnKolorClick
  986.       end
  987.       object BtnFontKolor: TMenuItem
  988.         Caption = 'Kolor czcionki na przyciskach'
  989.         GroupIndex = 1
  990.         ShortCut = 0
  991.         OnClick = BtnFontKolorClick
  992.       end
  993.       object Czcionka1: TMenuItem
  994.         Caption = 'Czcionka okien katalogu'
  995.         GroupIndex = 1
  996.         ShortCut = 0
  997.         OnClick = Czcionka1Click
  998.       end
  999.       object Etykietyprzyciskw1: TMenuItem
  1000.         Caption = 'Etykiety przycisk∩┐╜w'
  1001.         Checked = True
  1002.         GroupIndex = 1
  1003.         ShortCut = 0
  1004.         OnClick = Etykietyprzyciskw1Click
  1005.       end
  1006.       object N5: TMenuItem
  1007.         Caption = '-'
  1008.         GroupIndex = 1
  1009.         ShortCut = 0
  1010.       end
  1011.       object WinKol: TMenuItem
  1012.         Caption = 'Kolory Windows'
  1013.         GroupIndex = 1
  1014.         ShortCut = 0
  1015.         OnClick = WinKolClick
  1016.       end
  1017.     end
  1018.     object d1: TMenuItem
  1019.       Caption = '&D∩┐╜wi∩┐╜k'
  1020.       Hint = 'Ctrl+D'
  1021.       ShortCut = 16452
  1022.       object g1: TMenuItem
  1023.         Caption = 'G∩┐╜o∩┐╜no'
  1024.         ShortCut = 0
  1025.         OnClick = g1Click
  1026.       end
  1027.       object g2: TMenuItem
  1028.         Caption = 'Normalnie'
  1029.         ShortCut = 0
  1030.         OnClick = g2Click
  1031.       end
  1032.       object g3: TMenuItem
  1033.         Caption = 'Cicho'
  1034.         ShortCut = 0
  1035.         OnClick = g3Click
  1036.       end
  1037.       object g4: TMenuItem
  1038.         Caption = '-'
  1039.         ShortCut = 0
  1040.       end
  1041.       object g5: TMenuItem
  1042.         Caption = 'Bez d∩┐╜wi∩┐╜ku'
  1043.         ShortCut = 0
  1044.         OnClick = g5Click
  1045.       end
  1046.     end
  1047.     object menu_pomoc: TMenuItem
  1048.       Caption = 'Pomoc'
  1049.       ShortCut = 112
  1050.       OnClick = menu_pomocClick
  1051.     end
  1052.     object menu_o_programie: TMenuItem
  1053.       Caption = '&O programie'
  1054.       Hint = 'Ctrl+O'
  1055.       ShortCut = 16463
  1056.       OnClick = menu_o_programieClick
  1057.     end
  1058.     object Zam1: TMenuItem
  1059.       Caption = '&Zam∩┐╜wienie'
  1060.       ShortCut = 16474
  1061.       OnClick = Zam1Click
  1062.     end
  1063.   end
  1064.   object FontDialog1: TFontDialog
  1065.     Font.Color = clWindowText
  1066.     Font.Height = -13
  1067.     Font.Name = 'System'
  1068.     Font.Style = []
  1069.     MinFontSize = 0
  1070.     MaxFontSize = 0
  1071.     Left = 37
  1072.     Top = 4
  1073.   end
  1074.   object ColorDialog1: TColorDialog
  1075.     Ctl3D = True
  1076.     Left = 66
  1077.     Top = 4
  1078.   end
  1079.   object MarsCaption1: TMarsCaption
  1080.     ActiveBeginColor = clRed
  1081.     ActiveEndColor = clYellow
  1082.     ActiveFontColor = clYellow
  1083.     InactiveBeginColor = clBlack
  1084.     InactiveEndColor = clSilver
  1085.     InactiveFontColor = clSilver
  1086.     ApplicationNameFont.Color = clYellow
  1087.     ApplicationNameFont.Height = -11
  1088.     ApplicationNameFont.Name = 'MS Sans Serif'
  1089.     ApplicationNameFont.Style = []
  1090.     CaptionFont.Color = clYellow
  1091.     CaptionFont.Height = -11
  1092.     CaptionFont.Name = 'MS Sans Serif'
  1093.     CaptionFont.Style = []
  1094.     NumColors = 64
  1095.     AutoSize = False
  1096.     Left = 184
  1097.     Top = 4
  1098.   end
  1099.   object Volume1: TVolumeControl
  1100.     Left = 156
  1101.     Top = 4
  1102.   end
  1103. end
  1104.