home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 July / Chip_1999-07_cd.bin / ctenari / Zahrad / PROCS.EXE / 0 / RCDATA / TPROCSFORM / TPROCSFORM.txt < prev   
Encoding:
Text File  |  1999-05-08  |  80.2 KB  |  2,480 lines

  1. object ProcsForm: TProcsForm
  2.   Left = 190
  3.   Top = 102
  4.   Cursor = crArrow
  5.   BorderIcons = [biMinimize]
  6.   BorderStyle = bsToolWindow
  7.   Caption = 
  8.     'SAD                                                             ' +
  9.     '                                  SAD'
  10.   ClientHeight = 319
  11.   ClientWidth = 333
  12.   Font.Color = clBlack
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   Icon.Data = {<image000.ico>}
  17.   Position = poScreenCenter
  18.   OnCreate = ProcsFormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Tab1: TTabbedNotebook
  22.     Left = 0
  23.     Top = 24
  24.     Width = 333
  25.     Height = 295
  26.     TabFont.Color = clBlack
  27.     TabFont.Height = -8
  28.     TabFont.Name = 'MS Sans Serif'
  29.     TabFont.Style = []
  30.     TabOrder = 0
  31.     object TTabPage
  32.       Left = 4
  33.       Top = 24
  34.       Caption = 'OBSAH'
  35.       object Memo1001: TMemo
  36.         Left = 0
  37.         Top = 0
  38.         Width = 325
  39.         Height = 267
  40.         Cursor = crArrow
  41.         Align = alClient
  42.         Color = clBlack
  43.         Font.Color = clSilver
  44.         Font.Height = -9
  45.         Font.Name = 'MS Sans Serif'
  46.         Font.Style = []
  47.         Lines.Strings = (
  48.           '001..........upozorn∩┐╜n∩┐╜ - MessageDlg'
  49.           '002..........zpr∩┐╜va - ShowMessage'
  50.           '003..........cyklus - for..to'
  51.           '004..........ode∩┐╜∩┐╜t∩┐╜n∩┐╜ a p∩┐╜i∩┐╜∩┐╜t∩┐╜n∩┐╜ - dec,inc'
  52.           '005..........v∩┐╜∩┐╜ka a ∩┐╜∩┐╜∩┐╜ka - height,width'
  53.           '006..........t∩┐╜hni a pus∩┐╜ - drag & drop'
  54.           '007..........zkop∩┐╜rov∩┐╜n∩┐╜ textu do titulku formul∩┐╜∩┐╜e'
  55.           '008..........zarovn∩┐╜n∩┐╜ textu - taCenter,taJustify'
  56.           '009..........barva p∩┐╜sma a podkladu - Font.Color,Memo.Color'
  57.           '010..........zm∩┐╜na fontu a barvy p∩┐╜sma'
  58.           '011..........barva p∩┐╜sma a podkladu - Font.Color,Memo.Color 2'
  59.           '012..........dotaz - MessageDlg'
  60.           '013..........vzhled okna - wsNormal,wsMinimized,wsMaximized'
  61.           '014..........zm∩┐╜na barvy textu ∩┐╜i podkladu my∩┐╜∩┐╜'
  62.           '015..........my∩┐╜ - down,up'
  63.           '016..........nahr∩┐╜n∩┐╜,um∩┐╜st∩┐╜n∩┐╜ a rozta∩┐╜en∩┐╜ obr∩┐╜zku'
  64.           '017..........zvuk - MessageBeep'
  65.           '018..........kurzor- zm∩┐╜na vzhledu'
  66.           '019..........∩┐╜as v titulku formul∩┐╜∩┐╜e'
  67.           '020..........po∩┐╜et znak∩┐╜ v textu')
  68.         ParentFont = False
  69.         ReadOnly = True
  70.         TabOrder = 0
  71.         Visible = False
  72.         OnMouseUp = MemoMouseUp
  73.       end
  74.       object Memo1002: TMemo
  75.         Left = 0
  76.         Top = 0
  77.         Width = 325
  78.         Height = 267
  79.         Cursor = crArrow
  80.         Align = alClient
  81.         Color = clBlack
  82.         Font.Color = clSilver
  83.         Font.Height = -11
  84.         Font.Name = 'MS Sans Serif'
  85.         Font.Style = []
  86.         Lines.Strings = (
  87.           '021..........clipboard - copy,cut,paste   '
  88.           '022..........zm∩┐╜na vzhledu objektu - rectangle,circle...'
  89.           '023..........zaoblen∩┐╜ rohy formul∩┐╜∩┐╜e'
  90.           '024..........voln∩┐╜ m∩┐╜sto na disku'
  91.           '025..........voln∩┐╜,obsazen∩┐╜ m∩┐╜sto a kapacita vybran∩┐╜ho disku'
  92.           '026..........odstran∩┐╜n∩┐╜ tla∩┐╜∩┐╜tek z titulku formul∩┐╜∩┐╜e'
  93.           '027..........popisky tla∩┐╜∩┐╜tek'
  94.           '028..........zm∩┐╜na barvy formul∩┐╜∩┐╜e - randomize'
  95.           '029..........sou∩┐╜et komponent na formul∩┐╜∩┐╜i'
  96.           '030..........nahr∩┐╜n∩┐╜ bitmapy na tla∩┐╜∩┐╜tko'
  97.           '031..........posun tla∩┐╜∩┐╜tkov∩┐╜ho popisku'
  98.           '032..........nahr∩┐╜n∩┐╜ bitmapy ze souboru dle cesty'
  99.           '033..........sou∩┐╜adnice X,Y kursoru my∩┐╜i'
  100.           '034..........zm∩┐╜na velikosti tla∩┐╜∩┐╜tka - ScaleBy             '
  101.           '035..........p∩┐╜esun fontu mezi objekty'
  102.           '036..........ulo∩┐╜en∩┐╜ a nahr∩┐╜n∩┐╜ textu - load,save'
  103.           '037..........nahr∩┐╜n∩┐╜ ikony do titulku formul∩┐╜∩┐╜e'
  104.           '038..........rychl∩┐╜ zm∩┐╜na velikosti fontu'
  105.           '039..........ozna∩┐╜en∩┐╜ a odzna∩┐╜en∩┐╜ objektu - focus'
  106.           '040..........um∩┐╜st∩┐╜n∩┐╜ textu a vybarven∩┐╜ podkladu')
  107.         ParentFont = False
  108.         ReadOnly = True
  109.         TabOrder = 1
  110.         Visible = False
  111.         OnMouseUp = MemoMouseUp
  112.       end
  113.       object Button1: TButton
  114.         Left = 306
  115.         Top = 2
  116.         Width = 17
  117.         Height = 17
  118.         Caption = '1>'
  119.         Font.Color = clBlack
  120.         Font.Height = -11
  121.         Font.Name = 'MS Sans Serif'
  122.         Font.Style = [fsBold]
  123.         ParentFont = False
  124.         TabOrder = 2
  125.         OnClick = Button1Click
  126.       end
  127.       object Button2: TButton
  128.         Left = 306
  129.         Top = 2
  130.         Width = 17
  131.         Height = 17
  132.         Caption = '2>'
  133.         Font.Color = clBlack
  134.         Font.Height = -11
  135.         Font.Name = 'MS Sans Serif'
  136.         Font.Style = [fsBold]
  137.         ParentFont = False
  138.         TabOrder = 3
  139.         Visible = False
  140.         OnClick = Button2Click
  141.       end
  142.       object Memo1003: TMemo
  143.         Left = 0
  144.         Top = 0
  145.         Width = 325
  146.         Height = 267
  147.         Cursor = crArrow
  148.         Align = alClient
  149.         Color = clBlack
  150.         Font.Color = clSilver
  151.         Font.Height = -11
  152.         Font.Name = 'MS Sans Serif'
  153.         Font.Style = []
  154.         Lines.Strings = (
  155.           '041..........zm∩┐╜na velikosti tla∩┐╜∩┐╜tka - MyRect'
  156.           '042..........zobrazen∩┐╜ stisknut∩┐╜ kl∩┐╜vesy'
  157.           '043..........tisk textu - PrintFile'
  158.           '044..........dotaz p∩┐╜i ukon∩┐╜en∩┐╜ aplikace - caFree,caNone'
  159.           '045..........p∩┐╜eru∩┐╜en∩┐╜ tisku na tisk∩┐╜rn∩┐╜ - Printer.Abort'
  160.           '046..........tisk r∩┐╜me∩┐╜ku - BeginDoc'
  161.           '047..........text - vlo∩┐╜en∩┐╜ do tabulky'
  162.           '048..........vyps∩┐╜n∩┐╜ textu na sou∩┐╜adnic∩┐╜ch kursoru'
  163.           '049..........text - p∩┐╜esun mezi objekty p∩┐╜es clipboard'
  164.           '050..........um∩┐╜st∩┐╜n∩┐╜ kursoru dle ∩┐╜∩┐╜dku a sloupce'
  165.           '051..........vyhled∩┐╜n∩┐╜ zadan∩┐╜ho textu - FindDialog'
  166.           '052..........vlo∩┐╜en∩┐╜ aktu∩┐╜ln∩┐╜ho datumu a ∩┐╜asu do objektu'
  167.           '053..........zm∩┐╜na po∩┐╜tu ∩┐╜∩┐╜dek a sloupc∩┐╜ v tabulce'
  168.           '054..........∩┐╜et∩┐╜zec - ozna∩┐╜en∩┐╜ textu my∩┐╜∩┐╜ - SelText,SelLength'
  169.           '055..........text - v∩┐╜echna mal∩┐╜ ∩┐╜i velk∩┐╜ p∩┐╜smena - ecLowerCase'
  170.           '056..........v∩┐╜se∩┐╜,elipsa,v∩┐╜ce∩┐╜heln∩┐╜k - Pie,Ellipse,PolyLine'
  171.           '057..........reakce na stisk 2 kl∩┐╜ves'
  172.           
  173.             '058..........pohyb objektu dle ∩┐╜asov∩┐╜ho intervalu - Timer.Interv' +
  174.             'al'
  175.           '059..........p∩┐╜smo - programov∩┐╜ zm∩┐╜na typu a velikosti fontu'
  176.           '060..........zm∩┐╜na ∩┐╜∩┐╜∩┐╜ky linek m∩┐╜∩┐╜ky v tabulce')
  177.         ParentFont = False
  178.         ReadOnly = True
  179.         TabOrder = 4
  180.         Visible = False
  181.         OnMouseUp = MemoMouseUp
  182.       end
  183.       object Button3: TButton
  184.         Left = 306
  185.         Top = 2
  186.         Width = 17
  187.         Height = 17
  188.         Caption = '3>'
  189.         Font.Color = clBlack
  190.         Font.Height = -11
  191.         Font.Name = 'MS Sans Serif'
  192.         Font.Style = [fsBold]
  193.         ParentFont = False
  194.         TabOrder = 5
  195.         Visible = False
  196.         OnClick = Button3Click
  197.       end
  198.     end
  199.     object TTabPage
  200.       Left = 4
  201.       Top = 24
  202.       Caption = '001'
  203.       object Memo1: TMemo
  204.         Left = 0
  205.         Top = 0
  206.         Width = 325
  207.         Height = 267
  208.         Align = alClient
  209.         Lines.Strings = (
  210.           'procedure TForm1.FormClick(Sender: TObject); '
  211.           
  212.             'begin                                                           ' +
  213.             '        '
  214.           '  MessageDlg ('#39'Bylo kliknuto mimo objekt'#39','
  215.           '  mtWarning, [mbOK], 0);'
  216.           'end;'
  217.           '=================================================='
  218.           '-V Object Inspectoru do Events u OnClick napi∩┐╜te FormClick.'
  219.           '-Pokud kliknete my∩┐╜∩┐╜ na voln∩┐╜ formul∩┐╜∩┐╜ (mimo n∩┐╜jak∩┐╜ objekt), '
  220.           ' objev∩┐╜ se upozorn∩┐╜n∩┐╜.')
  221.         ReadOnly = True
  222.         ScrollBars = ssVertical
  223.         TabOrder = 0
  224.       end
  225.     end
  226.     object TTabPage
  227.       Left = 4
  228.       Top = 24
  229.       Caption = '002'
  230.       object Memo2: TMemo
  231.         Left = 0
  232.         Top = 0
  233.         Width = 325
  234.         Height = 267
  235.         Align = alClient
  236.         Lines.Strings = (
  237.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  238.           'begin'
  239.           '  ShowMessage ('#39'Stiskli jste tla∩┐╜∩┐╜tko'#39')'
  240.           'end;'
  241.           '=================================================='
  242.           '-Po stisknut∩┐╜ tla∩┐╜∩┐╜tka se zobraz∩┐╜ zpr∩┐╜va.')
  243.         ReadOnly = True
  244.         ScrollBars = ssVertical
  245.         TabOrder = 0
  246.       end
  247.     end
  248.     object TTabPage
  249.       Left = 4
  250.       Top = 24
  251.       Caption = '003'
  252.       object Memo3: TMemo
  253.         Left = 0
  254.         Top = 0
  255.         Width = 325
  256.         Height = 267
  257.         Align = alClient
  258.         Lines.Strings = (
  259.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  260.           'var'
  261.           '  I: Integer;'
  262.           'begin'
  263.           '  ListBox1.Items.Clear;'
  264.           '  for I := 1 to 5 do'
  265.           '    Listbox1.Items.Add ('#39'String '#39' + IntToStr (I));'
  266.           'end;'
  267.           '=================================================='
  268.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty SpeedButton a ListBox.'
  269.           '-Po stisku tla∩┐╜∩┐╜tka se pod sebe do ListBox vyp∩┐╜∩┐╜ slova String'
  270.           ' a ∩┐╜∩┐╜slo dle pozice v cyklu.')
  271.         ReadOnly = True
  272.         ScrollBars = ssVertical
  273.         TabOrder = 0
  274.       end
  275.     end
  276.     object TTabPage
  277.       Left = 4
  278.       Top = 24
  279.       Caption = '004'
  280.       object Memo4: TMemo
  281.         Left = 0
  282.         Top = 0
  283.         Width = 325
  284.         Height = 267
  285.         Align = alClient
  286.         Lines.Strings = (
  287.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  288.           'const'
  289.           '  N: integer = 1;'
  290.           '  M: integer = 10;'
  291.           'begin'
  292.           '  Inc(N);'
  293.           '  Dec(M);'
  294.           '  Label1.Caption:=IntToStr(N);'
  295.           '  Label2.Caption:=IntToStr(M);'
  296.           'end;'
  297.           '=================================================='
  298.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty SpeedButton a 2x Label.'
  299.           '-P∩┐╜i ka∩┐╜d∩┐╜m stisku tla∩┐╜∩┐╜tka se v komponent∩┐╜ Label1 p∩┐╜i∩┐╜∩┐╜t∩┐╜ 1'
  300.           ' (Inc) a v komponent∩┐╜ Label2 ode∩┐╜∩┐╜t∩┐╜ 1 (Dec).')
  301.         ReadOnly = True
  302.         ScrollBars = ssVertical
  303.         TabOrder = 0
  304.       end
  305.     end
  306.     object TTabPage
  307.       Left = 4
  308.       Top = 24
  309.       Caption = '005'
  310.       object Memo5: TMemo
  311.         Left = 0
  312.         Top = 0
  313.         Width = 325
  314.         Height = 267
  315.         Align = alClient
  316.         Lines.Strings = (
  317.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  318.           'begin'
  319.           '  SpeedButton2.Height := SpeedButton2.Height + 1;'
  320.           '  SpeedButton2.Width := SpeedButton2.Width + 1;'
  321.           'end;'
  322.           '=================================================='
  323.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu SpeedButton 2x.'
  324.           '-Po stisku tla∩┐╜∩┐╜tka SpeedButton1 se v∩┐╜∩┐╜ka a ∩┐╜∩┐╜∩┐╜ka tla∩┐╜∩┐╜tka'
  325.           ' SpeedButton2 zv∩┐╜t∩┐╜uje o jeden bod.')
  326.         ReadOnly = True
  327.         ScrollBars = ssVertical
  328.         TabOrder = 0
  329.       end
  330.     end
  331.     object TTabPage
  332.       Left = 4
  333.       Top = 24
  334.       Caption = '006'
  335.       object Memo6: TMemo
  336.         Left = 0
  337.         Top = 0
  338.         Width = 325
  339.         Height = 267
  340.         Align = alClient
  341.         Lines.Strings = (
  342.           'procedure TForm1.Label5DragDrop (Sender, Source: TObject;'
  343.           '  X, Y: Integer);'
  344.           'begin'
  345.           '  Label5.Color := (Source as TLabel).Color;'
  346.           'end;'
  347.           '========'
  348.           'procedure TForm1.Label5DragOver (Sender, Source: TObject;'
  349.           '  X, Y: Integer; State: TDragState; var Accept: Boolean);'
  350.           'begin'
  351.           '  Accept := Source is TLabel;'
  352.           'end;'
  353.           '=================================================='
  354.           '-Na formul∩┐╜∩┐╜ um∩┐╜st∩┐╜te 5 komponent Label. ∩┐╜ty∩┐╜em vyberte r∩┐╜zn∩┐╜ '
  355.           ' barvy (v Object Inspectoru Properties-Color).V Object '
  356.           ' Inspectoru je t∩┐╜eba do Events k OnDragDrop vlo∩┐╜it'
  357.           ' Label5DragDrop a k OnDragOver vlo∩┐╜it Label5DragOver.'
  358.           '-Pokud uk∩┐╜ete kursorem my∩┐╜i na jedno ze 4 barevn∩┐╜ch pol∩┐╜,'
  359.           
  360.             ' stisknete lev∩┐╜  tla∩┐╜∩┐╜tko my∩┐╜i, za st∩┐╜l∩┐╜ho stisku t∩┐╜hnete nad p∩┐╜' +
  361.             't∩┐╜'
  362.           
  363.             ' pol∩┐╜∩┐╜ko a tla∩┐╜∩┐╜tko uvoln∩┐╜te, obarv∩┐╜ se p∩┐╜t∩┐╜ pole v∩┐╜choz∩┐╜ barvou' +
  364.             '.')
  365.         ReadOnly = True
  366.         ScrollBars = ssVertical
  367.         TabOrder = 0
  368.       end
  369.     end
  370.     object TTabPage
  371.       Left = 4
  372.       Top = 24
  373.       Caption = '007'
  374.       object Memo7: TMemo
  375.         Left = 0
  376.         Top = 0
  377.         Width = 325
  378.         Height = 267
  379.         Align = alClient
  380.         Lines.Strings = (
  381.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  382.           'begin'
  383.           '  if Edit1.Text <> '#39#39' then'
  384.           '     Form1.Caption := Edit1.Text;'
  385.           'end;'
  386.           '=================================================='
  387.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty SpeedButton a Edit.'
  388.           '-Po zad∩┐╜n∩┐╜ textu do edita∩┐╜n∩┐╜ho pole a stisku tla∩┐╜∩┐╜tka se text'
  389.           ' zkop∩┐╜ruje do titulku (Caption) formul∩┐╜∩┐╜e.')
  390.         ReadOnly = True
  391.         ScrollBars = ssVertical
  392.         TabOrder = 0
  393.       end
  394.     end
  395.     object TTabPage
  396.       Left = 4
  397.       Top = 24
  398.       Caption = '008'
  399.       object Memo8: TMemo
  400.         Left = 0
  401.         Top = 0
  402.         Width = 325
  403.         Height = 267
  404.         Align = alClient
  405.         Ctl3D = True
  406.         Lines.Strings = (
  407.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  408.           'begin'
  409.           ' Memo1.Alignment := taLeftJustify;'
  410.           'end;'
  411.           '========'
  412.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  413.           'begin'
  414.           ' Memo1.Alignment := taCenter;'
  415.           'end;'
  416.           '========'
  417.           'procedure TForm1.SpeedButton3Click(Sender: TObject);'
  418.           'begin'
  419.           ' Memo1.Alignment := taRightJustify;'
  420.           'end;'
  421.           '=================================================='
  422.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty SpeedButton 3x a Memo.'
  423.           '-Do Memo vlo∩┐╜te kr∩┐╜tk∩┐╜ text. Po stisku jednotliv∩┐╜ch tla∩┐╜∩┐╜tek se'
  424.           ' text zarovn∩┐╜ bu∩┐╜ doleva nebo na st∩┐╜ed ∩┐╜i doprava.')
  425.         ParentCtl3D = False
  426.         ReadOnly = True
  427.         ScrollBars = ssVertical
  428.         TabOrder = 0
  429.       end
  430.     end
  431.     object TTabPage
  432.       Left = 4
  433.       Top = 24
  434.       Caption = '009'
  435.       object Memo9: TMemo
  436.         Left = 0
  437.         Top = 0
  438.         Width = 325
  439.         Height = 267
  440.         Align = alClient
  441.         Lines.Strings = (
  442.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  443.           'begin'
  444.           '  ColorDialog1.Color := Memo1.Font.Color;'
  445.           '  ColorDialog1.Execute;'
  446.           '  Memo1.Font.Color := ColorDialog1.Color;'
  447.           'end;'
  448.           '========'
  449.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  450.           'begin'
  451.           '  ColorDialog1.Color := Memo1.Color;'
  452.           '  ColorDialog1.Execute;'
  453.           '  Memo1.Color := ColorDialog1.Color;'
  454.           'end;'
  455.           '=================================================='
  456.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Memo a do n∩┐╜ um∩┐╜st∩┐╜te kompo-'
  457.           ' nentu ColorDialog. D∩┐╜le vlo∩┐╜te na formul∩┐╜∩┐╜ 2x SpeedButton.'
  458.           '-Po stisku tla∩┐╜∩┐╜tek se otev∩┐╜e nab∩┐╜dka barev a dle vybran∩┐╜ barvy'
  459.           ' se zm∩┐╜n∩┐╜ barva textu ∩┐╜i pozad∩┐╜ v Memo. ')
  460.         ReadOnly = True
  461.         ScrollBars = ssVertical
  462.         TabOrder = 0
  463.       end
  464.     end
  465.     object TTabPage
  466.       Left = 4
  467.       Top = 24
  468.       Caption = '010'
  469.       object Memo10: TMemo
  470.         Left = 0
  471.         Top = 0
  472.         Width = 325
  473.         Height = 267
  474.         Align = alClient
  475.         Lines.Strings = (
  476.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  477.           'begin'
  478.           ' if RichEdit1.SelLength > 0 then'
  479.           '  begin'
  480.           '    FontDialog1.Font.Assign(RichEdit1.DefAttributes);'
  481.           '    if FontDialog1.Execute then'
  482.           '     RichEdit1.SelAttributes.Assign(FontDialog1.Font);'
  483.           '  end'
  484.           '  else'
  485.           '    ShowMessage ('#39'No text selected'#39');'
  486.           'end;'
  487.           '=================================================='
  488.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu RichEdit a do n∩┐╜ komponentu'
  489.           ' FontDialog. D∩┐╜le na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu SpeedButton.'
  490.           
  491.             '-Do RichEdit vlo∩┐╜te text, ozna∩┐╜te jej a stiskn∩┐╜te tla∩┐╜∩┐╜tko. Otev' +
  492.             '∩┐╜e'
  493.           ' se dialogov∩┐╜ okno, ve kter∩┐╜m vyberete font a barvu p∩┐╜sma. ')
  494.         ReadOnly = True
  495.         ScrollBars = ssVertical
  496.         TabOrder = 0
  497.       end
  498.     end
  499.     object TTabPage
  500.       Left = 4
  501.       Top = 24
  502.       Caption = '011'
  503.       object Memo11: TMemo
  504.         Left = 0
  505.         Top = 0
  506.         Width = 325
  507.         Height = 267
  508.         Align = alClient
  509.         Lines.Strings = (
  510.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  511.           'begin'
  512.           ' FontDialog1.Font := Memo1.Font;'
  513.           '  if FontDialog1.Execute then'
  514.           '     Memo1.Font := FontDialog1.Font;'
  515.           'end;'
  516.           '========'
  517.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  518.           'begin'
  519.           '  ColorDialog1.Color := Memo1.Color;'
  520.           '  if ColorDialog1.Execute then'
  521.           '     Memo1.Color := ColorDialog1.Color;'
  522.           'end;'
  523.           '=================================================='
  524.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Memo a do n∩┐╜ um∩┐╜st∩┐╜te kompo-'
  525.           ' nenty ColorDialog a FontDialog. D∩┐╜le vlo∩┐╜te na formul∩┐╜∩┐╜ 2x'
  526.           ' komponentu SpeedButton.'
  527.           '-Po stisku 1.tla∩┐╜∩┐╜tka se otev∩┐╜e nab∩┐╜dka font∩┐╜ a 2.tla∩┐╜∩┐╜tka '
  528.           ' nab∩┐╜dka barev. V∩┐╜b∩┐╜rem se zm∩┐╜n∩┐╜ font a barva p∩┐╜sma ∩┐╜i barva'
  529.           ' pozad∩┐╜.')
  530.         ReadOnly = True
  531.         ScrollBars = ssVertical
  532.         TabOrder = 0
  533.       end
  534.     end
  535.     object TTabPage
  536.       Left = 4
  537.       Top = 24
  538.       Caption = '012'
  539.       object Memo12: TMemo
  540.         Left = 0
  541.         Top = 0
  542.         Width = 325
  543.         Height = 267
  544.         Align = alClient
  545.         Ctl3D = True
  546.         Lines.Strings = (
  547.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  548.           'begin'
  549.           ' Close;'
  550.           'end;'
  551.           '========'
  552.           'procedure TForm1.FormCloseQuery(Sender: TObject;'
  553.           '   var CanClose: Boolean);'
  554.           'begin'
  555.           ' if MessageDlg ('#39'Chcete opravdu skon∩┐╜it?'#39','
  556.           '    mtConfirmation, [mbYes, mbNo], 0) = idNo then'
  557.           '    CanClose := False;'
  558.           'end;'
  559.           '=================================================='
  560.           '-Do formul∩┐╜∩┐╜e vlo∩┐╜te SpeedButton, v Object Inspectoru'
  561.           ' v Events formul∩┐╜∩┐╜e k OnCloseQuery vlo∩┐╜te FormCloseQuery.'
  562.           '-Po stisku tla∩┐╜∩┐╜tka se p∩┐╜ed zav∩┐╜en∩┐╜m formul∩┐╜∩┐╜e objev∩┐╜ je∩┐╜t∩┐╜ '
  563.           ' dotaz.')
  564.         ParentCtl3D = False
  565.         ReadOnly = True
  566.         ScrollBars = ssVertical
  567.         TabOrder = 0
  568.       end
  569.     end
  570.     object TTabPage
  571.       Left = 4
  572.       Top = 24
  573.       Caption = '013'
  574.       object Memo13: TMemo
  575.         Left = 0
  576.         Top = 0
  577.         Width = 325
  578.         Height = 267
  579.         Align = alClient
  580.         Lines.Strings = (
  581.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  582.           'begin'
  583.           ' WindowState := wsMinimized;'
  584.           'end;'
  585.           '========'
  586.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  587.           'begin'
  588.           ' WindowState := wsMaximized;'
  589.           'end;'
  590.           '========'
  591.           'procedure TForm1.SpeedButton3Click(Sender: TObject);'
  592.           'begin'
  593.           ' WindowState := wsNormal;'
  594.           'end;'
  595.           '=================================================='
  596.           '-Do formul∩┐╜∩┐╜e vlo∩┐╜te 3x komponentu SpeedButton.'
  597.           '-1.tla∩┐╜∩┐╜tko formul∩┐╜∩┐╜ zminimalizuje, 2.tla∩┐╜∩┐╜tko zmaximalizuje a'
  598.           ' 3.tla∩┐╜∩┐╜tko jej uvede do p∩┐╜vodn∩┐╜ velikosti.')
  599.         ReadOnly = True
  600.         ScrollBars = ssVertical
  601.         TabOrder = 0
  602.       end
  603.     end
  604.     object TTabPage
  605.       Left = 4
  606.       Top = 24
  607.       Caption = '014'
  608.       object Memo14: TMemo
  609.         Left = 0
  610.         Top = 0
  611.         Width = 325
  612.         Height = 267
  613.         Align = alClient
  614.         Lines.Strings = (
  615.           'procedure TForm1.ColorGrid1Change(Sender: TObject);'
  616.           'begin'
  617.           '  Label1.Color := ColorGrid1.BackgroundColor;'
  618.           '  Label1.Font.Color := ColorGrid1.ForegroundColor;'
  619.           'end;'
  620.           '=================================================='
  621.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu ColorGrid a Label (do Caption '
  622.           ' vlo∩┐╜te text). V Object Inspectoru u komponenty ColorGrids '
  623.           ' vlo∩┐╜te v Events u OnChange ColorGrid1Change.'
  624.           '-Po stisku lev∩┐╜ho tla∩┐╜∩┐╜tka my∩┐╜i se barva textu zm∩┐╜n∩┐╜ dle barvy,'
  625.           ' na ni∩┐╜ ukazuje kurzor. Po stisku prav∩┐╜ho tla∩┐╜∩┐╜tka my∩┐╜i se '
  626.           ' zm∩┐╜n∩┐╜ barva podkladu. Barvy vyb∩┐╜r∩┐╜te z panelu barev.')
  627.         ReadOnly = True
  628.         ScrollBars = ssVertical
  629.         TabOrder = 0
  630.       end
  631.     end
  632.     object TTabPage
  633.       Left = 4
  634.       Top = 24
  635.       Caption = '015'
  636.       object Memo15: TMemo
  637.         Left = 0
  638.         Top = 0
  639.         Width = 325
  640.         Height = 267
  641.         Align = alClient
  642.         Lines.Strings = (
  643.           'procedure TForm1.SpeedButton1MouseDown(Sender:TObject;'
  644.           ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
  645.           'begin'
  646.           ' Panel1.Visible:=False;'
  647.           'end;'
  648.           '========'
  649.           'procedure TForm1.SpeedButton1MouseUp(Sender: TObject; '
  650.           ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
  651.           'begin'
  652.           ' Panel1.Visible:=True;'
  653.           'end;'
  654.           '=================================================='
  655.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu SpeedButton a Panel.'
  656.           ' V Object Inspectoru u komponenty SpeedButton1 vlo∩┐╜te'
  657.           ' v Events u OnMouseDown SpeedButton1MouseDown '
  658.           ' a u OnMouseUp vlo∩┐╜te SpeedButton1MouseUp.'
  659.           '-Po stisku lev∩┐╜ho tla∩┐╜∩┐╜tka my∩┐╜i s kurzorem na tla∩┐╜∩┐╜tku zmiz∩┐╜'
  660.           ' panel a po uvoln∩┐╜n∩┐╜ tla∩┐╜∩┐╜tka my∩┐╜i se panel op∩┐╜t zviditeln∩┐╜.')
  661.         ReadOnly = True
  662.         ScrollBars = ssVertical
  663.         TabOrder = 0
  664.       end
  665.     end
  666.     object TTabPage
  667.       Left = 4
  668.       Top = 24
  669.       Caption = '016'
  670.       object Memo16: TMemo
  671.         Left = 0
  672.         Top = 0
  673.         Width = 325
  674.         Height = 267
  675.         Align = alClient
  676.         Lines.Strings = (
  677.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  678.           'begin'
  679.           ' if OpenDialog1.Execute then'
  680.           '  begin'
  681.           '    Image1.Picture.LoadFromFile (OpenDialog1.FileName);'
  682.           '    Caption := '#39'Obr∩┐╜zek - '#39' + OpenDialog1.FileName;'
  683.           '  end;'
  684.           'end;'
  685.           '========'
  686.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  687.           'begin'
  688.           ' Image1.Center := not Image1.Center;'
  689.           'end;'
  690.           '========'
  691.           'procedure TForm1.SpeedButton3Click(Sender: TObject);'
  692.           'begin'
  693.           ' Image1.Stretch := not Image1.Stretch;'
  694.           'end;'
  695.           '=================================================='
  696.           '-Do formul∩┐╜∩┐╜e vlo∩┐╜te 3x komponentu SpeedButton, d∩┐╜le Image'
  697.           ' a komponentu OpenDialog.'
  698.           '-P∩┐╜i stisku 1.tla∩┐╜∩┐╜tka se otev∩┐╜e dialogov∩┐╜ okno, ve kter∩┐╜m vybe-'
  699.           
  700.             ' rete obr∩┐╜zek, kter∩┐╜ se nahraje na formul∩┐╜∩┐╜. Druh∩┐╜ tla∩┐╜∩┐╜tko obr∩┐╜' +
  701.             '-'
  702.           
  703.             ' zek um∩┐╜st∩┐╜ na st∩┐╜ed a t∩┐╜et∩┐╜ jej rozt∩┐╜hne po cel∩┐╜ plo∩┐╜e. Do titu' +
  704.             'lku'
  705.           ' formul∩┐╜∩┐╜e se vyp∩┐╜e adres∩┐╜∩┐╜ a n∩┐╜zev obr∩┐╜zku.')
  706.         ReadOnly = True
  707.         ScrollBars = ssVertical
  708.         TabOrder = 0
  709.       end
  710.     end
  711.     object TTabPage
  712.       Left = 4
  713.       Top = 24
  714.       Caption = '017'
  715.       object Memo17: TMemo
  716.         Left = 0
  717.         Top = 0
  718.         Width = 325
  719.         Height = 267
  720.         Align = alClient
  721.         Lines.Strings = (
  722.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  723.           'begin'
  724.           ' MessageBeep (0);'
  725.           'end;'
  726.           '=================================================='
  727.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu SpeedButton.'
  728.           '-Po stisku tla∩┐╜∩┐╜tka SpeedButton1 se ozve zvuk.')
  729.         ReadOnly = True
  730.         ScrollBars = ssVertical
  731.         TabOrder = 0
  732.       end
  733.     end
  734.     object TTabPage
  735.       Left = 4
  736.       Top = 24
  737.       Caption = '018'
  738.       object Memo18: TMemo
  739.         Left = 0
  740.         Top = 0
  741.         Width = 325
  742.         Height = 267
  743.         Align = alClient
  744.         Lines.Strings = (
  745.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  746.           'begin'
  747.           ' Screen.Cursor := crHourglass;'
  748.           'end;'
  749.           '========'
  750.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  751.           'begin'
  752.           ' Screen.Cursor := crAppStart;'
  753.           'end;'
  754.           '========'
  755.           'procedure TForm1.SpeedButton3Click(Sender: TObject);'
  756.           'begin'
  757.           ' Screen.Cursor := crUpArrow;'
  758.           'end;'
  759.           '========'
  760.           'procedure TForm1.SpeedButton4Click(Sender: TObject);'
  761.           'begin'
  762.           ' Screen.Cursor := crMultiDrag;'
  763.           'end;'
  764.           '=================================================='
  765.           '-Do formul∩┐╜∩┐╜e vlo∩┐╜te 4x SpeedButton.'
  766.           
  767.             '-P∩┐╜i stisku jednotliv∩┐╜ch tla∩┐╜∩┐╜tek se m∩┐╜n∩┐╜ kurzor. V Object Inspe' +
  768.             '-'
  769.           
  770.             ' ctoru lze u vlastnosti formul∩┐╜∩┐╜e Cursor nastavit vzhled kurzoru' +
  771.             ' '
  772.           ' bez nutnosti ps∩┐╜t k∩┐╜d.')
  773.         ReadOnly = True
  774.         ScrollBars = ssVertical
  775.         TabOrder = 0
  776.       end
  777.     end
  778.     object TTabPage
  779.       Left = 4
  780.       Top = 24
  781.       Caption = '019'
  782.       object Memo19: TMemo
  783.         Left = 0
  784.         Top = 0
  785.         Width = 325
  786.         Height = 267
  787.         Align = alClient
  788.         Lines.Strings = (
  789.           'procedure TForm1.Timer1Timer(Sender: TObject);'
  790.           'begin'
  791.           '  Form1.Caption := TimeToStr (Time);'
  792.           'end;'
  793.           '=================================================='
  794.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Timer.'
  795.           '-Po spu∩┐╜t∩┐╜n∩┐╜ pob∩┐╜∩┐╜ v titulku formul∩┐╜∩┐╜e aktu∩┐╜ln∩┐╜ ∩┐╜as.')
  796.         ReadOnly = True
  797.         ScrollBars = ssVertical
  798.         TabOrder = 0
  799.       end
  800.     end
  801.     object TTabPage
  802.       Left = 4
  803.       Top = 24
  804.       Caption = '020'
  805.       object Memo20: TMemo
  806.         Left = 0
  807.         Top = 0
  808.         Width = 325
  809.         Height = 267
  810.         Align = alClient
  811.         Lines.Strings = (
  812.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  813.           'var'
  814.           '  text: string;'
  815.           'begin'
  816.           '  Str(Memo1.GetTextLen, text);'
  817.           '  MessageDlg ('#39'Text m∩┐╜ '#39' + text + '#39' znak∩┐╜'#39','
  818.           '    mtInformation, [mbOK], 0);'
  819.           'end;'
  820.           '=================================================='
  821.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty SpeedButton a Memo.'
  822.           '-Po stisku tla∩┐╜∩┐╜tka SpeedButton se vyp∩┐╜e po∩┐╜et znak∩┐╜, kter∩┐╜ '
  823.           ' obsahuje text v Memo (v∩┐╜etn∩┐╜ mezer).')
  824.         ReadOnly = True
  825.         ScrollBars = ssVertical
  826.         TabOrder = 0
  827.       end
  828.     end
  829.     object TTabPage
  830.       Left = 4
  831.       Top = 24
  832.       Caption = '021'
  833.       object Memo21: TMemo
  834.         Left = 0
  835.         Top = 0
  836.         Width = 325
  837.         Height = 267
  838.         Align = alClient
  839.         Lines.Strings = (
  840.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  841.           'begin'
  842.           ' Memo1.CopyToClipboard;'
  843.           'end;'
  844.           '========'
  845.           'procedure TForm1.SpeedButton2Click(Sender: TObject);'
  846.           'begin'
  847.           ' Memo1.CutToClipboard;'
  848.           'end;'
  849.           '========'
  850.           'procedure TForm1.SpeedButton3Click(Sender: TObject);'
  851.           'begin'
  852.           ' Memo1.PasteFromClipboard;'
  853.           'end;'
  854.           '=================================================='
  855.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te 3x SpeedButton a 1 komponentu Memo.'
  856.           '-1. tla∩┐╜∩┐╜tko kop∩┐╜ruje a 2. tla∩┐╜∩┐╜tko vyjme vybran∩┐╜ text z Memo '
  857.           ' do schr∩┐╜nky, 3. tla∩┐╜∩┐╜tko vlo∩┐╜∩┐╜ text ze schr∩┐╜nky do Memo.')
  858.         ReadOnly = True
  859.         ScrollBars = ssVertical
  860.         TabOrder = 0
  861.       end
  862.     end
  863.     object TTabPage
  864.       Left = 4
  865.       Top = 24
  866.       Caption = '022'
  867.       object Memo22: TMemo
  868.         Left = 0
  869.         Top = 0
  870.         Width = 325
  871.         Height = 267
  872.         Align = alClient
  873.         Lines.Strings = (
  874.           'procedure TForm1.ListBox1DblClick(Sender: TObject);'
  875.           'begin'
  876.           ' if Sender is TListBox then'
  877.           '   Shape1.Shape := TShapeType(TListBox(Sender).ItemIndex)'
  878.           'end;'
  879.           '=================================================='
  880.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Shape a ListBox. V Object In-'
  881.           ' spectoru u komponenty ListBox v Events u OnDblClick vlo∩┐╜te'
  882.           ' ListBox1DblClick a v Properties vlo∩┐╜te u Items: rectangle,'
  883.           ' circle, square, round rect, round square a ellipse.'
  884.           '-P∩┐╜i dvojit∩┐╜m kliknut∩┐╜ na polo∩┐╜ku v ListBox se zm∩┐╜n∩┐╜ tvar Shape'
  885.           ' dle vybran∩┐╜ polo∩┐╜ky.')
  886.         ReadOnly = True
  887.         ScrollBars = ssVertical
  888.         TabOrder = 0
  889.       end
  890.     end
  891.     object TTabPage
  892.       Left = 4
  893.       Top = 24
  894.       Caption = '023'
  895.       object Memo23: TMemo
  896.         Left = 0
  897.         Top = 0
  898.         Width = 325
  899.         Height = 267
  900.         Align = alClient
  901.         Lines.Strings = (
  902.           'procedure TForm1.Form1Create(Sender: TObject);'
  903.           'var'
  904.           '   R: HRgn;'
  905.           'begin'
  906.           ' R:= CreateRoundRectRgn(0,0,Width,Height,20,20);'
  907.           ' SetWindowRgn(Handle, R, True);'
  908.           'end;'
  909.           '=================================================='
  910.           '-V Object Inspectoru u Form1 v Events u OnCreate vlo∩┐╜te'
  911.           ' Form1Create.'
  912.           '-Formul∩┐╜∩┐╜ bude m∩┐╜t po kompilaci zaoblen∩┐╜ rohy.')
  913.         ReadOnly = True
  914.         ScrollBars = ssVertical
  915.         TabOrder = 0
  916.       end
  917.     end
  918.     object TTabPage
  919.       Left = 4
  920.       Top = 24
  921.       Caption = '024'
  922.       object Memo24: TMemo
  923.         Left = 0
  924.         Top = 0
  925.         Width = 325
  926.         Height = 267
  927.         Align = alClient
  928.         Lines.Strings = (
  929.           'procedure TForm1.Form1Create(Sender: TObject);'
  930.           'var'
  931.           '  S: string;'
  932.           'begin'
  933.           '  S := IntToStr (DiskFree(0) div 1024)  + '#39' kB'#39';'
  934.           '  Panel1.Caption := S;'
  935.           'end;'
  936.           '=================================================='
  937.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Panel. V Object Inspectoru u '
  938.           ' Form1 v Events u OnCreate vlo∩┐╜te Form1Create.'
  939.           '-Po kompilaci se na panelu objev∩┐╜ ∩┐╜daj o voln∩┐╜m m∩┐╜stu na hard'
  940.           ' disku.')
  941.         ReadOnly = True
  942.         ScrollBars = ssVertical
  943.         TabOrder = 0
  944.       end
  945.     end
  946.     object TTabPage
  947.       Left = 4
  948.       Top = 24
  949.       Caption = '025'
  950.       object Memo25: TMemo
  951.         Left = 0
  952.         Top = 0
  953.         Width = 325
  954.         Height = 267
  955.         Align = alClient
  956.         Lines.Strings = (
  957.           'procedure TForm1.DriveComboBox1Change(Sender: TObject);'
  958.           'begin '
  959.           ' Label1.Caption:=IntToStr(DiskFree(Ord(DriveComboBox1.Drive)'
  960.           ' -64));'
  961.           ' Label2.Caption:=IntToStr(DiskSize(Ord(DriveComboBox1.Drive)'
  962.           ' -64)-DiskFree(Ord(DriveComboBox1.Drive)-64));'
  963.           ' Label3.Caption:=IntToStr(DiskSize(Ord(DriveComboBox1.Drive)'
  964.           ' -64));'
  965.           'end;'
  966.           '=================================================='
  967.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu DriveComboBox a 3x Label.'
  968.           ' V Object Inspectoru u DriveComboBox1 v Events u OnChange'
  969.           ' vlo∩┐╜te DriveComboBox1Change.'
  970.           '-Po kompilaci se objev∩┐╜ ∩┐╜daje o voln∩┐╜m m∩┐╜stu, obsazen∩┐╜m'
  971.           ' m∩┐╜stu a celkov∩┐╜ kapacit∩┐╜ vybran∩┐╜ho disku.')
  972.         ReadOnly = True
  973.         ScrollBars = ssVertical
  974.         TabOrder = 0
  975.       end
  976.     end
  977.     object TTabPage
  978.       Left = 4
  979.       Top = 24
  980.       Caption = '026'
  981.       object Memo26: TMemo
  982.         Left = 0
  983.         Top = 0
  984.         Width = 325
  985.         Height = 267
  986.         Align = alClient
  987.         Lines.Strings = (
  988.           'procedure TForm1.SpeedButton1Click(Sender: TObject);'
  989.           'begin'
  990.           '  BorderIcons := BorderIcons - [biMinimize];'
  991.           '  BorderIcons := BorderIcons - [biMaximize];'
  992.           '  BorderIcons := BorderIcons - [biHelp];'
  993.           '  BorderIcons := BorderIcons - [biSystemMenu];'
  994.           'end;'
  995.           '=================================================='
  996.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu SpeedButton.'
  997.           '-Po stisku tla∩┐╜∩┐╜tka se odstran∩┐╜ minimaliza∩┐╜n∩┐╜, maximaliza∩┐╜n∩┐╜'
  998.           ' a zav∩┐╜rac∩┐╜ tla∩┐╜∩┐╜tko z titulku formul∩┐╜∩┐╜e.')
  999.         ReadOnly = True
  1000.         ScrollBars = ssVertical
  1001.         TabOrder = 0
  1002.       end
  1003.     end
  1004.     object TTabPage
  1005.       Left = 4
  1006.       Top = 24
  1007.       Caption = '027'
  1008.       object Memo27: TMemo
  1009.         Left = 0
  1010.         Top = 0
  1011.         Width = 325
  1012.         Height = 267
  1013.         Align = alClient
  1014.         Lines.Strings = (
  1015.           'procedure TForm1.Form1Create(Sender: TObject);'
  1016.           'begin'
  1017.           ' BitBtn1.Kind := bkOK;'
  1018.           ' BitBtn2.Kind := bkCancel;'
  1019.           ' BitBtn3.Kind := bkHelp;'
  1020.           'end;'
  1021.           '=================================================='
  1022.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te 3x komponentu BitBtn. V Object Inspectoru '
  1023.           ' u Form1 v Events u OnCreate vlo∩┐╜te Form1Create.'
  1024.           '-Po spu∩┐╜t∩┐╜n∩┐╜ budou m∩┐╜t tla∩┐╜∩┐╜tka bitmapov∩┐╜ popisek.')
  1025.         ReadOnly = True
  1026.         ScrollBars = ssVertical
  1027.         TabOrder = 0
  1028.       end
  1029.     end
  1030.     object TTabPage
  1031.       Left = 4
  1032.       Top = 24
  1033.       Caption = '028'
  1034.       object Memo28: TMemo
  1035.         Left = 0
  1036.         Top = 0
  1037.         Width = 325
  1038.         Height = 267
  1039.         Align = alClient
  1040.         Lines.Strings = (
  1041.           'procedure TForm1.FormClick(Sender: TObject);'
  1042.           'begin'
  1043.           '  Randomize;'
  1044.           '  Color := Random(65535);'
  1045.           'end;'
  1046.           '=================================================='
  1047.           '-V Object Inspectoru u  Form1 v Events u OnClick vlo∩┐╜te'
  1048.           ' FormClick.'
  1049.           '-P∩┐╜i ka∩┐╜d∩┐╜m kliknut∩┐╜ my∩┐╜∩┐╜ nad formul∩┐╜∩┐╜em se zm∩┐╜n∩┐╜ jeho barva.')
  1050.         ReadOnly = True
  1051.         ScrollBars = ssVertical
  1052.         TabOrder = 0
  1053.       end
  1054.     end
  1055.     object TTabPage
  1056.       Left = 4
  1057.       Top = 24
  1058.       Caption = '029'
  1059.       object Memo29: TMemo
  1060.         Left = 0
  1061.         Top = 0
  1062.         Width = 325
  1063.         Height = 267
  1064.         Align = alClient
  1065.         Lines.Strings = (
  1066.           'procedure TForm1.Button1Click(Sender: TObject);'
  1067.           'var'
  1068.           '  I: Integer;'
  1069.           'begin'
  1070.           '  for I := 0 to ComponentCount -1 do'
  1071.           '     if Components[I] is TButton then'
  1072.           '     TButton(Components[I]).Font.Name := '#39'Courier'#39';'
  1073.           '  Edit1.Text := IntToStr(ComponentCount) + '#39' components'#39';'
  1074.           'end;'
  1075.           '=================================================='
  1076.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Button, Edit a SpeedButton.'
  1077.           '-Po stisku tla∩┐╜∩┐╜tka Button se font jeho popisu zm∩┐╜n∩┐╜ na Courier'
  1078.           ' a v Edit se objev∩┐╜ po∩┐╜et komponent um∩┐╜st∩┐╜n∩┐╜ch na formul∩┐╜∩┐╜i.')
  1079.         ReadOnly = True
  1080.         ScrollBars = ssVertical
  1081.         TabOrder = 0
  1082.       end
  1083.     end
  1084.     object TTabPage
  1085.       Left = 4
  1086.       Top = 24
  1087.       Caption = '030'
  1088.       object Memo30: TMemo
  1089.         Left = 0
  1090.         Top = 0
  1091.         Width = 325
  1092.         Height = 267
  1093.         Align = alClient
  1094.         Lines.Strings = (
  1095.           'procedure TForm1.FormCreate(Sender: TObject);'
  1096.           'begin'
  1097.           ' BitBtn1.Glyph.LoadFromFile('#39'zoomin.BMP'#39');'
  1098.           'end;'
  1099.           '=================================================='
  1100.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu BitBtn. V Object Inspectoru '
  1101.           ' u Form1 v Events u OnCreate vlo∩┐╜te FormCreate. Ve stejn∩┐╜m'
  1102.           ' adres∩┐╜∩┐╜i jako soubory t∩┐╜to aplikace mus∩┐╜ b∩┐╜t soubor *.BMP.'
  1103.           '-Po spu∩┐╜t∩┐╜n∩┐╜ se na tla∩┐╜∩┐╜tko nahraje bitmapa.')
  1104.         ReadOnly = True
  1105.         ScrollBars = ssVertical
  1106.         TabOrder = 0
  1107.       end
  1108.     end
  1109.     object TTabPage
  1110.       Left = 4
  1111.       Top = 24
  1112.       Caption = '031'
  1113.       object Memo31: TMemo
  1114.         Left = 0
  1115.         Top = 0
  1116.         Width = 325
  1117.         Height = 267
  1118.         Align = alClient
  1119.         Lines.Strings = (
  1120.           'procedure TForm1.BitBtn1Click(Sender: TObject);'
  1121.           'begin'
  1122.           '  case Random(4) of'
  1123.           '    0: BitBtn1.Layout := blGlyphLeft;'
  1124.           '    1: BitBtn1.Layout := blGlyphRight;'
  1125.           '    2: BitBtn1.Layout := blGlyphTop;'
  1126.           '    3: BitBtn1.Layout := blGlyphBottom;'
  1127.           '  end;'
  1128.           'end;'
  1129.           '=================================================='
  1130.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu BitBtn.'
  1131.           '-Po opakovan∩┐╜m stisku tla∩┐╜∩┐╜tka se popisek posunuje n∩┐╜hodn∩┐╜'
  1132.           ' doprava, doleva, nahoru ∩┐╜i dol∩┐╜.')
  1133.         ReadOnly = True
  1134.         ScrollBars = ssVertical
  1135.         TabOrder = 0
  1136.       end
  1137.     end
  1138.     object TTabPage
  1139.       Left = 4
  1140.       Top = 24
  1141.       Caption = '032'
  1142.       object Memo32: TMemo
  1143.         Left = 0
  1144.         Top = 0
  1145.         Width = 325
  1146.         Height = 267
  1147.         Align = alClient
  1148.         Lines.Strings = (
  1149.           'procedure TForm1.PaintBoxPaint(Sender: TObject);'
  1150.           'var'
  1151.           '  Bitmap1: TBitmap;'
  1152.           'begin'
  1153.           '  Bitmap1 := TBitmap.Create;'
  1154.           '  Bitmap1.LoadFromFile('#39'c:\graphic\button.bmp'#39');'
  1155.           '  PaintBox1.Canvas.Draw(0, 0, Bitmap1);'
  1156.           '  Bitmap1.Free;'
  1157.           'end;'
  1158.           '=================================================='
  1159.           '-V Object Inspectoru u PaintBox1 v Events u OnPaint vlo∩┐╜te '
  1160.           ' PaintBoxPaint.'
  1161.           '-Po spu∩┐╜t∩┐╜n∩┐╜ je do PaintBox nahr∩┐╜na bitmapa ze souboru dle'
  1162.           ' uveden∩┐╜ch sou∩┐╜adnic a cesty.')
  1163.         ReadOnly = True
  1164.         ScrollBars = ssVertical
  1165.         TabOrder = 0
  1166.       end
  1167.     end
  1168.     object TTabPage
  1169.       Left = 4
  1170.       Top = 24
  1171.       Caption = '033'
  1172.       object Memo33: TMemo
  1173.         Left = 0
  1174.         Top = 0
  1175.         Width = 325
  1176.         Height = 267
  1177.         Align = alClient
  1178.         Lines.Strings = (
  1179.           'procedure TForm1.MemoMouseDown(Sender: TObject; '
  1180.           ' Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);'
  1181.           'begin'
  1182.           ' Edit1.Text := IntToStr(X) + '#39' je sou∩┐╜adnice X Memo'#39';'
  1183.           ' Edit2.Text := IntToStr(Y) + '#39' je sou∩┐╜adnice Y Memo'#39';'
  1184.           'end;'
  1185.           '=================================================='
  1186.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Memo a 2x Edit. V Object In-'
  1187.           ' spectoru u Memo v Events u OnMouseDown vlo∩┐╜te'
  1188.           ' MemoMouseDown.'
  1189.           '-P∩┐╜i stisku tla∩┐╜∩┐╜tka my∩┐╜i se uk∩┐╜∩┐╜ sou∩┐╜adnice kurzoru my∩┐╜i.')
  1190.         ReadOnly = True
  1191.         ScrollBars = ssVertical
  1192.         TabOrder = 0
  1193.       end
  1194.     end
  1195.     object TTabPage
  1196.       Left = 4
  1197.       Top = 24
  1198.       Caption = '034'
  1199.       object Memo34: TMemo
  1200.         Left = 0
  1201.         Top = 0
  1202.         Width = 325
  1203.         Height = 267
  1204.         Align = alClient
  1205.         Lines.Strings = (
  1206.           'procedure TForm1.Button1Click(Sender: TObject);'
  1207.           'begin'
  1208.           ' ScaleBy(110, 100);'
  1209.           'end;'
  1210.           '=================================================='
  1211.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu Button.'
  1212.           '-P∩┐╜i stisku tla∩┐╜∩┐╜tka se toto zv∩┐╜t∩┐╜uje o 10 %.')
  1213.         ReadOnly = True
  1214.         ScrollBars = ssVertical
  1215.         TabOrder = 0
  1216.       end
  1217.     end
  1218.     object TTabPage
  1219.       Left = 4
  1220.       Top = 24
  1221.       Caption = '035'
  1222.       object Memo35: TMemo
  1223.         Left = 0
  1224.         Top = 0
  1225.         Width = 325
  1226.         Height = 267
  1227.         Align = alClient
  1228.         Lines.Strings = (
  1229.           'procedure TForm1.Button1Click(Sender: TObject);'
  1230.           'begin'
  1231.           ' Label1.Font.Assign(Button1.Font);'
  1232.           'end;'
  1233.           '=================================================='
  1234.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Button a Label a u obou'
  1235.           ' nastavte v Properties odli∩┐╜n∩┐╜ fonty.'
  1236.           '-Po stisku tla∩┐╜∩┐╜tka Button se v Label objev∩┐╜ font, kter∩┐╜ m∩┐╜'
  1237.           ' nastaven Button.')
  1238.         ReadOnly = True
  1239.         ScrollBars = ssVertical
  1240.         TabOrder = 0
  1241.       end
  1242.     end
  1243.     object TTabPage
  1244.       Left = 4
  1245.       Top = 24
  1246.       Caption = '036'
  1247.       object Memo36: TMemo
  1248.         Left = 0
  1249.         Top = 0
  1250.         Width = 325
  1251.         Height = 267
  1252.         Align = alClient
  1253.         Lines.Strings = (
  1254.           'procedure TForm1.Button1Click(Sender: TObject);'
  1255.           'begin'
  1256.           ' Memo1.Lines.SaveToFile('#39'c:\TEXT.TXT'#39');'
  1257.           'end;'
  1258.           '========'
  1259.           'procedure TForm1.Button2Click(Sender: TObject);'
  1260.           'begin'
  1261.           ' Memo1.Lines.LoadFromFile('#39'c:\TEXT.TXT'#39');'
  1262.           'end;'
  1263.           '=================================================='
  1264.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te 2x Button a 1x Memo. Do Memo napi∩┐╜te'
  1265.           ' text.'
  1266.           '-Po spu∩┐╜t∩┐╜n∩┐╜ 1. tla∩┐╜∩┐╜tko obsah Memo ulo∩┐╜∩┐╜ do textov∩┐╜ho'
  1267.           ' souboru a 2. tla∩┐╜∩┐╜tko ulo∩┐╜en∩┐╜ text nahraje zp∩┐╜t do Memo.')
  1268.         ReadOnly = True
  1269.         ScrollBars = ssVertical
  1270.         TabOrder = 0
  1271.       end
  1272.     end
  1273.     object TTabPage
  1274.       Left = 4
  1275.       Top = 24
  1276.       Caption = '037'
  1277.       object Memo37: TMemo
  1278.         Left = 0
  1279.         Top = 0
  1280.         Width = 325
  1281.         Height = 267
  1282.         Align = alClient
  1283.         Lines.Strings = (
  1284.           'procedure TForm1.Button1Click(Sender: TObject);'
  1285.           ' var TheIcon: TPicture;'
  1286.           'begin'
  1287.           '  OpenDialog1.FileName := '#39'*.ICO'#39';'
  1288.           '  if OpenDialog1.Execute then'
  1289.           '  begin'
  1290.           '    TheIcon := TPicture.Create;'
  1291.           '    TheIcon.LoadFromFile(OpenDialog1.FileName);'
  1292.           '    Form1.Icon := TheIcon.Icon;'
  1293.           '  end;'
  1294.           'end;'
  1295.           '=================================================='
  1296.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Button a OpenDialog.'
  1297.           '-Po stisknut∩┐╜ tla∩┐╜∩┐╜tka se otev∩┐╜e dialogov∩┐╜ okno, ve kter∩┐╜m '
  1298.           ' vyberte libovolnou ikonu (*.ICO). Po potvrzen∩┐╜ se tato ikona'
  1299.           ' objev∩┐╜ v titulku formul∩┐╜∩┐╜e.')
  1300.         ReadOnly = True
  1301.         ScrollBars = ssVertical
  1302.         TabOrder = 0
  1303.       end
  1304.     end
  1305.     object TTabPage
  1306.       Left = 4
  1307.       Top = 24
  1308.       Caption = '038'
  1309.       object Memo38: TMemo
  1310.         Left = 0
  1311.         Top = 0
  1312.         Width = 325
  1313.         Height = 267
  1314.         Align = alClient
  1315.         Lines.Strings = (
  1316.           'procedure TForm1.Button1Click(Sender: TObject);'
  1317.           'begin'
  1318.           '  Label1.Font.Height := 20;'
  1319.           'end;'
  1320.           '=================================================='
  1321.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button a Label.'
  1322.           '-Pokud n∩┐╜kdy pot∩┐╜ebujete zm∩┐╜nit velikost fontu b∩┐╜hem '
  1323.           ' programu, stisk tla∩┐╜∩┐╜tka to umo∩┐╜n∩┐╜.')
  1324.         ReadOnly = True
  1325.         ScrollBars = ssVertical
  1326.         TabOrder = 0
  1327.       end
  1328.     end
  1329.     object TTabPage
  1330.       Left = 4
  1331.       Top = 24
  1332.       Caption = '039'
  1333.       object Memo39: TMemo
  1334.         Left = 0
  1335.         Top = 0
  1336.         Width = 325
  1337.         Height = 267
  1338.         Align = alClient
  1339.         Lines.Strings = (
  1340.           'procedure TForm1.Button1Click(Sender: TObject);'
  1341.           ' var'
  1342.           '  NewRect: TRect;'
  1343.           'begin'
  1344.           '  NewRect := RadioButton1.BoundsRect;'
  1345.           '  with NewRect do'
  1346.           '  begin'
  1347.           '    Left := Left - 10;'
  1348.           '    Top := Top - 10;'
  1349.           '    Right := Right + 10;'
  1350.           '    Bottom := Bottom + 10;'
  1351.           '  end;'
  1352.           '  Form1.Canvas.DrawFocusRect(NewRect);'
  1353.           'end;'
  1354.           '=================================================='
  1355.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button a RadioButton.'
  1356.           
  1357.             '-Stisk tla∩┐╜∩┐╜tka Button ozna∩┐╜∩┐╜ a dal∩┐╜∩┐╜ stisk odzna∩┐╜∩┐╜ prostor kole' +
  1358.             'm'
  1359.           ' RadioButton dle nastaven∩┐╜.')
  1360.         ReadOnly = True
  1361.         ScrollBars = ssVertical
  1362.         TabOrder = 0
  1363.       end
  1364.     end
  1365.     object TTabPage
  1366.       Left = 4
  1367.       Top = 24
  1368.       Caption = '040'
  1369.       object Memo40: TMemo
  1370.         Left = 0
  1371.         Top = 0
  1372.         Width = 325
  1373.         Height = 267
  1374.         Align = alClient
  1375.         Lines.Strings = (
  1376.           'procedure TForm1.Button1Click(Sender: TObject);'
  1377.           ' var'
  1378.           '  TheRect: TRect;'
  1379.           'begin'
  1380.           '  Form1.Canvas.Brush.Color := clRed;'
  1381.           '  Form1.Canvas.Brush.Style := bsVertical;'
  1382.           '  TheRect.Top := 10;'
  1383.           '  TheRect.Left := 10;'
  1384.           '  TheRect.Bottom := 100;'
  1385.           '  TheRect.Right := 100;'
  1386.           '  Form1.Canvas.TextRect(TheRect,40,50,'#39'Ahoj!'#39');'
  1387.           '  Form1.Canvas.FrameRect(TheRect);'
  1388.           'end;'
  1389.           '=================================================='
  1390.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button.'
  1391.           '-Stisk tla∩┐╜∩┐╜tka dle nastaven∩┐╜ um∩┐╜st∩┐╜ text a vybarv∩┐╜ podklad.')
  1392.         ReadOnly = True
  1393.         ScrollBars = ssVertical
  1394.         TabOrder = 0
  1395.       end
  1396.     end
  1397.     object TTabPage
  1398.       Left = 4
  1399.       Top = 24
  1400.       Caption = '041'
  1401.       object Memo41: TMemo
  1402.         Left = 0
  1403.         Top = 0
  1404.         Width = 325
  1405.         Height = 267
  1406.         Align = alClient
  1407.         Lines.Strings = (
  1408.           'procedure TForm1.Button1Click(Sender: TObject);'
  1409.           ' var'
  1410.           '  MyRect: TRect;'
  1411.           'begin'
  1412.           '  MyRect := Button2.BoundsRect;'
  1413.           '  MyRect.Right := MyRect.Left + 2 * (MyRect.Right - '
  1414.           '    MyRect.Left);'
  1415.           '  MyRect.Bottom := MyRect.Top + (MyRect.Bottom - '
  1416.           '    MyRect.Top) div 2;'
  1417.           '  Button2.BoundsRect := MyRect;'
  1418.           'end;'
  1419.           '=================================================='
  1420.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te 2x Button.'
  1421.           '-P∩┐╜i ka∩┐╜d∩┐╜m stisku 1. tla∩┐╜∩┐╜tka se v∩┐╜∩┐╜ka 2. tla∩┐╜∩┐╜tka sn∩┐╜∩┐╜ na '
  1422.           ' polovinu a d∩┐╜lka se 2x prodlou∩┐╜∩┐╜.')
  1423.         ReadOnly = True
  1424.         ScrollBars = ssVertical
  1425.         TabOrder = 0
  1426.       end
  1427.     end
  1428.     object TTabPage
  1429.       Left = 4
  1430.       Top = 24
  1431.       Caption = '042'
  1432.       object Memo42: TMemo
  1433.         Left = 0
  1434.         Top = 0
  1435.         Width = 325
  1436.         Height = 267
  1437.         Align = alClient
  1438.         Lines.Strings = (
  1439.           'procedure TForm1.FormKeyPress(Sender: TObject; var Key: '
  1440.           'Char);'
  1441.           'begin'
  1442.           ' MessageDlg(Key + '#39' - stisknuto'#39', mtInformation, [mbOK], 0)'
  1443.           'end;'
  1444.           '=================================================='
  1445.           '-V Object Inspectoru v Events u OnKeyPress vlo∩┐╜te'
  1446.           ' FormKeyPress.'
  1447.           '-P∩┐╜i stisku kl∩┐╜vesy se zobraz∩┐╜, kter∩┐╜ kl∩┐╜vesa byla stisknuta.')
  1448.         ReadOnly = True
  1449.         ScrollBars = ssVertical
  1450.         TabOrder = 0
  1451.       end
  1452.     end
  1453.     object TTabPage
  1454.       Left = 4
  1455.       Top = 24
  1456.       Caption = '043'
  1457.       object Memo43: TMemo
  1458.         Left = 0
  1459.         Top = 0
  1460.         Width = 325
  1461.         Height = 267
  1462.         Align = alClient
  1463.         Lines.Strings = (
  1464.           'procedure TProcsForm.SpeedButton1Click(Sender: TObject);'
  1465.           ' var'
  1466.           '  PrintFile: TextFile;'
  1467.           '  I: Integer;'
  1468.           'begin'
  1469.           '  if PrintDialog1.Execute then'
  1470.           '    begin'
  1471.           '      AssignPrn(PrintFile);'
  1472.           '      Rewrite(PrintFile);'
  1473.           '      Printer.Canvas.Font:=Memo1.Font;'
  1474.           '      for I:=0 to Memo1.Lines.Count-1 do'
  1475.           '         Writeln (PrintFile,Memo1.Lines [I]);'
  1476.           '      System.CloseFile (PrintFile);'
  1477.           '    end;'
  1478.           'end;'
  1479.           '=================================================='
  1480.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te SpeedButton, Memo a PrintDialog.'
  1481.           '-Stiskem tla∩┐╜∩┐╜tka se vytiskne text v Memo.')
  1482.         ReadOnly = True
  1483.         ScrollBars = ssVertical
  1484.         TabOrder = 0
  1485.       end
  1486.     end
  1487.     object TTabPage
  1488.       Left = 4
  1489.       Top = 24
  1490.       Caption = '044'
  1491.       object Memo44: TMemo
  1492.         Left = 0
  1493.         Top = 0
  1494.         Width = 325
  1495.         Height = 267
  1496.         Align = alClient
  1497.         Lines.Strings = (
  1498.           'procedure TForm1.FormClose(Sender: TObject; var Action:'
  1499.           '                                               TCloseAction);'
  1500.           'begin'
  1501.           ' if MessageDlg('#39'Zav∩┐╜∩┐╜t aplikaci ?'#39', mtConfirmation,'
  1502.           '    [mbYes, mbNo], 0) = mrYes then'
  1503.           '    Action := caFree'
  1504.           '  else'
  1505.           '    Action := caNone;'
  1506.           'end;'
  1507.           '=================================================='
  1508.           '-V Object Inspectoru  u Form1 v Events u OnClose vlo∩┐╜te'
  1509.           ' FormClose.'
  1510.           '-P∩┐╜i ukon∩┐╜en∩┐╜ aplikace se zobraz∩┐╜ alternativn∩┐╜ dotaz.')
  1511.         ReadOnly = True
  1512.         ScrollBars = ssVertical
  1513.         TabOrder = 0
  1514.       end
  1515.     end
  1516.     object TTabPage
  1517.       Left = 4
  1518.       Top = 24
  1519.       Caption = '045'
  1520.       object Memo45: TMemo
  1521.         Left = 0
  1522.         Top = 0
  1523.         Width = 325
  1524.         Height = 267
  1525.         Align = alClient
  1526.         Lines.Strings = (
  1527.           'procedure TForm1.FormKeyDown(Sender: TObject; var Key: '
  1528.           ' Word; Shift: TShiftState);'
  1529.           'begin'
  1530.           ' if (Key=VK_ESCAPE) and Printer.Printing then'
  1531.           '  begin'
  1532.           '    Printer.Abort;'
  1533.           '    MessageDlg('#39'Printing aborted'#39', mtInformation, [mbOK],0);'
  1534.           '  end;'
  1535.           'end;'
  1536.           '=================================================='
  1537.           '-V Object Inspectoru v Events u OnKeyDown vlo∩┐╜te '
  1538.           ' FormKeyDown.'
  1539.           '-Stisk kl∩┐╜vesy Esc p∩┐╜eru∩┐╜∩┐╜ tisk na tisk∩┐╜rn∩┐╜.')
  1540.         ReadOnly = True
  1541.         ScrollBars = ssVertical
  1542.         TabOrder = 0
  1543.       end
  1544.     end
  1545.     object TTabPage
  1546.       Left = 4
  1547.       Top = 24
  1548.       Caption = '046'
  1549.       object Memo46: TMemo
  1550.         Left = 0
  1551.         Top = 0
  1552.         Width = 325
  1553.         Height = 267
  1554.         Align = alClient
  1555.         Lines.Strings = (
  1556.           'procedure TForm1.Button1Click(Sender: TObject);'
  1557.           'begin'
  1558.           ' with Printer do'
  1559.           '  begin'
  1560.           '    BeginDoc;'
  1561.           '    Canvas.Rectangle(30, 30, 400, 300);'
  1562.           '    EndDoc;'
  1563.           '  end;'
  1564.           '   Canvas.TextOut(10, 10, '#39'Tisknu'#39');'
  1565.           'end;'
  1566.           '=================================================='
  1567.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button, v k∩┐╜du do Uses vlo∩┐╜te Printers.'
  1568.           '-Po stisku Button se vytiskne dle nastaven∩┐╜ r∩┐╜me∩┐╜ek.')
  1569.         ReadOnly = True
  1570.         ScrollBars = ssVertical
  1571.         TabOrder = 0
  1572.       end
  1573.     end
  1574.     object TTabPage
  1575.       Left = 4
  1576.       Top = 24
  1577.       Caption = '047'
  1578.       object Memo47: TMemo
  1579.         Left = 0
  1580.         Top = 0
  1581.         Width = 325
  1582.         Height = 267
  1583.         Align = alClient
  1584.         Lines.Strings = (
  1585.           'procedure TForm1.Button1Click(Sender: TObject);'
  1586.           ' var'
  1587.           '  I, J: Integer;'
  1588.           'begin'
  1589.           '  with StringGrid1 do'
  1590.           '    for I := 1 to ColCount do'
  1591.           '      for J:= 1 to RowCount do'
  1592.           '        Cells[I,J] := '#39'Delphi'#39';'
  1593.           'end;'
  1594.           '=================================================='
  1595.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te StringGrid a Button.'
  1596.           '-Po stisku Button se do bun∩┐╜k tabulky vyp∩┐╜e zadan∩┐╜ text.')
  1597.         ReadOnly = True
  1598.         ScrollBars = ssVertical
  1599.         TabOrder = 0
  1600.       end
  1601.     end
  1602.     object TTabPage
  1603.       Left = 4
  1604.       Top = 24
  1605.       Caption = '048'
  1606.       object Memo48: TMemo
  1607.         Left = 0
  1608.         Top = 0
  1609.         Width = 325
  1610.         Height = 267
  1611.         Align = alClient
  1612.         Lines.Strings = (
  1613.           'procedure TForm1.FormMouseDown(Sender: TObject; Button:'
  1614.           ' TMouseButton; Shift: TShiftState; X, Y: Integer);'
  1615.           'begin'
  1616.           ' Canvas.TextOut(X, Y, '#39'Tady'#39');'
  1617.           'end;'
  1618.           '=================================================='
  1619.           '-V Object Inspectoru v Events formul∩┐╜∩┐╜e u OnMouseDown'
  1620.           ' vlo∩┐╜te FormMouseDown.'
  1621.           '-P∩┐╜i stisku tla∩┐╜∩┐╜tka my∩┐╜i se na sou∩┐╜adnic∩┐╜ch kursoru my∩┐╜i vyp∩┐╜e'
  1622.           ' vlo∩┐╜en∩┐╜ text.')
  1623.         ReadOnly = True
  1624.         ScrollBars = ssVertical
  1625.         TabOrder = 0
  1626.       end
  1627.     end
  1628.     object TTabPage
  1629.       Left = 4
  1630.       Top = 24
  1631.       Caption = '049'
  1632.       object Memo49: TMemo
  1633.         Left = 0
  1634.         Top = 0
  1635.         Width = 325
  1636.         Height = 267
  1637.         Align = alClient
  1638.         Lines.Strings = (
  1639.           'procedure TForm1.Button1Click(Sender: TObject);'
  1640.           'begin'
  1641.           ' Memo1.SelectAll;'
  1642.           ' Memo1.CutToClipboard;'
  1643.           ' Memo2.Clear;'
  1644.           ' Memo2.PasteFromClipboard;'
  1645.           ' Memo1.SetFocus;'
  1646.           'end;'
  1647.           '=================================================='
  1648.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button a 2x Memo.'
  1649.           '-Po stisku tla∩┐╜∩┐╜tka se text vyjme z Memo1 a vlo∩┐╜∩┐╜ do Memo2.'
  1650.           ' Kursor se nastav∩┐╜ do Memo1.')
  1651.         ReadOnly = True
  1652.         ScrollBars = ssVertical
  1653.         TabOrder = 0
  1654.       end
  1655.     end
  1656.     object TTabPage
  1657.       Left = 4
  1658.       Top = 24
  1659.       Caption = '050'
  1660.       object Memo50: TMemo
  1661.         Left = 0
  1662.         Top = 0
  1663.         Width = 325
  1664.         Height = 267
  1665.         Align = alClient
  1666.         Lines.Strings = (
  1667.           'procedure TForm1.StringGrid1Click(Sender: TObject);'
  1668.           'begin'
  1669.           ' Label1.Caption := '#39'Kursor je ve sloupci '#39' + '
  1670.           ' IntToStr(StringGrid1.Col + 1) +'
  1671.           ' '#39', ∩┐╜∩┐╜dku '#39' + IntToStr(StringGrid1.Row + 1);'
  1672.           'end;'
  1673.           '=================================================='
  1674.           '-Do formul∩┐╜∩┐╜e vlo∩┐╜te StringGrid a Label.'
  1675.           '-P∩┐╜i stisku tla∩┐╜∩┐╜tka my∩┐╜i se v Label zobraz∩┐╜, ve kter∩┐╜m ∩┐╜∩┐╜dku '
  1676.           ' a sloupci je um∩┐╜st∩┐╜n kursor my∩┐╜i.')
  1677.         ReadOnly = True
  1678.         ScrollBars = ssVertical
  1679.         TabOrder = 0
  1680.       end
  1681.     end
  1682.     object TTabPage
  1683.       Left = 4
  1684.       Top = 24
  1685.       Caption = '051'
  1686.       object Memo51: TMemo
  1687.         Left = 0
  1688.         Top = 0
  1689.         Width = 325
  1690.         Height = 267
  1691.         Align = alClient
  1692.         Lines.Strings = (
  1693.           'procedure TForm1.FindDialog1Find(Sender: TObject);'
  1694.           ' var'
  1695.           '  I, J, PosReturn, SkipChars: Integer;'
  1696.           'begin'
  1697.           '  for I := 0 to Memo1.Lines.Count do'
  1698.           '  begin'
  1699.           '    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);'
  1700.           '    if PosReturn <> 0 then '
  1701.           '      begin'
  1702.           '        Skipchars := 0;'
  1703.           '        for J := 0 to I - 1 do'
  1704.           '        Skipchars := Skipchars + Length(Memo1.Lines[J]);'
  1705.           '        SkipChars := SkipChars + (I*2);'
  1706.           '        SkipChars := SkipChars + PosReturn - 1;'
  1707.           '        Memo1.SetFocus;'
  1708.           '        Memo1.SelStart := SkipChars;'
  1709.           '        Memo1.SelLength := Length(FindDialog1.FindText);'
  1710.           '      end;'
  1711.           '  end;'
  1712.           'end;'
  1713.           '========'
  1714.           'procedure TForm1.Button1Click(Sender: TObject);'
  1715.           'begin'
  1716.           ' FindDialog1.Position := Point(0, 0);'
  1717.           ' FindDialog1.Execute;'
  1718.           'end;'
  1719.           '=================================================='
  1720.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Memo, Button a FindDialog.'
  1721.           ' Po dvojit∩┐╜m kliknut∩┐╜ na Button a FindDialog vlo∩┐╜te v k∩┐╜du'
  1722.           ' uveden∩┐╜ procedury.'
  1723.           '-Po stisku tla∩┐╜∩┐╜tka se otev∩┐╜e dialogov∩┐╜ okno na nastaven∩┐╜'
  1724.           ' pozici (Point) a po zad∩┐╜n∩┐╜ hledan∩┐╜ho textu se tento vyhled∩┐╜.  ')
  1725.         ReadOnly = True
  1726.         ScrollBars = ssVertical
  1727.         TabOrder = 0
  1728.       end
  1729.     end
  1730.     object TTabPage
  1731.       Left = 4
  1732.       Top = 24
  1733.       Caption = '052'
  1734.       object Memo52: TMemo
  1735.         Left = 0
  1736.         Top = 0
  1737.         Width = 325
  1738.         Height = 267
  1739.         Align = alClient
  1740.         Lines.Strings = (
  1741.           'procedure TForm1.Button1Click(Sender: TObject);'
  1742.           'begin'
  1743.           ' Label1.Caption := DateTimeToStr(Now);'
  1744.           'end;'
  1745.           '=================================================='
  1746.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Button a Label.'
  1747.           '-Stisk tla∩┐╜∩┐╜tka vlo∩┐╜∩┐╜ do formul∩┐╜∩┐╜e aktu∩┐╜ln∩┐╜ datum a ∩┐╜as.')
  1748.         ReadOnly = True
  1749.         ScrollBars = ssVertical
  1750.         TabOrder = 0
  1751.       end
  1752.     end
  1753.     object TTabPage
  1754.       Left = 4
  1755.       Top = 24
  1756.       Caption = '053'
  1757.       object Memo53: TMemo
  1758.         Left = 0
  1759.         Top = 0
  1760.         Width = 325
  1761.         Height = 267
  1762.         Align = alClient
  1763.         Lines.Strings = (
  1764.           'procedure TForm1.Button1Click(Sender: TObject);'
  1765.           'begin'
  1766.           ' StringGrid1.ColCount := 7;'
  1767.           ' StringGrid1.RowCount := 7;'
  1768.           'end;'
  1769.           '=================================================='
  1770.           '-Na formul∩┐╜∩┐╜ um∩┐╜st∩┐╜te komponenty Button a StringGrid.'
  1771.           '-Stiskem tla∩┐╜∩┐╜tka se zm∩┐╜n∩┐╜ po∩┐╜et ∩┐╜∩┐╜dek i sloupc∩┐╜ na 7.')
  1772.         ReadOnly = True
  1773.         ScrollBars = ssVertical
  1774.         TabOrder = 0
  1775.       end
  1776.     end
  1777.     object TTabPage
  1778.       Left = 4
  1779.       Top = 24
  1780.       Caption = '054'
  1781.       object Memo54: TMemo
  1782.         Left = 0
  1783.         Top = 0
  1784.         Width = 325
  1785.         Height = 267
  1786.         Align = alClient
  1787.         Lines.Strings = (
  1788.           'procedure TForm1.Edit1MouseUp(Sender: TObject; '
  1789.           ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
  1790.           'begin'
  1791.           ' Label1.Caption := '#39'Vybran∩┐╜ ∩┐╜et∩┐╜zec =  '#39' + Edit1.SelText;'
  1792.           ' Label2.Caption := '#39'D∩┐╜lka ∩┐╜et∩┐╜zce =  '#39' +'
  1793.           '    IntToStr(Edit1.SelLength);'
  1794.           'end;'
  1795.           '=================================================='
  1796.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Edit a 2x Label. V Object'
  1797.           ' Inspectoru u Edit v Events u OnMouseUp vlo∩┐╜te'
  1798.           ' Edit1MouseUp a vlo∩┐╜te do Edit n∩┐╜jak∩┐╜ text.'
  1799.           '-Po kompilaci vyberte my∩┐╜∩┐╜ libovoln∩┐╜ ∩┐╜sek textu v Edit a ten se'
  1800.           ' uk∩┐╜e v Label1, po∩┐╜et znak∩┐╜ vybran∩┐╜ho textu bude v Label2.')
  1801.         ReadOnly = True
  1802.         ScrollBars = ssVertical
  1803.         TabOrder = 0
  1804.       end
  1805.     end
  1806.     object TTabPage
  1807.       Left = 4
  1808.       Top = 24
  1809.       Caption = '055'
  1810.       object Memo55: TMemo
  1811.         Left = 0
  1812.         Top = 0
  1813.         Width = 325
  1814.         Height = 267
  1815.         Align = alClient
  1816.         Lines.Strings = (
  1817.           'procedure TForm1.RadioButton1Click(Sender: TObject);'
  1818.           'begin'
  1819.           ' Edit1.CharCase := ecLowerCase;'
  1820.           'end;'
  1821.           '========'
  1822.           'procedure TForm1.RadioButton2Click(Sender: TObject);'
  1823.           'begin'
  1824.           '  Edit1.CharCase := ecUpperCase;'
  1825.           'end;'
  1826.           '=================================================='
  1827.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Edit a 2x RadioButton a do'
  1828.           ' Edit vlo∩┐╜te text.'
  1829.           '-Po stisku 1. tla∩┐╜∩┐╜tka bude m∩┐╜t text pouze mal∩┐╜ a po stisku'
  1830.           ' 2. tla∩┐╜∩┐╜tka pouze velk∩┐╜ p∩┐╜smena.')
  1831.         ReadOnly = True
  1832.         ScrollBars = ssVertical
  1833.         TabOrder = 0
  1834.       end
  1835.     end
  1836.     object TTabPage
  1837.       Left = 4
  1838.       Top = 24
  1839.       Caption = '056'
  1840.       object Memo56: TMemo
  1841.         Left = 0
  1842.         Top = 0
  1843.         Width = 325
  1844.         Height = 267
  1845.         Align = alClient
  1846.         Lines.Strings = (
  1847.           'procedure TForm1.FormPaint(Sender: TObject);'
  1848.           'begin'
  1849.           ' Form1.Canvas.Pie(10, 10, 200, 200, 61, 3, 200, 61);'
  1850.           ' Canvas.Ellipse(170, 170, 250, 200);'
  1851.           ' Canvas.Pen.Color := clRed;'
  1852.           ' Canvas.PolyLine([Point(5, 5), Point(100, 40), Point(150, 120),'
  1853.           '   Point(140, 200), Point(80, 100), Point(5, 5)]);'
  1854.           'end;'
  1855.           '=================================================='
  1856.           '-V Object Inspectoru u Form v Events u OnPaint vlo∩┐╜te'
  1857.           ' FormPaint.'
  1858.           '-Po kompilaci se vykresl∩┐╜ kruhov∩┐╜ v∩┐╜se∩┐╜, elipsa a v∩┐╜ce∩┐╜heln∩┐╜k.')
  1859.         ReadOnly = True
  1860.         ScrollBars = ssVertical
  1861.         TabOrder = 0
  1862.       end
  1863.     end
  1864.     object TTabPage
  1865.       Left = 4
  1866.       Top = 24
  1867.       Caption = '057'
  1868.       object Memo57: TMemo
  1869.         Left = 0
  1870.         Top = 0
  1871.         Width = 325
  1872.         Height = 267
  1873.         Align = alClient
  1874.         Lines.Strings = (
  1875.           'procedure TForm1.FormKeyDown(Sender: TObject;'
  1876.           '                 var Key: Word; Shift: TShiftState);'
  1877.           'begin'
  1878.           ' if (shift = ([ssAlt, ssCtrl])) then Form1.Color := clRed;'
  1879.           'end;'
  1880.           '=================================================='
  1881.           '-V Object Inspectoru u Form v Events u OnKeyDown vlo∩┐╜te'
  1882.           ' FormKeyDown.'
  1883.           '-P∩┐╜i stisku kl∩┐╜ves ALT+CTRL se formul∩┐╜∩┐╜ zbarv∩┐╜ ∩┐╜erven∩┐╜.')
  1884.         ReadOnly = True
  1885.         ScrollBars = ssVertical
  1886.         TabOrder = 0
  1887.       end
  1888.     end
  1889.     object TTabPage
  1890.       Left = 4
  1891.       Top = 24
  1892.       Caption = '058'
  1893.       object Memo58: TMemo
  1894.         Left = 0
  1895.         Top = 0
  1896.         Width = 325
  1897.         Height = 267
  1898.         Align = alClient
  1899.         Lines.Strings = (
  1900.           'procedure TForm1.Timer1Timer(Sender: TObject);'
  1901.           'begin'
  1902.           ' Timer1.Interval := 100;'
  1903.           ' Shape1.Left := Shape1.Left + 1;'
  1904.           'end;'
  1905.           '=================================================='
  1906.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponenty Timer a Shape.'
  1907.           '-Po kompilaci se Shape pohybuje dle nastaven∩┐╜ho ∩┐╜asov∩┐╜ho'
  1908.           ' intervalu doprava.')
  1909.         ReadOnly = True
  1910.         ScrollBars = ssVertical
  1911.         TabOrder = 0
  1912.       end
  1913.     end
  1914.     object TTabPage
  1915.       Left = 4
  1916.       Top = 24
  1917.       Caption = '059'
  1918.       object Memo59: TMemo
  1919.         Left = 0
  1920.         Top = 0
  1921.         Width = 325
  1922.         Height = 267
  1923.         Align = alClient
  1924.         Lines.Strings = (
  1925.           'procedure TForm1.Button1Click(Sender: TObject);'
  1926.           'begin'
  1927.           ' Label1.Font.Name := '#39'System'#39';'
  1928.           ' Label1.Font.Size := 12;'
  1929.           'end;'
  1930.           '=================================================='
  1931.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te Button a Label.'
  1932.           '-Po stisku tla∩┐╜∩┐╜tka se zm∩┐╜n∩┐╜ font dle nastaven∩┐╜ v k∩┐╜du.')
  1933.         ReadOnly = True
  1934.         ScrollBars = ssVertical
  1935.         TabOrder = 0
  1936.       end
  1937.     end
  1938.     object TTabPage
  1939.       Left = 4
  1940.       Top = 24
  1941.       Caption = '060'
  1942.       object Memo60: TMemo
  1943.         Left = 0
  1944.         Top = 0
  1945.         Width = 325
  1946.         Height = 267
  1947.         Align = alClient
  1948.         Lines.Strings = (
  1949.           'procedure TForm1.FormCreate(Sender: TObject);'
  1950.           'begin'
  1951.           ' with DrawGrid1 do'
  1952.           '  begin'
  1953.           '    if DefaultColWidth > 90 then'
  1954.           '      GridLineWidth := 2'
  1955.           '    else'
  1956.           '      GridLineWidth := 4;'
  1957.           '   end;'
  1958.           'end;'
  1959.           '=================================================='
  1960.           '-Na formul∩┐╜∩┐╜ vlo∩┐╜te komponentu DrawGrid a v Object'
  1961.           ' Inspectoru u Form v Events u OnCreate vlo∩┐╜te FormCreate.'
  1962.           '-∩┐╜∩┐╜∩┐╜ka linek v tabulce bude po spu∩┐╜t∩┐╜n∩┐╜ dle nastaven∩┐╜ v k∩┐╜du.')
  1963.         ReadOnly = True
  1964.         ScrollBars = ssVertical
  1965.         TabOrder = 0
  1966.       end
  1967.     end
  1968.     object TTabPage
  1969.       Left = 4
  1970.       Top = 24
  1971.       Caption = 'EDIT'
  1972.       object Memo61: TMemo
  1973.         Left = 0
  1974.         Top = 0
  1975.         Width = 325
  1976.         Height = 267
  1977.         Align = alClient
  1978.         Color = clWhite
  1979.         Font.Color = clBlack
  1980.         Font.Height = -11
  1981.         Font.Name = 'MS Sans Serif'
  1982.         Font.Style = []
  1983.         ParentFont = False
  1984.         ScrollBars = ssVertical
  1985.         TabOrder = 0
  1986.       end
  1987.     end
  1988.     object TTabPage
  1989.       Left = 4
  1990.       Top = 24
  1991.       Caption = 'HELP'
  1992.       object Image2: TImage
  1993.         Left = 8
  1994.         Top = 10
  1995.         Width = 19
  1996.         Height = 19
  1997.         Picture.Data = {<image001.bmp>}
  1998.       end
  1999.       object Image3: TImage
  2000.         Left = 8
  2001.         Top = 33
  2002.         Width = 19
  2003.         Height = 19
  2004.         Picture.Data = {<image002.bmp>}
  2005.       end
  2006.       object Image4: TImage
  2007.         Left = 8
  2008.         Top = 56
  2009.         Width = 19
  2010.         Height = 19
  2011.         Picture.Data = {<image003.bmp>}
  2012.       end
  2013.       object Image5: TImage
  2014.         Left = 8
  2015.         Top = 79
  2016.         Width = 19
  2017.         Height = 19
  2018.         Picture.Data = {<image004.bmp>}
  2019.       end
  2020.       object Image6: TImage
  2021.         Left = 8
  2022.         Top = 102
  2023.         Width = 19
  2024.         Height = 19
  2025.         Picture.Data = {<image005.bmp>}
  2026.       end
  2027.       object Image7: TImage
  2028.         Left = 8
  2029.         Top = 125
  2030.         Width = 19
  2031.         Height = 19
  2032.         Picture.Data = {<image006.bmp>}
  2033.       end
  2034.       object Image8: TImage
  2035.         Left = 8
  2036.         Top = 148
  2037.         Width = 19
  2038.         Height = 19
  2039.         Picture.Data = {<image007.bmp>}
  2040.       end
  2041.       object Image9: TImage
  2042.         Left = 8
  2043.         Top = 171
  2044.         Width = 19
  2045.         Height = 19
  2046.         Picture.Data = {<image008.bmp>}
  2047.       end
  2048.       object Image10: TImage
  2049.         Left = 8
  2050.         Top = 194
  2051.         Width = 19
  2052.         Height = 19
  2053.         Picture.Data = {<image009.bmp>}
  2054.       end
  2055.       object Image11: TImage
  2056.         Left = 8
  2057.         Top = 217
  2058.         Width = 19
  2059.         Height = 19
  2060.         Picture.Data = {<image010.bmp>}
  2061.       end
  2062.       object Image12: TImage
  2063.         Left = 8
  2064.         Top = 240
  2065.         Width = 19
  2066.         Height = 19
  2067.         Picture.Data = {<image011.bmp>}
  2068.       end
  2069.       object Label1: TLabel
  2070.         Left = 40
  2071.         Top = 12
  2072.         Width = 72
  2073.         Height = 13
  2074.         Caption = 'otev∩┐╜∩┐╜t program'
  2075.       end
  2076.       object Label2: TLabel
  2077.         Left = 40
  2078.         Top = 35
  2079.         Width = 76
  2080.         Height = 13
  2081.         Caption = 'ukon∩┐╜it program'
  2082.       end
  2083.       object Label3: TLabel
  2084.         Left = 40
  2085.         Top = 58
  2086.         Width = 89
  2087.         Height = 13
  2088.         Caption = 'minimalizovat okno'
  2089.       end
  2090.       object Label4: TLabel
  2091.         Left = 40
  2092.         Top = 81
  2093.         Width = 86
  2094.         Height = 13
  2095.         Caption = '∩┐╜vodn∩┐╜ obrazovka'
  2096.       end
  2097.       object Label5: TLabel
  2098.         Left = 40
  2099.         Top = 104
  2100.         Width = 233
  2101.         Height = 13
  2102.         Caption = 'otev∩┐╜∩┐╜t edita∩┐╜n∩┐╜ pole (vkl∩┐╜dat my∩┐╜∩┐╜ p∩┐╜es clipboard)'
  2103.       end
  2104.       object Label6: TLabel
  2105.         Left = 40
  2106.         Top = 127
  2107.         Width = 200
  2108.         Height = 13
  2109.         Caption = 'tisknout obsah edita∩┐╜n∩┐╜ho pole na tisk∩┐╜rn∩┐╜'
  2110.       end
  2111.       object Label7: TLabel
  2112.         Left = 40
  2113.         Top = 150
  2114.         Width = 188
  2115.         Height = 13
  2116.         Caption = 'ulo∩┐╜it obsah edita∩┐╜n∩┐╜ho pole do souboru'
  2117.       end
  2118.       object Label8: TLabel
  2119.         Left = 40
  2120.         Top = 173
  2121.         Width = 150
  2122.         Height = 13
  2123.         Caption = 'skok na ∩┐╜vodn∩┐╜ str∩┐╜nku (obsah)'
  2124.       end
  2125.       object Label9: TLabel
  2126.         Left = 40
  2127.         Top = 196
  2128.         Width = 114
  2129.         Height = 13
  2130.         Caption = 'skok o 7 str∩┐╜nek doleva'
  2131.       end
  2132.       object Label10: TLabel
  2133.         Left = 40
  2134.         Top = 219
  2135.         Width = 121
  2136.         Height = 13
  2137.         Caption = 'skok o 7 str∩┐╜nek doprava'
  2138.       end
  2139.       object Label11: TLabel
  2140.         Left = 40
  2141.         Top = 242
  2142.         Width = 148
  2143.         Height = 13
  2144.         Caption = 'skok na posledn∩┐╜ str∩┐╜nku (help)'
  2145.       end
  2146.     end
  2147.   end
  2148.   object Panel1: TPanel
  2149.     Left = 0
  2150.     Top = 0
  2151.     Width = 332
  2152.     Height = 23
  2153.     BevelInner = bvLowered
  2154.     BevelOuter = bvNone
  2155.     TabOrder = 1
  2156.     object SpeedButton1: TSpeedButton
  2157.       Left = 3
  2158.       Top = 2
  2159.       Width = 19
  2160.       Height = 19
  2161.       Glyph.Data = {
  2162.         78010000424D7801000000000000760000002800000020000000100000000100
  2163.         04000000000000000000120B0000120B00000000000000000000000000000000
  2164.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2165.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2166.         3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  2167.         33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
  2168.         703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
  2169.         77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
  2170.         07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
  2171.         780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
  2172.         8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  2173.         3333333773FFFF773333333330000033333333333777773333330000}
  2174.       NumGlyphs = 2
  2175.       ParentShowHint = False
  2176.       ShowHint = True
  2177.       OnClick = SpeedButton1Click
  2178.     end
  2179.     object SpeedButton2: TSpeedButton
  2180.       Left = 291
  2181.       Top = 2
  2182.       Width = 19
  2183.       Height = 19
  2184.       Glyph.Data = {
  2185.         76010000424D7601000000000000760000002800000020000000100000000100
  2186.         04000000000000010000120B0000120B00000000000000000000000000000000
  2187.         80000080000000808000800000008000800080800000C0C0C000808080000000
  2188.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2189.         3333333333333333333333333333333333333333333333333333333333333333
  2190.         33333333333FF33333333333330033333333333333883FF33333333333090033
  2191.         33333333338F883FF33333333309990033333FFFFF8F33883FF3000000099999
  2192.         0033888888833333883F09999999999999008FFFFFFF33333F88000000099999
  2193.         00338888888F333F883333333309990033333333338F3F883333333333090033
  2194.         33333333338F8833333333333300333333333333338833333333333333333333
  2195.         3333333333333333333333333333333333333333333333333333333333333333
  2196.         3333333333333333333333333333333333333333333333333333}
  2197.       NumGlyphs = 2
  2198.       ParentShowHint = False
  2199.       ShowHint = True
  2200.       OnClick = SpeedButton2Click
  2201.     end
  2202.     object SpeedButton3: TSpeedButton
  2203.       Left = 271
  2204.       Top = 2
  2205.       Width = 19
  2206.       Height = 19
  2207.       Glyph.Data = {
  2208.         78010000424D7801000000000000760000002800000020000000100000000100
  2209.         04000000000000000000120B0000120B00000000000000000000000000000000
  2210.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2211.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2212.         3333333333333333333333333333333333333333333333333333333333333333
  2213.         3333333333333FF3333333333333003333333333333F77F33333333333009033
  2214.         333333333F7737F333333333009990333333333F773337FFFFFF330099999000
  2215.         00003F773333377777770099999999999990773FF33333FFFFF7330099999000
  2216.         000033773FF33777777733330099903333333333773FF7F33333333333009033
  2217.         33333333337737F3333333333333003333333333333377333333333333333333
  2218.         3333333333333333333333333333333333333333333333333333333333333333
  2219.         33333333333333333333333333333333333333333333333333330000}
  2220.       NumGlyphs = 2
  2221.       ParentShowHint = False
  2222.       ShowHint = True
  2223.       OnClick = SpeedButton3Click
  2224.     end
  2225.     object SpeedButton4: TSpeedButton
  2226.       Left = 23
  2227.       Top = 2
  2228.       Width = 19
  2229.       Height = 19
  2230.       Glyph.Data = {
  2231.         78010000424D7801000000000000760000002800000020000000100000000100
  2232.         04000000000000000000120B0000120B00000000000000000000000000000000
  2233.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2234.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2235.         3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  2236.         33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
  2237.         703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
  2238.         77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
  2239.         07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
  2240.         780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
  2241.         8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  2242.         3333333773FFFF773333333330000033333333333777773333330000}
  2243.       NumGlyphs = 2
  2244.       ParentShowHint = False
  2245.       ShowHint = True
  2246.       OnClick = SpeedButton4Click
  2247.     end
  2248.     object SpeedButton5: TSpeedButton
  2249.       Left = 251
  2250.       Top = 2
  2251.       Width = 19
  2252.       Height = 19
  2253.       Glyph.Data = {
  2254.         78010000424D7801000000000000760000002800000020000000100000000100
  2255.         04000000000000000000120B0000120B00000000000000000000000000000000
  2256.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2257.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
  2258.         3333333333777F33333333333309033333333333337F7F333333333333090333
  2259.         33333333337F7F33333333333309033333333333337F7F333333333333090333
  2260.         33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
  2261.         3333333777737777F333333099999990333333373F3333373333333309999903
  2262.         333333337F33337F33333333099999033333333373F333733333333330999033
  2263.         3333333337F337F3333333333099903333333333373F37333333333333090333
  2264.         33333333337F7F33333333333309033333333333337373333333333333303333
  2265.         333333333337F3333333333333303333333333333337333333330000}
  2266.       NumGlyphs = 2
  2267.       ParentShowHint = False
  2268.       ShowHint = True
  2269.       OnClick = SpeedButton5Click
  2270.     end
  2271.     object SpeedButton6: TSpeedButton
  2272.       Left = 311
  2273.       Top = 2
  2274.       Width = 19
  2275.       Height = 19
  2276.       Glyph.Data = {
  2277.         78010000424D7801000000000000760000002800000020000000100000000100
  2278.         04000000000000000000120B0000120B00000000000000000000000000000000
  2279.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2280.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  2281.         333333333337F33333333333333033333333333333373F333333333333090333
  2282.         33333333337F7F33333333333309033333333333337373F33333333330999033
  2283.         3333333337F337F33333333330999033333333333733373F3333333309999903
  2284.         333333337F33337F33333333099999033333333373333373F333333099999990
  2285.         33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  2286.         33333333337F7F33333333333309033333333333337F7F333333333333090333
  2287.         33333333337F7F33333333333309033333333333337F7F333333333333090333
  2288.         33333333337F7F333333333333000333333333333377733333330000}
  2289.       NumGlyphs = 2
  2290.       ParentShowHint = False
  2291.       ShowHint = True
  2292.       OnClick = SpeedButton6Click
  2293.     end
  2294.     object SpeedButton7: TSpeedButton
  2295.       Left = 63
  2296.       Top = 2
  2297.       Width = 19
  2298.       Height = 19
  2299.       Glyph.Data = {
  2300.         76010000424D7601000000000000760000002800000020000000100000000100
  2301.         0400000000000001000000000000000000000000000000000000000000000000
  2302.         80000080000000808000800000008000800080800000C0C0C000808080000000
  2303.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2304.         3333333333FFFFF333333333333B003333333333F838383FF333333333BBB003
  2305.         33333338838883883F333333333B0033333333833338333383F3333333333333
  2306.         333338F33333F33338F33333333B0033333338333338F333383F3333333B0033
  2307.         33338F333338FF33338F3333333BB00333338F3333388FF3338F33333333BB00
  2308.         33338F33333388FF338F333333333BB003338F333FF3388F338F3333BB003BB0
  2309.         033383F388F3388F33833333BB003BB0033338F388FFF88338F333333BBBBB00
  2310.         3333383F388888333833333333BBB00333333383FF88833F8333333333333333
  2311.         3333333883FFFF88333333333333333333333333388888333333}
  2312.       NumGlyphs = 2
  2313.       ParentShowHint = False
  2314.       ShowHint = True
  2315.       OnClick = SpeedButton7Click
  2316.     end
  2317.     object SpeedButton8: TSpeedButton
  2318.       Left = 157
  2319.       Top = 2
  2320.       Width = 19
  2321.       Height = 19
  2322.       Font.Color = clWhite
  2323.       Font.Height = -11
  2324.       Font.Name = 'MS Sans Serif'
  2325.       Font.Style = []
  2326.       Glyph.Data = {
  2327.         76010000424D7601000000000000760000002800000020000000100000000100
  2328.         04000000000000010000130B0000130B00000000000000000000000000000000
  2329.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2330.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  2331.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  2332.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  2333.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  2334.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  2335.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  2336.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  2337.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  2338.         33333337FFFF7733333333300000033333333337777773333333}
  2339.       NumGlyphs = 2
  2340.       ParentFont = False
  2341.       ParentShowHint = False
  2342.       ShowHint = True
  2343.       OnClick = SpeedButton8Click
  2344.     end
  2345.     object SpeedButton9: TSpeedButton
  2346.       Left = 137
  2347.       Top = 2
  2348.       Width = 19
  2349.       Height = 19
  2350.       Glyph.Data = {
  2351.         76010000424D7601000000000000760000002800000020000000100000000100
  2352.         04000000000000010000130B0000130B00000000000000000000000000000000
  2353.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2354.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2355.         33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
  2356.         FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
  2357.         00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
  2358.         F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
  2359.         00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
  2360.         F033777777777337F73309999990FFF0033377777777FFF77333099999000000
  2361.         3333777777777777333333399033333333333337773333333333333903333333
  2362.         3333333773333333333333303333333333333337333333333333}
  2363.       NumGlyphs = 2
  2364.       ParentShowHint = False
  2365.       ShowHint = True
  2366.       OnClick = SpeedButton9Click
  2367.     end
  2368.     object SpeedButton10: TSpeedButton
  2369.       Left = 177
  2370.       Top = 2
  2371.       Width = 19
  2372.       Height = 19
  2373.       Glyph.Data = {
  2374.         78010000424D7801000000000000760000002800000020000000100000000100
  2375.         04000000000000000000120B0000120B00000000000000000000000000000000
  2376.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2377.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2378.         333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
  2379.         00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
  2380.         00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
  2381.         00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
  2382.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  2383.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  2384.         00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
  2385.         0003737FFFFFFFFF7F73300999999999003337777777777777330000}
  2386.       NumGlyphs = 2
  2387.       ParentShowHint = False
  2388.       ShowHint = True
  2389.       OnClick = SpeedButton10Click
  2390.     end
  2391.     object SpeedButton11: TSpeedButton
  2392.       Left = 43
  2393.       Top = 2
  2394.       Width = 19
  2395.       Height = 19
  2396.       Glyph.Data = {
  2397.         76010000424D7601000000000000760000002800000020000000100000000100
  2398.         04000000000000010000130B0000130B00000000000000000000000000000000
  2399.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  2400.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  2401.         33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  2402.         00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  2403.         70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
  2404.         70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
  2405.         70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
  2406.         70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
  2407.         70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  2408.         00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  2409.       NumGlyphs = 2
  2410.       ParentShowHint = False
  2411.       ShowHint = True
  2412.       OnClick = SpeedButton11Click
  2413.     end
  2414.     object Panel3: TPanel
  2415.       Left = 200
  2416.       Top = 2
  2417.       Width = 47
  2418.       Height = 19
  2419.       BevelInner = bvLowered
  2420.       Font.Color = clBlack
  2421.       Font.Height = -11
  2422.       Font.Name = 'MS Sans Serif'
  2423.       Font.Style = []
  2424.       ParentFont = False
  2425.       TabOrder = 0
  2426.     end
  2427.     object Panel4: TPanel
  2428.       Left = 86
  2429.       Top = 2
  2430.       Width = 47
  2431.       Height = 19
  2432.       BevelInner = bvLowered
  2433.       TabOrder = 1
  2434.     end
  2435.   end
  2436.   object Panel2: TPanel
  2437.     Left = -2
  2438.     Top = 24
  2439.     Width = 335
  2440.     Height = 295
  2441.     Caption = 'Panel2'
  2442.     Color = clBlack
  2443.     Font.Color = clBlack
  2444.     Font.Height = -11
  2445.     Font.Name = 'Times New Roman'
  2446.     Font.Style = []
  2447.     ParentFont = False
  2448.     ParentShowHint = False
  2449.     ShowHint = False
  2450.     TabOrder = 2
  2451.     object Image1: TImage
  2452.       Left = 86
  2453.       Top = 52
  2454.       Width = 161
  2455.       Height = 188
  2456.       Center = True
  2457.       Picture.Data = {<image012.bmp>}
  2458.     end
  2459.   end
  2460.   object Timer1: TTimer
  2461.     OnTimer = Timer1Timer
  2462.     Left = 302
  2463.     Top = 288
  2464.   end
  2465.   object PrintDialog1: TPrintDialog
  2466.     PrintRange = prSelection
  2467.     Left = 276
  2468.     Top = 288
  2469.   end
  2470.   object SaveDialog1: TSaveDialog
  2471.     FileEditStyle = fsEdit
  2472.     Filter = 
  2473.       'Text files (*.txt)|*.txt|Pascal files (*.pas)|*.pas|Windows ini ' +
  2474.       'files (*.ini)|*.ini|All files (*.*)|*.*'
  2475.     Options = [ofPathMustExist]
  2476.     Left = 246
  2477.     Top = 288
  2478.   end
  2479. end
  2480.