Chip 1999 July/Chip_1999-07_cd.bin/ctenari/Zahrad/PROCS.EXE/0/RCDATA/TPROCSFORM/TPROCSFORM.txt

Text File | 1999-05-08 | 80.2 KB | 2,480 lines

object ProcsForm: TProcsForm
  Left = 190
  Top = 102
  Cursor = crArrow
  BorderIcons = [biMinimize]
  BorderStyle = bsToolWindow
  Caption =
    'SAD                                                             ' +
    '                                  SAD'
  ClientHeight = 319
  ClientWidth = 333
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnCreate = ProcsFormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Tab1: TTabbedNotebook
    Left = 0
    Top = 24
    Width = 333
    Height = 295
    TabFont.Color = clBlack
    TabFont.Height = -8
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'OBSAH'
      object Memo1001: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Cursor = crArrow
        Align = alClient
        Color = clBlack
        Font.Color = clSilver
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '001..........upozorn�n� - MessageDlg'
          '002..........zpr�va - ShowMessage'
          '003..........cyklus - for..to'
          '004..........ode��t�n� a p�i��t�n� - dec,inc'
          '005..........v��ka a ���ka - height,width'
          '006..........t�hni a pus� - drag & drop'
          '007..........zkop�rov�n� textu do titulku formul��e'
          '008..........zarovn�n� textu - taCenter,taJustify'
          '009..........barva p�sma a podkladu - Font.Color,Memo.Color'
          '010..........zm�na fontu a barvy p�sma'
          '011..........barva p�sma a podkladu - Font.Color,Memo.Color 2'
          '012..........dotaz - MessageDlg'
          '013..........vzhled okna - wsNormal,wsMinimized,wsMaximized'
          '014..........zm�na barvy textu �i podkladu my��'
          '015..........my� - down,up'
          '016..........nahr�n�,um�st�n� a rozta�en� obr�zku'
          '017..........zvuk - MessageBeep'
          '018..........kurzor- zm�na vzhledu'
          '019..........�as v titulku formul��e'
          '020..........po�et znak� v textu')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        Visible = False
        OnMouseUp = MemoMouseUp
      end
      object Memo1002: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Cursor = crArrow
        Align = alClient
        Color = clBlack
        Font.Color = clSilver
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '021..........clipboard - copy,cut,paste   '
          '022..........zm�na vzhledu objektu - rectangle,circle...'
          '023..........zaoblen� rohy formul��e'
          '024..........voln� m�sto na disku'
          '025..........voln�,obsazen� m�sto a kapacita vybran�ho disku'
          '026..........odstran�n� tla��tek z titulku formul��e'
          '027..........popisky tla��tek'
          '028..........zm�na barvy formul��e - randomize'
          '029..........sou�et komponent na formul��i'
          '030..........nahr�n� bitmapy na tla��tko'
          '031..........posun tla��tkov�ho popisku'
          '032..........nahr�n� bitmapy ze souboru dle cesty'
          '033..........sou�adnice X,Y kursoru my�i'
          '034..........zm�na velikosti tla��tka - ScaleBy             '
          '035..........p�esun fontu mezi objekty'
          '036..........ulo�en� a nahr�n� textu - load,save'
          '037..........nahr�n� ikony do titulku formul��e'
          '038..........rychl� zm�na velikosti fontu'
          '039..........ozna�en� a odzna�en� objektu - focus'
          '040..........um�st�n� textu a vybarven� podkladu')
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        Visible = False
        OnMouseUp = MemoMouseUp
      end
      object Button1: TButton
        Left = 306
        Top = 2
        Width = 17
        Height = 17
        Caption = '1>'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 306
        Top = 2
        Width = 17
        Height = 17
        Caption = '2>'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        Visible = False
        OnClick = Button2Click
      end
      object Memo1003: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Cursor = crArrow
        Align = alClient
        Color = clBlack
        Font.Color = clSilver
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '041..........zm�na velikosti tla��tka - MyRect'
          '042..........zobrazen� stisknut� kl�vesy'
          '043..........tisk textu - PrintFile'
          '044..........dotaz p�i ukon�en� aplikace - caFree,caNone'
          '045..........p�eru�en� tisku na tisk�rn� - Printer.Abort'
          '046..........tisk r�me�ku - BeginDoc'
          '047..........text - vlo�en� do tabulky'
          '048..........vyps�n� textu na sou�adnic�ch kursoru'
          '049..........text - p�esun mezi objekty p�es clipboard'
          '050..........um�st�n� kursoru dle ��dku a sloupce'
          '051..........vyhled�n� zadan�ho textu - FindDialog'
          '052..........vlo�en� aktu�ln�ho datumu a �asu do objektu'
          '053..........zm�na po�tu ��dek a sloupc� v tabulce'
          '054..........�et�zec - ozna�en� textu my�� - SelText,SelLength'
          '055..........text - v�echna mal� �i velk� p�smena - ecLowerCase'
          '056..........v�se�,elipsa,v�ce�heln�k - Pie,Ellipse,PolyLine'
          '057..........reakce na stisk 2 kl�ves'

            '058..........pohyb objektu dle �asov�ho intervalu - Timer.Interv' +
            'al'
          '059..........p�smo - programov� zm�na typu a velikosti fontu'
          '060..........zm�na ���ky linek m��ky v tabulce')
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
        Visible = False
        OnMouseUp = MemoMouseUp
      end
      object Button3: TButton
        Left = 306
        Top = 2
        Width = 17
        Height = 17
        Caption = '3>'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        Visible = False
        OnClick = Button3Click
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '001'
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormClick(Sender: TObject); '

            'begin                                                           ' +
            '        '
          '  MessageDlg ('#39'Bylo kliknuto mimo objekt'#39','
          '  mtWarning, [mbOK], 0);'
          'end;'
          '=================================================='
          '-V Object Inspectoru do Events u OnClick napi�te FormClick.'
          '-Pokud kliknete my�� na voln� formul�� (mimo n�jak� objekt), '
          ' objev� se upozorn�n�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '002'
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          '  ShowMessage ('#39'Stiskli jste tla��tko'#39')'
          'end;'
          '=================================================='
          '-Po stisknut� tla��tka se zobraz� zpr�va.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '003'
      object Memo3: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'var'
          '  I: Integer;'
          'begin'
          '  ListBox1.Items.Clear;'
          '  for I := 1 to 5 do'
          '    Listbox1.Items.Add ('#39'String '#39' + IntToStr (I));'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty SpeedButton a ListBox.'
          '-Po stisku tla��tka se pod sebe do ListBox vyp�� slova String'
          ' a ��slo dle pozice v cyklu.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '004'
      object Memo4: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'const'
          '  N: integer = 1;'
          '  M: integer = 10;'
          'begin'
          '  Inc(N);'
          '  Dec(M);'
          '  Label1.Caption:=IntToStr(N);'
          '  Label2.Caption:=IntToStr(M);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty SpeedButton a 2x Label.'
          '-P�i ka�d�m stisku tla��tka se v komponent� Label1 p�i��t� 1'
          ' (Inc) a v komponent� Label2 ode��t� 1 (Dec).')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '005'
      object Memo5: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          '  SpeedButton2.Height := SpeedButton2.Height + 1;'
          '  SpeedButton2.Width := SpeedButton2.Width + 1;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu SpeedButton 2x.'
          '-Po stisku tla��tka SpeedButton1 se v��ka a ���ka tla��tka'
          ' SpeedButton2 zv�t�uje o jeden bod.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '006'
      object Memo6: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Label5DragDrop (Sender, Source: TObject;'
          '  X, Y: Integer);'
          'begin'
          '  Label5.Color := (Source as TLabel).Color;'
          'end;'
          '========'
          'procedure TForm1.Label5DragOver (Sender, Source: TObject;'
          '  X, Y: Integer; State: TDragState; var Accept: Boolean);'
          'begin'
          '  Accept := Source is TLabel;'
          'end;'
          '=================================================='
          '-Na formul�� um�st�te 5 komponent Label. �ty�em vyberte r�zn� '
          ' barvy (v Object Inspectoru Properties-Color).V Object '
          ' Inspectoru je t�eba do Events k OnDragDrop vlo�it'
          ' Label5DragDrop a k OnDragOver vlo�it Label5DragOver.'
          '-Pokud uk�ete kursorem my�i na jedno ze 4 barevn�ch pol�,'

            ' stisknete lev�  tla��tko my�i, za st�l�ho stisku t�hnete nad p�' +
            't�'

            ' pol��ko a tla��tko uvoln�te, obarv� se p�t� pole v�choz� barvou' +
            '.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '007'
      object Memo7: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          '  if Edit1.Text <> '#39#39' then'
          '     Form1.Caption := Edit1.Text;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty SpeedButton a Edit.'
          '-Po zad�n� textu do edita�n�ho pole a stisku tla��tka se text'
          ' zkop�ruje do titulku (Caption) formul��e.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '008'
      object Memo8: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Ctl3D = True
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' Memo1.Alignment := taLeftJustify;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          ' Memo1.Alignment := taCenter;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton3Click(Sender: TObject);'
          'begin'
          ' Memo1.Alignment := taRightJustify;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty SpeedButton 3x a Memo.'
          '-Do Memo vlo�te kr�tk� text. Po stisku jednotliv�ch tla��tek se'
          ' text zarovn� bu� doleva nebo na st�ed �i doprava.')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '009'
      object Memo9: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          '  ColorDialog1.Color := Memo1.Font.Color;'
          '  ColorDialog1.Execute;'
          '  Memo1.Font.Color := ColorDialog1.Color;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          '  ColorDialog1.Color := Memo1.Color;'
          '  ColorDialog1.Execute;'
          '  Memo1.Color := ColorDialog1.Color;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Memo a do n� um�st�te kompo-'
          ' nentu ColorDialog. D�le vlo�te na formul�� 2x SpeedButton.'
          '-Po stisku tla��tek se otev�e nab�dka barev a dle vybran� barvy'
          ' se zm�n� barva textu �i pozad� v Memo. ')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '010'
      object Memo10: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' if RichEdit1.SelLength > 0 then'
          '  begin'
          '    FontDialog1.Font.Assign(RichEdit1.DefAttributes);'
          '    if FontDialog1.Execute then'
          '     RichEdit1.SelAttributes.Assign(FontDialog1.Font);'
          '  end'
          '  else'
          '    ShowMessage ('#39'No text selected'#39');'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu RichEdit a do n� komponentu'
          ' FontDialog. D�le na formul�� vlo�te komponentu SpeedButton.'

            '-Do RichEdit vlo�te text, ozna�te jej a stiskn�te tla��tko. Otev' +
            '�e'
          ' se dialogov� okno, ve kter�m vyberete font a barvu p�sma. ')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '011'
      object Memo11: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' FontDialog1.Font := Memo1.Font;'
          '  if FontDialog1.Execute then'
          '     Memo1.Font := FontDialog1.Font;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          '  ColorDialog1.Color := Memo1.Color;'
          '  if ColorDialog1.Execute then'
          '     Memo1.Color := ColorDialog1.Color;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Memo a do n� um�st�te kompo-'
          ' nenty ColorDialog a FontDialog. D�le vlo�te na formul�� 2x'
          ' komponentu SpeedButton.'
          '-Po stisku 1.tla��tka se otev�e nab�dka font� a 2.tla��tka '
          ' nab�dka barev. V�b�rem se zm�n� font a barva p�sma �i barva'
          ' pozad�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '012'
      object Memo12: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Ctl3D = True
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' Close;'
          'end;'
          '========'
          'procedure TForm1.FormCloseQuery(Sender: TObject;'
          '   var CanClose: Boolean);'
          'begin'
          ' if MessageDlg ('#39'Chcete opravdu skon�it?'#39','
          '    mtConfirmation, [mbYes, mbNo], 0) = idNo then'
          '    CanClose := False;'
          'end;'
          '=================================================='
          '-Do formul��e vlo�te SpeedButton, v Object Inspectoru'
          ' v Events formul��e k OnCloseQuery vlo�te FormCloseQuery.'
          '-Po stisku tla��tka se p�ed zav�en�m formul��e objev� je�t� '
          ' dotaz.')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '013'
      object Memo13: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' WindowState := wsMinimized;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          ' WindowState := wsMaximized;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton3Click(Sender: TObject);'
          'begin'
          ' WindowState := wsNormal;'
          'end;'
          '=================================================='
          '-Do formul��e vlo�te 3x komponentu SpeedButton.'
          '-1.tla��tko formul�� zminimalizuje, 2.tla��tko zmaximalizuje a'
          ' 3.tla��tko jej uvede do p�vodn� velikosti.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '014'
      object Memo14: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.ColorGrid1Change(Sender: TObject);'
          'begin'
          '  Label1.Color := ColorGrid1.BackgroundColor;'
          '  Label1.Font.Color := ColorGrid1.ForegroundColor;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu ColorGrid a Label (do Caption '
          ' vlo�te text). V Object Inspectoru u komponenty ColorGrids '
          ' vlo�te v Events u OnChange ColorGrid1Change.'
          '-Po stisku lev�ho tla��tka my�i se barva textu zm�n� dle barvy,'
          ' na ni� ukazuje kurzor. Po stisku prav�ho tla��tka my�i se '
          ' zm�n� barva podkladu. Barvy vyb�r�te z panelu barev.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '015'
      object Memo15: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1MouseDown(Sender:TObject;'
          ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
          'begin'
          ' Panel1.Visible:=False;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton1MouseUp(Sender: TObject; '
          ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
          'begin'
          ' Panel1.Visible:=True;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu SpeedButton a Panel.'
          ' V Object Inspectoru u komponenty SpeedButton1 vlo�te'
          ' v Events u OnMouseDown SpeedButton1MouseDown '
          ' a u OnMouseUp vlo�te SpeedButton1MouseUp.'
          '-Po stisku lev�ho tla��tka my�i s kurzorem na tla��tku zmiz�'
          ' panel a po uvoln�n� tla��tka my�i se panel op�t zviditeln�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '016'
      object Memo16: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' if OpenDialog1.Execute then'
          '  begin'
          '    Image1.Picture.LoadFromFile (OpenDialog1.FileName);'
          '    Caption := '#39'Obr�zek - '#39' + OpenDialog1.FileName;'
          '  end;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          ' Image1.Center := not Image1.Center;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton3Click(Sender: TObject);'
          'begin'
          ' Image1.Stretch := not Image1.Stretch;'
          'end;'
          '=================================================='
          '-Do formul��e vlo�te 3x komponentu SpeedButton, d�le Image'
          ' a komponentu OpenDialog.'
          '-P�i stisku 1.tla��tka se otev�e dialogov� okno, ve kter�m vybe-'

            ' rete obr�zek, kter� se nahraje na formul��. Druh� tla��tko obr�' +
            '-'

            ' zek um�st� na st�ed a t�et� jej rozt�hne po cel� plo�e. Do titu' +
            'lku'
          ' formul��e se vyp�e adres�� a n�zev obr�zku.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '017'
      object Memo17: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' MessageBeep (0);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu SpeedButton.'
          '-Po stisku tla��tka SpeedButton1 se ozve zvuk.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '018'
      object Memo18: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' Screen.Cursor := crHourglass;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          ' Screen.Cursor := crAppStart;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton3Click(Sender: TObject);'
          'begin'
          ' Screen.Cursor := crUpArrow;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton4Click(Sender: TObject);'
          'begin'
          ' Screen.Cursor := crMultiDrag;'
          'end;'
          '=================================================='
          '-Do formul��e vlo�te 4x SpeedButton.'

            '-P�i stisku jednotliv�ch tla��tek se m�n� kurzor. V Object Inspe' +
            '-'

            ' ctoru lze u vlastnosti formul��e Cursor nastavit vzhled kurzoru' +
            ' '
          ' bez nutnosti ps�t k�d.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '019'
      object Memo19: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Timer1Timer(Sender: TObject);'
          'begin'
          '  Form1.Caption := TimeToStr (Time);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Timer.'
          '-Po spu�t�n� pob�� v titulku formul��e aktu�ln� �as.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '020'
      object Memo20: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'var'
          '  text: string;'
          'begin'
          '  Str(Memo1.GetTextLen, text);'
          '  MessageDlg ('#39'Text m� '#39' + text + '#39' znak�'#39','
          '    mtInformation, [mbOK], 0);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty SpeedButton a Memo.'
          '-Po stisku tla��tka SpeedButton se vyp�e po�et znak�, kter� '
          ' obsahuje text v Memo (v�etn� mezer).')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '021'
      object Memo21: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          ' Memo1.CopyToClipboard;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton2Click(Sender: TObject);'
          'begin'
          ' Memo1.CutToClipboard;'
          'end;'
          '========'
          'procedure TForm1.SpeedButton3Click(Sender: TObject);'
          'begin'
          ' Memo1.PasteFromClipboard;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te 3x SpeedButton a 1 komponentu Memo.'
          '-1. tla��tko kop�ruje a 2. tla��tko vyjme vybran� text z Memo '
          ' do schr�nky, 3. tla��tko vlo�� text ze schr�nky do Memo.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '022'
      object Memo22: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.ListBox1DblClick(Sender: TObject);'
          'begin'
          ' if Sender is TListBox then'
          '   Shape1.Shape := TShapeType(TListBox(Sender).ItemIndex)'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Shape a ListBox. V Object In-'
          ' spectoru u komponenty ListBox v Events u OnDblClick vlo�te'
          ' ListBox1DblClick a v Properties vlo�te u Items: rectangle,'
          ' circle, square, round rect, round square a ellipse.'
          '-P�i dvojit�m kliknut� na polo�ku v ListBox se zm�n� tvar Shape'
          ' dle vybran� polo�ky.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '023'
      object Memo23: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Form1Create(Sender: TObject);'
          'var'
          '   R: HRgn;'
          'begin'
          ' R:= CreateRoundRectRgn(0,0,Width,Height,20,20);'
          ' SetWindowRgn(Handle, R, True);'
          'end;'
          '=================================================='
          '-V Object Inspectoru u Form1 v Events u OnCreate vlo�te'
          ' Form1Create.'
          '-Formul�� bude m�t po kompilaci zaoblen� rohy.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '024'
      object Memo24: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Form1Create(Sender: TObject);'
          'var'
          '  S: string;'
          'begin'
          '  S := IntToStr (DiskFree(0) div 1024)  + '#39' kB'#39';'
          '  Panel1.Caption := S;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Panel. V Object Inspectoru u '
          ' Form1 v Events u OnCreate vlo�te Form1Create.'
          '-Po kompilaci se na panelu objev� �daj o voln�m m�stu na hard'
          ' disku.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '025'
      object Memo25: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.DriveComboBox1Change(Sender: TObject);'
          'begin '
          ' Label1.Caption:=IntToStr(DiskFree(Ord(DriveComboBox1.Drive)'
          ' -64));'
          ' Label2.Caption:=IntToStr(DiskSize(Ord(DriveComboBox1.Drive)'
          ' -64)-DiskFree(Ord(DriveComboBox1.Drive)-64));'
          ' Label3.Caption:=IntToStr(DiskSize(Ord(DriveComboBox1.Drive)'
          ' -64));'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu DriveComboBox a 3x Label.'
          ' V Object Inspectoru u DriveComboBox1 v Events u OnChange'
          ' vlo�te DriveComboBox1Change.'
          '-Po kompilaci se objev� �daje o voln�m m�stu, obsazen�m'
          ' m�stu a celkov� kapacit� vybran�ho disku.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '026'
      object Memo26: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.SpeedButton1Click(Sender: TObject);'
          'begin'
          '  BorderIcons := BorderIcons - [biMinimize];'
          '  BorderIcons := BorderIcons - [biMaximize];'
          '  BorderIcons := BorderIcons - [biHelp];'
          '  BorderIcons := BorderIcons - [biSystemMenu];'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu SpeedButton.'
          '-Po stisku tla��tka se odstran� minimaliza�n�, maximaliza�n�'
          ' a zav�rac� tla��tko z titulku formul��e.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '027'
      object Memo27: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Form1Create(Sender: TObject);'
          'begin'
          ' BitBtn1.Kind := bkOK;'
          ' BitBtn2.Kind := bkCancel;'
          ' BitBtn3.Kind := bkHelp;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te 3x komponentu BitBtn. V Object Inspectoru '
          ' u Form1 v Events u OnCreate vlo�te Form1Create.'
          '-Po spu�t�n� budou m�t tla��tka bitmapov� popisek.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '028'
      object Memo28: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormClick(Sender: TObject);'
          'begin'
          '  Randomize;'
          '  Color := Random(65535);'
          'end;'
          '=================================================='
          '-V Object Inspectoru u  Form1 v Events u OnClick vlo�te'
          ' FormClick.'
          '-P�i ka�d�m kliknut� my�� nad formul��em se zm�n� jeho barva.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '029'
      object Memo29: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'var'
          '  I: Integer;'
          'begin'
          '  for I := 0 to ComponentCount -1 do'
          '     if Components[I] is TButton then'
          '     TButton(Components[I]).Font.Name := '#39'Courier'#39';'
          '  Edit1.Text := IntToStr(ComponentCount) + '#39' components'#39';'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Button, Edit a SpeedButton.'
          '-Po stisku tla��tka Button se font jeho popisu zm�n� na Courier'
          ' a v Edit se objev� po�et komponent um�st�n�ch na formul��i.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '030'
      object Memo30: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormCreate(Sender: TObject);'
          'begin'
          ' BitBtn1.Glyph.LoadFromFile('#39'zoomin.BMP'#39');'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu BitBtn. V Object Inspectoru '
          ' u Form1 v Events u OnCreate vlo�te FormCreate. Ve stejn�m'
          ' adres��i jako soubory t�to aplikace mus� b�t soubor *.BMP.'
          '-Po spu�t�n� se na tla��tko nahraje bitmapa.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '031'
      object Memo31: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.BitBtn1Click(Sender: TObject);'
          'begin'
          '  case Random(4) of'
          '    0: BitBtn1.Layout := blGlyphLeft;'
          '    1: BitBtn1.Layout := blGlyphRight;'
          '    2: BitBtn1.Layout := blGlyphTop;'
          '    3: BitBtn1.Layout := blGlyphBottom;'
          '  end;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu BitBtn.'
          '-Po opakovan�m stisku tla��tka se popisek posunuje n�hodn�'
          ' doprava, doleva, nahoru �i dol�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '032'
      object Memo32: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.PaintBoxPaint(Sender: TObject);'
          'var'
          '  Bitmap1: TBitmap;'
          'begin'
          '  Bitmap1 := TBitmap.Create;'
          '  Bitmap1.LoadFromFile('#39'c:\graphic\button.bmp'#39');'
          '  PaintBox1.Canvas.Draw(0, 0, Bitmap1);'
          '  Bitmap1.Free;'
          'end;'
          '=================================================='
          '-V Object Inspectoru u PaintBox1 v Events u OnPaint vlo�te '
          ' PaintBoxPaint.'
          '-Po spu�t�n� je do PaintBox nahr�na bitmapa ze souboru dle'
          ' uveden�ch sou�adnic a cesty.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '033'
      object Memo33: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.MemoMouseDown(Sender: TObject; '
          ' Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);'
          'begin'
          ' Edit1.Text := IntToStr(X) + '#39' je sou�adnice X Memo'#39';'
          ' Edit2.Text := IntToStr(Y) + '#39' je sou�adnice Y Memo'#39';'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Memo a 2x Edit. V Object In-'
          ' spectoru u Memo v Events u OnMouseDown vlo�te'
          ' MemoMouseDown.'
          '-P�i stisku tla��tka my�i se uk�� sou�adnice kurzoru my�i.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '034'
      object Memo34: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' ScaleBy(110, 100);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu Button.'
          '-P�i stisku tla��tka se toto zv�t�uje o 10 %.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '035'
      object Memo35: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' Label1.Font.Assign(Button1.Font);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Button a Label a u obou'
          ' nastavte v Properties odli�n� fonty.'
          '-Po stisku tla��tka Button se v Label objev� font, kter� m�'
          ' nastaven Button.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '036'
      object Memo36: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' Memo1.Lines.SaveToFile('#39'c:\TEXT.TXT'#39');'
          'end;'
          '========'
          'procedure TForm1.Button2Click(Sender: TObject);'
          'begin'
          ' Memo1.Lines.LoadFromFile('#39'c:\TEXT.TXT'#39');'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te 2x Button a 1x Memo. Do Memo napi�te'
          ' text.'
          '-Po spu�t�n� 1. tla��tko obsah Memo ulo�� do textov�ho'
          ' souboru a 2. tla��tko ulo�en� text nahraje zp�t do Memo.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '037'
      object Memo37: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          ' var TheIcon: TPicture;'
          'begin'
          '  OpenDialog1.FileName := '#39'*.ICO'#39';'
          '  if OpenDialog1.Execute then'
          '  begin'
          '    TheIcon := TPicture.Create;'
          '    TheIcon.LoadFromFile(OpenDialog1.FileName);'
          '    Form1.Icon := TheIcon.Icon;'
          '  end;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Button a OpenDialog.'
          '-Po stisknut� tla��tka se otev�e dialogov� okno, ve kter�m '
          ' vyberte libovolnou ikonu (*.ICO). Po potvrzen� se tato ikona'
          ' objev� v titulku formul��e.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '038'
      object Memo38: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          '  Label1.Font.Height := 20;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button a Label.'
          '-Pokud n�kdy pot�ebujete zm�nit velikost fontu b�hem '
          ' programu, stisk tla��tka to umo�n�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '039'
      object Memo39: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          ' var'
          '  NewRect: TRect;'
          'begin'
          '  NewRect := RadioButton1.BoundsRect;'
          '  with NewRect do'
          '  begin'
          '    Left := Left - 10;'
          '    Top := Top - 10;'
          '    Right := Right + 10;'
          '    Bottom := Bottom + 10;'
          '  end;'
          '  Form1.Canvas.DrawFocusRect(NewRect);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button a RadioButton.'

            '-Stisk tla��tka Button ozna�� a dal�� stisk odzna�� prostor kole' +
            'm'
          ' RadioButton dle nastaven�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '040'
      object Memo40: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          ' var'
          '  TheRect: TRect;'
          'begin'
          '  Form1.Canvas.Brush.Color := clRed;'
          '  Form1.Canvas.Brush.Style := bsVertical;'
          '  TheRect.Top := 10;'
          '  TheRect.Left := 10;'
          '  TheRect.Bottom := 100;'
          '  TheRect.Right := 100;'
          '  Form1.Canvas.TextRect(TheRect,40,50,'#39'Ahoj!'#39');'
          '  Form1.Canvas.FrameRect(TheRect);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button.'
          '-Stisk tla��tka dle nastaven� um�st� text a vybarv� podklad.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '041'
      object Memo41: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          ' var'
          '  MyRect: TRect;'
          'begin'
          '  MyRect := Button2.BoundsRect;'
          '  MyRect.Right := MyRect.Left + 2 * (MyRect.Right - '
          '    MyRect.Left);'
          '  MyRect.Bottom := MyRect.Top + (MyRect.Bottom - '
          '    MyRect.Top) div 2;'
          '  Button2.BoundsRect := MyRect;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te 2x Button.'
          '-P�i ka�d�m stisku 1. tla��tka se v��ka 2. tla��tka sn�� na '
          ' polovinu a d�lka se 2x prodlou��.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '042'
      object Memo42: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormKeyPress(Sender: TObject; var Key: '
          'Char);'
          'begin'
          ' MessageDlg(Key + '#39' - stisknuto'#39', mtInformation, [mbOK], 0)'
          'end;'
          '=================================================='
          '-V Object Inspectoru v Events u OnKeyPress vlo�te'
          ' FormKeyPress.'
          '-P�i stisku kl�vesy se zobraz�, kter� kl�vesa byla stisknuta.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '043'
      object Memo43: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TProcsForm.SpeedButton1Click(Sender: TObject);'
          ' var'
          '  PrintFile: TextFile;'
          '  I: Integer;'
          'begin'
          '  if PrintDialog1.Execute then'
          '    begin'
          '      AssignPrn(PrintFile);'
          '      Rewrite(PrintFile);'
          '      Printer.Canvas.Font:=Memo1.Font;'
          '      for I:=0 to Memo1.Lines.Count-1 do'
          '         Writeln (PrintFile,Memo1.Lines [I]);'
          '      System.CloseFile (PrintFile);'
          '    end;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te SpeedButton, Memo a PrintDialog.'
          '-Stiskem tla��tka se vytiskne text v Memo.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '044'
      object Memo44: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormClose(Sender: TObject; var Action:'
          '                                               TCloseAction);'
          'begin'
          ' if MessageDlg('#39'Zav��t aplikaci ?'#39', mtConfirmation,'
          '    [mbYes, mbNo], 0) = mrYes then'
          '    Action := caFree'
          '  else'
          '    Action := caNone;'
          'end;'
          '=================================================='
          '-V Object Inspectoru  u Form1 v Events u OnClose vlo�te'
          ' FormClose.'
          '-P�i ukon�en� aplikace se zobraz� alternativn� dotaz.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '045'
      object Memo45: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormKeyDown(Sender: TObject; var Key: '
          ' Word; Shift: TShiftState);'
          'begin'
          ' if (Key=VK_ESCAPE) and Printer.Printing then'
          '  begin'
          '    Printer.Abort;'
          '    MessageDlg('#39'Printing aborted'#39', mtInformation, [mbOK],0);'
          '  end;'
          'end;'
          '=================================================='
          '-V Object Inspectoru v Events u OnKeyDown vlo�te '
          ' FormKeyDown.'
          '-Stisk kl�vesy Esc p�eru�� tisk na tisk�rn�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '046'
      object Memo46: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' with Printer do'
          '  begin'
          '    BeginDoc;'
          '    Canvas.Rectangle(30, 30, 400, 300);'
          '    EndDoc;'
          '  end;'
          '   Canvas.TextOut(10, 10, '#39'Tisknu'#39');'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button, v k�du do Uses vlo�te Printers.'
          '-Po stisku Button se vytiskne dle nastaven� r�me�ek.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '047'
      object Memo47: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          ' var'
          '  I, J: Integer;'
          'begin'
          '  with StringGrid1 do'
          '    for I := 1 to ColCount do'
          '      for J:= 1 to RowCount do'
          '        Cells[I,J] := '#39'Delphi'#39';'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te StringGrid a Button.'
          '-Po stisku Button se do bun�k tabulky vyp�e zadan� text.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '048'
      object Memo48: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormMouseDown(Sender: TObject; Button:'
          ' TMouseButton; Shift: TShiftState; X, Y: Integer);'
          'begin'
          ' Canvas.TextOut(X, Y, '#39'Tady'#39');'
          'end;'
          '=================================================='
          '-V Object Inspectoru v Events formul��e u OnMouseDown'
          ' vlo�te FormMouseDown.'
          '-P�i stisku tla��tka my�i se na sou�adnic�ch kursoru my�i vyp�e'
          ' vlo�en� text.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '049'
      object Memo49: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' Memo1.SelectAll;'
          ' Memo1.CutToClipboard;'
          ' Memo2.Clear;'
          ' Memo2.PasteFromClipboard;'
          ' Memo1.SetFocus;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button a 2x Memo.'
          '-Po stisku tla��tka se text vyjme z Memo1 a vlo�� do Memo2.'
          ' Kursor se nastav� do Memo1.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '050'
      object Memo50: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.StringGrid1Click(Sender: TObject);'
          'begin'
          ' Label1.Caption := '#39'Kursor je ve sloupci '#39' + '
          ' IntToStr(StringGrid1.Col + 1) +'
          ' '#39', ��dku '#39' + IntToStr(StringGrid1.Row + 1);'
          'end;'
          '=================================================='
          '-Do formul��e vlo�te StringGrid a Label.'
          '-P�i stisku tla��tka my�i se v Label zobraz�, ve kter�m ��dku '
          ' a sloupci je um�st�n kursor my�i.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '051'
      object Memo51: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FindDialog1Find(Sender: TObject);'
          ' var'
          '  I, J, PosReturn, SkipChars: Integer;'
          'begin'
          '  for I := 0 to Memo1.Lines.Count do'
          '  begin'
          '    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);'
          '    if PosReturn <> 0 then '
          '      begin'
          '        Skipchars := 0;'
          '        for J := 0 to I - 1 do'
          '        Skipchars := Skipchars + Length(Memo1.Lines[J]);'
          '        SkipChars := SkipChars + (I*2);'
          '        SkipChars := SkipChars + PosReturn - 1;'
          '        Memo1.SetFocus;'
          '        Memo1.SelStart := SkipChars;'
          '        Memo1.SelLength := Length(FindDialog1.FindText);'
          '      end;'
          '  end;'
          'end;'
          '========'
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' FindDialog1.Position := Point(0, 0);'
          ' FindDialog1.Execute;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Memo, Button a FindDialog.'
          ' Po dvojit�m kliknut� na Button a FindDialog vlo�te v k�du'
          ' uveden� procedury.'
          '-Po stisku tla��tka se otev�e dialogov� okno na nastaven�'
          ' pozici (Point) a po zad�n� hledan�ho textu se tento vyhled�.  ')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '052'
      object Memo52: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' Label1.Caption := DateTimeToStr(Now);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Button a Label.'
          '-Stisk tla��tka vlo�� do formul��e aktu�ln� datum a �as.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '053'
      object Memo53: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' StringGrid1.ColCount := 7;'
          ' StringGrid1.RowCount := 7;'
          'end;'
          '=================================================='
          '-Na formul�� um�st�te komponenty Button a StringGrid.'
          '-Stiskem tla��tka se zm�n� po�et ��dek i sloupc� na 7.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '054'
      object Memo54: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Edit1MouseUp(Sender: TObject; '
          ' Button: TMouseButton; Shift: TShiftState; X, Y: Integer);'
          'begin'
          ' Label1.Caption := '#39'Vybran� �et�zec =  '#39' + Edit1.SelText;'
          ' Label2.Caption := '#39'D�lka �et�zce =  '#39' +'
          '    IntToStr(Edit1.SelLength);'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Edit a 2x Label. V Object'
          ' Inspectoru u Edit v Events u OnMouseUp vlo�te'
          ' Edit1MouseUp a vlo�te do Edit n�jak� text.'
          '-Po kompilaci vyberte my�� libovoln� �sek textu v Edit a ten se'
          ' uk�e v Label1, po�et znak� vybran�ho textu bude v Label2.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '055'
      object Memo55: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.RadioButton1Click(Sender: TObject);'
          'begin'
          ' Edit1.CharCase := ecLowerCase;'
          'end;'
          '========'
          'procedure TForm1.RadioButton2Click(Sender: TObject);'
          'begin'
          '  Edit1.CharCase := ecUpperCase;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Edit a 2x RadioButton a do'
          ' Edit vlo�te text.'
          '-Po stisku 1. tla��tka bude m�t text pouze mal� a po stisku'
          ' 2. tla��tka pouze velk� p�smena.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '056'
      object Memo56: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormPaint(Sender: TObject);'
          'begin'
          ' Form1.Canvas.Pie(10, 10, 200, 200, 61, 3, 200, 61);'
          ' Canvas.Ellipse(170, 170, 250, 200);'
          ' Canvas.Pen.Color := clRed;'
          ' Canvas.PolyLine([Point(5, 5), Point(100, 40), Point(150, 120),'
          '   Point(140, 200), Point(80, 100), Point(5, 5)]);'
          'end;'
          '=================================================='
          '-V Object Inspectoru u Form v Events u OnPaint vlo�te'
          ' FormPaint.'
          '-Po kompilaci se vykresl� kruhov� v�se�, elipsa a v�ce�heln�k.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '057'
      object Memo57: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormKeyDown(Sender: TObject;'
          '                 var Key: Word; Shift: TShiftState);'
          'begin'
          ' if (shift = ([ssAlt, ssCtrl])) then Form1.Color := clRed;'
          'end;'
          '=================================================='
          '-V Object Inspectoru u Form v Events u OnKeyDown vlo�te'
          ' FormKeyDown.'
          '-P�i stisku kl�ves ALT+CTRL se formul�� zbarv� �erven�.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '058'
      object Memo58: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Timer1Timer(Sender: TObject);'
          'begin'
          ' Timer1.Interval := 100;'
          ' Shape1.Left := Shape1.Left + 1;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponenty Timer a Shape.'
          '-Po kompilaci se Shape pohybuje dle nastaven�ho �asov�ho'
          ' intervalu doprava.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '059'
      object Memo59: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          ' Label1.Font.Name := '#39'System'#39';'
          ' Label1.Font.Size := 12;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te Button a Label.'
          '-Po stisku tla��tka se zm�n� font dle nastaven� v k�du.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = '060'
      object Memo60: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Lines.Strings = (
          'procedure TForm1.FormCreate(Sender: TObject);'
          'begin'
          ' with DrawGrid1 do'
          '  begin'
          '    if DefaultColWidth > 90 then'
          '      GridLineWidth := 2'
          '    else'
          '      GridLineWidth := 4;'
          '   end;'
          'end;'
          '=================================================='
          '-Na formul�� vlo�te komponentu DrawGrid a v Object'
          ' Inspectoru u Form v Events u OnCreate vlo�te FormCreate.'
          '-���ka linek v tabulce bude po spu�t�n� dle nastaven� v k�du.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'EDIT'
      object Memo61: TMemo
        Left = 0
        Top = 0
        Width = 325
        Height = 267
        Align = alClient
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'HELP'
      object Image2: TImage
        Left = 8
        Top = 10
        Width = 19
        Height = 19
        Picture.Data = {<image001.bmp>}
      end
      object Image3: TImage
        Left = 8
        Top = 33
        Width = 19
        Height = 19
        Picture.Data = {<image002.bmp>}
      end
      object Image4: TImage
        Left = 8
        Top = 56
        Width = 19
        Height = 19
        Picture.Data = {<image003.bmp>}
      end
      object Image5: TImage
        Left = 8
        Top = 79
        Width = 19
        Height = 19
        Picture.Data = {<image004.bmp>}
      end
      object Image6: TImage
        Left = 8
        Top = 102
        Width = 19
        Height = 19
        Picture.Data = {<image005.bmp>}
      end
      object Image7: TImage
        Left = 8
        Top = 125
        Width = 19
        Height = 19
        Picture.Data = {<image006.bmp>}
      end
      object Image8: TImage
        Left = 8
        Top = 148
        Width = 19
        Height = 19
        Picture.Data = {<image007.bmp>}
      end
      object Image9: TImage
        Left = 8
        Top = 171
        Width = 19
        Height = 19
        Picture.Data = {<image008.bmp>}
      end
      object Image10: TImage
        Left = 8
        Top = 194
        Width = 19
        Height = 19
        Picture.Data = {<image009.bmp>}
      end
      object Image11: TImage
        Left = 8
        Top = 217
        Width = 19
        Height = 19
        Picture.Data = {<image010.bmp>}
      end
      object Image12: TImage
        Left = 8
        Top = 240
        Width = 19
        Height = 19
        Picture.Data = {<image011.bmp>}
      end
      object Label1: TLabel
        Left = 40
        Top = 12
        Width = 72
        Height = 13
        Caption = 'otev��t program'
      end
      object Label2: TLabel
        Left = 40
        Top = 35
        Width = 76
        Height = 13
        Caption = 'ukon�it program'
      end
      object Label3: TLabel
        Left = 40
        Top = 58
        Width = 89
        Height = 13
        Caption = 'minimalizovat okno'
      end
      object Label4: TLabel
        Left = 40
        Top = 81
        Width = 86
        Height = 13
        Caption = '�vodn� obrazovka'
      end
      object Label5: TLabel
        Left = 40
        Top = 104
        Width = 233
        Height = 13
        Caption = 'otev��t edita�n� pole (vkl�dat my�� p�es clipboard)'
      end
      object Label6: TLabel
        Left = 40
        Top = 127
        Width = 200
        Height = 13
        Caption = 'tisknout obsah edita�n�ho pole na tisk�rn�'
      end
      object Label7: TLabel
        Left = 40
        Top = 150
        Width = 188
        Height = 13
        Caption = 'ulo�it obsah edita�n�ho pole do souboru'
      end
      object Label8: TLabel
        Left = 40
        Top = 173
        Width = 150
        Height = 13
        Caption = 'skok na �vodn� str�nku (obsah)'
      end
      object Label9: TLabel
        Left = 40
        Top = 196
        Width = 114
        Height = 13
        Caption = 'skok o 7 str�nek doleva'
      end
      object Label10: TLabel
        Left = 40
        Top = 219
        Width = 121
        Height = 13
        Caption = 'skok o 7 str�nek doprava'
      end
      object Label11: TLabel
        Left = 40
        Top = 242
        Width = 148
        Height = 13
        Caption = 'skok na posledn� str�nku (help)'
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 332
    Height = 23
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 3
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
        77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
        07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF773333333330000033333333333777773333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 291
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333FF33333333333330033333333333333883FF33333333333090033
        33333333338F883FF33333333309990033333FFFFF8F33883FF3000000099999
        0033888888833333883F09999999999999008FFFFFFF33333F88000000099999
        00338888888F333F883333333309990033333333338F3F883333333333090033
        33333333338F8833333333333300333333333333338833333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 271
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 23
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
        77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
        07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF773333333330000033333333333777773333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 251
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F3333333333333303333333333333337333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 311
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F333333333333000333333333333377733333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 63
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF333333333333B003333333333F838383FF333333333BBB003
        33333338838883883F333333333B0033333333833338333383F3333333333333
        333338F33333F33338F33333333B0033333338333338F333383F3333333B0033
        33338F333338FF33338F3333333BB00333338F3333388FF3338F33333333BB00
        33338F33333388FF338F333333333BB003338F333FF3388F338F3333BB003BB0
        033383F388F3388F33833333BB003BB0033338F388FFF88338F333333BBBBB00
        3333383F388888333833333333BBB00333333383FF88833F8333333333333333
        3333333883FFFF88333333333333333333333333388888333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 157
      Top = 2
      Width = 19
      Height = 19
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 137
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 177
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F73300999999999003337777777777777330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton10Click
    end
    object SpeedButton11: TSpeedButton
      Left = 43
      Top = 2
      Width = 19
      Height = 19
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton11Click
    end
    object Panel3: TPanel
      Left = 200
      Top = 2
      Width = 47
      Height = 19
      BevelInner = bvLowered
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel4: TPanel
      Left = 86
      Top = 2
      Width = 47
      Height = 19
      BevelInner = bvLowered
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = -2
    Top = 24
    Width = 335
    Height = 295
    Caption = 'Panel2'
    Color = clBlack
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 2
    object Image1: TImage
      Left = 86
      Top = 52
      Width = 161
      Height = 188
      Center = True
      Picture.Data = {<image012.bmp>}
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 302
    Top = 288
  end
  object PrintDialog1: TPrintDialog
    PrintRange = prSelection
    Left = 276
    Top = 288
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Filter =
      'Text files (*.txt)|*.txt|Pascal files (*.pas)|*.pas|Windows ini ' +
      'files (*.ini)|*.ini|All files (*.*)|*.*'
    Options = [ofPathMustExist]
    Left = 246
    Top = 288
  end
end