home *** CD-ROM | disk | FTP | other *** search
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
-