paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-07 04:33:00 +02:00
Code Issues Packages Projects Releases Wiki Activity
4b80bf49f0
lazarus/examples/testallform.pp
lazarus bbc829a44b MG: fixed compiling examples 
git-svn-id: trunk@3313 -
2002-09-10 14:08:54 +00:00

2624 lines
81 KiB
ObjectPascal
Raw Blame History

{/***************************************************************************
testallform.pp
-------------------
Example application TestAll
Initial Revision : Fri Jul 14 20:00:00 PDT 2000
Author : christer.t.johansson@se.abb.com
***************************************************************************/
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit TestAllForm;
{$mode objfpc}
{$H+}
interface
{$ASSERTIONS ON}
uses classes, forms, buttons, StdCtrls, controls, menus, ExtCtrls, CListBox,
ComCtrls, SysUtils, GraphType, Graphics, Dialogs, Inifiles, Spin, clipbrd, lclLinux,
registry, lresources;
type
TForm1 = class(TForm)
private
Bevel1 : TBevel;
BitBtn1 : TBitBtn;
//Bitmap1 : TBitmap;
Button1 : Array[0..15] of TButton;
CheckBox1 : Array[1..35] of TCheckBox;
ClipBoard1 : TClipBoard;
CListBox1 : TClistBox;
ColorDialog1 : TColorDialog;
ComboBox1 : TComboBox;
//DirectoryListBox1 : TDirectoryListBox;
//DrawGrid1 : TDrawGrid;
//DriveComboBox1 : TDriveComboBox;
Edit1 : TEdit;
//FileListBox1 : TFileListBox;
//FilterComboBox1 : TFilterComboBox;
//FindDialog1 : TFindDialog;
FontDialog1 : TFontDialog;
GroupBox1 : TGroupBox;
//Image1 : TImage;
IniFile1 : TIniFile;
Label1 : TLabel;
ListBox1, ListBox2 : TListBox;
MainMenu1 : TMainMenu;
//+++++++++++++++++++++++++++++ MenuItems +++++++++++++++++++++++++++++++++++++++++++
File1, New1, Open1, Save1, Sep1, Quit1, Settings1, Comps1, Help1, About1 : TMenuItem;
EditM, Event2, Prop2, Sep3 : TMenuItem;
View1, Prop1, Event1 : TMenuItem;
Color1, Find1, Font1, Print1, PrintS1, Replace1, Copy1, Paste1, Cut1, Sep2 : TMenuItem;
AC1, DF1, GM1, NP1, QS1, TZ1 : TMenuItem;
TAppl, TBev, TBit, TBut, TCan, TChe, TClip, TClis, TCol, TCom : TMenuItem;
TDir, TDra, TDri, TEdi, TFile, TFilt, TFin, TFon, TFor : TMenuItem;
TGro, TIma, TIni, TLab, TLis, TMas, TMed, TMem, TMes : TMenuItem;
TNot, TOpe, TPag, TPai, TPan, TPop, TPriD, TPriS, TPro : TMenuItem;
TRadB, TRadG, TRep, TRic, TSav, TSCre, TScroBa, TScroBo, TSha, TSpee, TSpinB, TSpinE, TStat, TStri : TMenuItem;
TTabN, TTabC, TThre, TTim, TTog, TToo, TTrac, TUpD : TMenuItem;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//MaskEdit1 : TMaskEdit;
//MediaPlayer1 : TMediaPlayer;
Memo1 : TMemo;
//MessageDialog1 : TMessageDialog;
NoteBook1 : TNoteBook;
OpenDialog1 : TOpenDialog;
//PageControl1 : TPageControl;
//TabSheet1, TabSheet2, TabSheet3 : TTabSheet;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
PixMap1 : TPixMap;
PopupMenu1 : TPopupMenu;
Hello, Doctor, FName, Yesterday, Tomorrow : TMenuItem;
//PrintDialog1 : TPrintDialog;
//PrinterSetupDialog1 : TPrinterSetupDialog;
ProgressBar1 : TProgressBar;
RadioButton1 : TRadioButton;
RadioGroup1 : TRadioGroup;
//ReplaceDialog1 : TReplaceDialog;
//RichEdit1 : TRichEdit;
SaveDialog1 : TSaveDialog;
ScrollBar1 : TScrollBar;
//ScrollBox1 : TScrollBox;
//Shape1 : TShape;
SpeedButton1, SpeedButton2, SpeedButton3, SpeedButton4 : TSpeedButton;
//SpinButton1 : TSpinButton;
SpinEdit1 : TSpinEdit;
StatusBar1 : TStatusBar;
//StringGrid1 : TStringGrid;
//TabbedNoteBook : TTabbedNoteBook;
//TabControl : TTabControl;
Thread1 : TThread;
Timer1 : TTimer;
ToggleBox1 : TToggleBox;
ToolBar1 : TToolBar;
ToolButton1, ToolButton2 : TToolButton;
TrackBar1, TrackBar2 : TTrackBar;
//UpDown1 : TUpDown;
//+++++++++++++ TestTools +++++++++++++++++++++++++++++
AboutForm : TForm;
BenchForm : Array[1..59] of TForm;
EventForm : TForm;
procedure EventFormShow(Sender : TObject);
procedure EventOnMouseDown(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X,Y : Integer);
procedure EventOnMouseUp(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X,Y : Integer);
procedure EventOnMouseMove(Sender : TObject; Shift : TShiftState; X,Y : Integer);
procedure EventOnMouseEnter(Sender : TObject);
procedure EventOnMouseLeave(Sender : TObject);
procedure EventOnClick(Sender : TObject);
procedure EventOnResize(Sender : TObject);
procedure EventOnShow(Sender : TObject);
procedure EventOnChange(Sender : TObject);
procedure EventOnDblClick(Sender : TObject);
procedure EventOnKeyDown(Sender : TObject; var Key : Word; Shift : TShiftState);
procedure EventOnKeyUp(Sender : TObject; var Key : Word; Shift : TShiftState);
//+++++++++++++ TApplication ++++++++++++++++++++++++++
lblExeName : TLabel;
rdbOk,rdbOkCancel,rdbAbortRetryIgnore,rdbYesNoCancel,rdbYesNo,rdbRetryCancel : TRadioButton;
btnShowBox : TBitBtn;
FBoxStyle : Integer;
procedure BoxStyle(Sender : TObject);
procedure ShowBox(Sender : TObject);
//+++++++++++++ TBevel ++++++++++++++++++++++++++++++++
chbBevelStyle,
chbBevelShape : TRadiogroup;
procedure BevelSettings(Sender : TObject);
//+++++++++++++ TButton +++++++++++++++++++++++++++++++
LCount : Integer;
btnCLRLotto : TBitBtn;
lblLResult : TLabel;
procedure LottoClear(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure ButtonTag(Sender : Integer);
//+++++++++++++ TBitBtn +++++++++++++++++++++++++++++++
cbbKind, cbbAlign : TComboBox;
btnGlyph : TBitBtn;
procedure KindComboChange(Sender : TObject);
procedure AlignComboChange(Sender : TObject);
procedure LoadGlyph(Sender : TObject);
//+++++++++++++ TCanvas +++++++++++++++++++++++++++++++
FPaint : Boolean;
Start1, Start2 : Integer;
cbbPaintType, cbbBrushStyle, cbbPenStyle : TComboBox;
btnCanvasClear, btnPenColor, btnBrushColor, btnGrad : TBitBtn;
lblPaintWhat, lblBrushStyle, lblPenStyle : TLabel;
procedure StyleSelect(Sender : TObject);
procedure PenStyleSelect(Sender : TObject);
procedure DrawRect(X1,Y1,X2,Y2 : Integer);
procedure ClearCanvas(Sender : TObject);
procedure GradCanvas(Sender : TObject);
//+++++++++++++ TCheckBox +++++++++++++++++++++++++++++
lblPick, lblCount : TLabel;
RandCH, CHCount : Integer;
btnAgain : TBitBtn;
procedure CheckClick(Sender : TObject);
procedure AgainClick(Sender : Tobject);
//+++++++++++++ TColorDialog ++++++++++++++++++++++++++
btnColorSelect : TBitBtn;
lblColorInt : TLabel;
procedure ColorSelect(Sender : TObject);
procedure SelectedColor(Sender : TObject);
//+++++++++++++ TComboBox +++++++++++++++++++++++++++++
btnCbbAdd : TButton;
btnCbbRemove, btnMoveTo : TBitBtn;
edtCbbAdd : TEdit;
cbbMoveTo : TComboBox;
lblRemoved, lblIndex, lblSelLength, lblSelStart, lblSelText : TLabel;
procedure AddToCbb(Sender : TObject);
procedure RemoveCbb(Sender : TObject);
procedure MoveToCbb(Sender : TObject);
//+++++++++++++ TForm +++++++++++++++++++++++++++++++++
lblWidth, lblHeight, lblCWidth, lblCHeight : TLabel;
cbbBorder, cbbPosition : TComboBox;
btnKeyDown : TBitBtn;
procedure FormBorder(Sender : TObject);
procedure FormPosition(Sender : TObject);
//+++++++++++++ TFontDialog +++++++++++++++++++++++++++
lblWhatFont, lblFontSize, lblFontStyle : TLabel;
btnShowFont : TBitBtn;
procedure SelectFont(Sender : TObject);
//+++++++++++++ TIniFile ++++++++++++++++++++++++++++++
edtString, edtFloat, edtInteger, edtDate, edtTime : TEdit;
lblString, lblFloat, lblInteger, lblDate, lblTime : TLabel;
btnUpdate : TBitBtn;
procedure IniUpdate(Sender : TObject);
//+++++++++++++ TLabel ++++++++++++++++++++++++++++++++
cbbAlignment : TComboBox;
procedure SelectAlignment(Sender : TObject);
//+++++++++++++ TListBox ++++++++++++++++++++++++++++++
btnRight, btnLeft, btnAdd, btnCopyToMem, btnSaveFile : TBitBtn;
memAddTo : TMemo;
edtAddLis1, edtAddLis2 : TEdit;
Function AddNotDub(AList: TCustomListBox; nText: String):Boolean;
procedure ListBoxMove(Sender : TObject);
procedure CopyToMem(Sender : TObject);
procedure SaveFile(Sender : TObject);
//+++++++++++++ TMemo +++++++++++++++++++++++++++++++++
procedure NewMemo(Sender : TObject);
procedure SaveMemoAs(Sender : TObject);
procedure OpenMemo(Sender : TObject);
btnNew, btnSave, btnOpen : TBitBtn;
//+++++++++++++ TOpenDialog +++++++++++++++++++++++++++
//+++++++++++++ TPaintBox +++++++++++++++++++++++++++++
pntCount : integer;
//+++++++++++++ TPanel ++++++++++++++++++++++++++++++++
Panel2 : TPanel;
btPanelNorm : TButton;
rgPanelInBevel,
rgPanelOutBevel,
rgPanelAlign : TRadioGroup;
procedure PanelInBevelClick(Sender: TObject);
procedure PanelOutBevelClick(Sender: TObject);
procedure PanelAlignClick(Sender: TObject);
procedure PanelNormClick(Sender:TObject);
//+++++++++++++ TProgressBar ++++++++++++++++++++++++++
chbProgText, chbProgDirect, chbProgOrient, chbProgEnable, chbSmooth : TCheckBox;
ProgTime : TTimer;
procedure ProgSettings(Sender : TObject);
procedure UpdateProgressBar(Sender : TObject);
//+++++++++++++ TRadioGroup +++++++++++++++++++++++++++
procedure RadioGroupClick(Sender : TObject);
//+++++++++++++ TScreen +++++++++++++++++++++++++++++++
lblScreenWidth, lblScreenHeight, lblPixels, lblFormCount : TLabel;
//+++++++++++++ TSpeedButton ++++++++++++++++++++++++++
SpeedB : Array[0..8] of TSpeedButton;
//+++++++++++++ TSpinEdit +++++++++++++++++++++++++++++
lblOnChange : TLabel;
//+++++++++++++ TTimer ++++++++++++++++++++++++++++++++
lblTimeNow, lblHourMinSec, lblMSec : TLabel;
btnStart : TBitBtn;
MSec, Hour, Min, Sec : Integer;
FTrack : Boolean;
procedure Timer1OnTimer(Sender : TObject);
procedure TimeTrack(Sender : TObject);
//+++++++++++++ TToggleBox ++++++++++++++++++++++++++++
lblChecked, lblState : TLabel;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure CreateMainMenu;
procedure CreateTestTools;
procedure TestFormClose(Sender : TObject; var Action : TCloseAction);
procedure CreateComponents;
procedure QuitClick(Sender : TObject);
procedure ShowTestForm(Sender : TObject);
procedure ShowMessage0(Sender : TObject);
procedure ShowMessage1(Sender : TObject);
protected
//+++++++++++++ Virtual MouseEnter/Leave ++++++++++++++
FFocusControl : TControl;
procedure ApplicationIdle(Sender : TObject; var Done : Boolean);
procedure VirOnEnter(Sender: TObject);
procedure VirOnLeave(Sender: TObject);
//+++++++++++++ About +++++++++++++++++++++++++++++++++
lblAbout, lblAuthor : TMemo;
gbAbout : TGroupBox;
btnBigOk : TBitBtn;
procedure CloseAbout(Sender : TObject);
public
procedure EventWatch;
lbEvents : TListBox;
FLeft : Integer;
Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
end;
var
Form1 : TForm1;
S : TFileStream;
implementation
function LoadResource(ResourceName:string; PixMap:TPixMap):boolean;
var
ms:TMemoryStream;
res:TLResource;
begin
Result:=false;
res:=LazarusResources.Find(ResourceName);
if (res <> nil) then
begin
if res.ValueType='XPM' then begin
ms:=TMemoryStream.Create;
try
ms.Write(res.Value[1],length(res.Value));
ms.Position:=0;
PixMap.LoadFromStream(ms);
Result:=true;
finally
ms.Free;
end;
end;
end
else
writeln ('TestAll Warning: resource "', ResourceName,'" not found!');
end;
{$I testtools.inc}
//******** Create Form1.TForm1 ******************************************************
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
OnClick := @EventOnClick;
//OnDestroy := @Destroy;
OnKeyDown := @EventOnKeyDown;
Height := 300;
//Action
//ActiveControl := btnKeyDown;
Align := alNone;
//Anchors := Form1.Anchors+[akLeft,akTop]; //Unhandled exeption
//AutoScroll := True;
AutoSize := False;
//BiDiMode := Form1.BiDiMode+[bdLefToRight];
//BorderIcons := Form1.BorderIcons+[biSystemMenu];
BorderStyle := bsDialog;
BorderWidth := 0;
Caption := 'Test All Components V 0.2';
//ClientHeight := 333;
//ClientWidth := 534;
Color := clBtnFace;
//Constraints
//Cursor := crHandPoint; //Only crDefault
//DefaultMonitor := dmActiveForm;
//DockSite := False;
DragKind := dkDrag;
DragMode := dmManual;
//Enabled := True; //If set before MainMenu it disappers, before Height SpeedButton disappers, after Hint and it will not show
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlack;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
//Font.Style := Form1.Font.Style+[fsBold]; //Access violation
FormStyle := fsStayOnTop;
//Height := 300;
//HelpContext := 0;
//HelpFile
Hint := 'The TEST Station';
//HorzScrollBars //Not been tested yet
//Icon //Not been tested yet
KeyPreview := True;
Left := 200;
//Menu := MainMenu1;
Name := 'Form1';
//ObjectMenuItem := File1;
//ParentBiDiMode := False;
ParentFont := True;
//PixelsPerInch := 96;
PopupMenu := PopupMenu1;
Position := poScreenCenter;
//PrintScale := poProportional;
//Scaled := True;
//ShowHint := True; //Has to be set after Enabled
Tag := 9;
Top := 200;
//UseDockManager := False;
//VertScrollBar //Not been tested yet
//Visible := True; //2 X Access violation
Width := 403;
//WindowMenu := File1;
WindowState := wsNormal;
Enabled := True; //Has to be set after SpeedButtons
ShowHint := True; //Has to be set after Enabled
LCount := 0;
FPaint := False;
Randomize;
CreateMainMenu;
CreateComponents;
CreateTestTools;
FFocusControl := nil;
Application.OnIdle := @ApplicationIdle;
End;
procedure TForm1.CreateMainMenu;
begin
MainMenu1 := TMainMenu.Create(Self);
MainMenu1.Name := 'MainMenu1';
Menu := MainMenu1;
File1 := TMenuItem.Create(Self);
File1.Caption := '&File';
MainMenu1.Items.Add(File1);
New1 := TMenuItem.Create(Self);
New1.Caption := '&New';
New1.OnClick := @NewMemo;
File1.Add(New1);
Open1 := TMenuItem.Create(Self);
Open1.Caption := '&Open';
Open1.OnClick := @OpenMemo;
File1.Add(Open1);
Save1 := TMenuItem.Create(Self);
Save1.Caption := '&Save as...';
Save1.OnClick := @SaveMemoAs;
File1.Add(Save1);
Sep1 := TMenuItem.Create(Self);
Sep1.Caption := '-';
File1.Add(Sep1);
Quit1 := TMenuItem.Create(Self);
Quit1.Caption := '&Quit';
Quit1.OnClick := @QuitClick;
File1.Add(Quit1);
EditM := TMenuItem.Create(Self);
EditM.Caption := '&Edit';
MainMenu1.Items.Add(EditM);
Copy1 := TMenuItem.Create(Self);
Copy1.Caption := 'C&opy Ctrl+C';
Paste1 := TMenuItem.Create(Self);
Paste1.Caption := '&Paste Ctrl+V';
Cut1 := TMenuItem.Create(Self);
Cut1.Caption := 'C&ut Ctrl+X';
Sep2 := TMenuItem.Create(Self);
Sep2.Caption := '-';
Find1 := TMenuItem.Create(Self);
Find1.Caption := '&Find';
Replace1 := TMenuItem.Create(Self);
Replace1.Caption := '&Replace';
EditM.Add(Copy1);
EditM.Add(Paste1);
EditM.Add(Cut1);
EditM.Add(Sep2);
EditM.Add(Find1);
EditM.Add(Replace1);
View1 := TMenuItem.Create(Self);
View1.Caption := '&View';
MainMenu1.Items.Add(View1);
Prop1 := TMenuItem.Create(Self);
Prop1.Caption := '&Properties';
Event1 := TMenuItem.Create(Self);
Event1.Caption := '&EventSnoop';
Event1.OnClick := @EventFormShow;
View1.Add(Prop1);
View1.Add(Event1);
Settings1 := TMenuItem.Create(Self);
Settings1.Caption := '&Settings';
MainMenu1.Items.Add(Settings1);
Event2 := TMenuItem.Create(Self);
Event2.Caption := 'E&ventSnoop';
Prop2 := TMenuItem.Create(Self);
Prop2.Caption := 'P&roperties';
Sep3 := TMenuItem.Create(Self);
Sep3.Caption := '-';
Color1 := TMenuItem.Create(Self);
Color1.Caption := '&Color';
Font1 := TMenuItem.Create(Self);
Font1.Caption := 'F&ont';
Print1 := TMenuItem.Create(Self);
Print1.Caption := '&Print';
PrintS1 := TMenuItem.Create(Self);
PrintS1.Caption := 'Printer &Setup';
Settings1.Add(Event2);
Settings1.Add(Prop2);
Settings1.Add(Sep3);
Settings1.Add(Color1);
Settings1.Add(Font1);
Settings1.Add(Print1);
Settings1.Add(PrintS1);
//++++++++++++++++++++++++++++++++++++ Components +++++++++++++++++++++++++++++++++++
Comps1 := TMenuItem.Create(Self);
Comps1.Caption := '&Components';
MainMenu1.Items.Add(Comps1);
AC1 := TMenuItem.Create(Self);//++++ A - C
AC1.Caption := 'A - C';
Comps1.Add(AC1);
TAppl := TMenuItem.Create(Self);
TAppl.Caption := 'TApplication';
TAppl.OnClick := @ShowMessage1;
TBev := TMenuItem.Create(Self);
TBev.Caption := 'TBevel';
TBev.OnClick := @ShowMessage1;
TBit := TMenuItem.Create(Self);
TBit.Caption := 'TBitBtn';
TBit.OnClick := @ShowMessage1;
TBut := TMenuItem.Create(Self);
TBut.Caption := 'TButton';
TBut.OnClick := @ShowMessage1;
TCan := TMenuItem.Create(Self);
TCan.Caption := 'TCanvas';
TCan.OnClick := @ShowMessage1;
TChe := TMenuItem.Create(Self);
TChe.Caption := 'TCheckBox';
TChe.OnClick := @ShowMessage1;
TClip := TMenuItem.Create(Self);
TClip.Caption := 'TClipBoard';
TClip.OnClick := @ShowMessage1;
TClis := TMenuItem.Create(Self);
TClis.Caption := 'TCListBox';
TClis.OnClick := @ShowMessage1;
TCol := TMenuItem.Create(Self);
TCol.Caption := 'TColorDialog';
TCol.OnClick := @ShowMessage1;
TCom := TMenuItem.Create(Self);
TCom.Caption := 'TComboBox';
TCom.OnClick := @ShowMessage1;
AC1.Add(TAppl);
AC1.Add(TBev);
AC1.Add(TBit);
AC1.Add(TBut);
AC1.Add(TCan);
AC1.Add(TChe);
AC1.Add(TClip);
AC1.Add(TClis);
AC1.Add(TCol);
AC1.Add(TCom);
DF1 := TMenuItem.Create(Self);//++++ D - F
DF1.Caption := 'D - F';
Comps1.Add(DF1);
TDir := TMenuItem.Create(Self);
TDir.Caption := 'TDirectoryListBox';
TDir.OnClick := @ShowMessage0; //++ Do not exist yet ++
TDra := TMenuItem.Create(Self);
TDra.Caption := 'TDrawGrid';
TDra.OnClick := @ShowMessage0; //++ Do not exist yet ++
TDri := TMenuItem.Create(Self);
TDri.Caption := 'TDriveComboBox';
TDri.OnClick := @ShowMessage0; //++ Do not exist yet ++
TEdi := TMenuItem.Create(Self);
TEdi.Caption := 'TEdit';
TEdi.OnClick := @ShowMessage1;
TFile := TMenuItem.Create(Self);
TFile.Caption := 'TFileListBox';
TFile.OnClick := @ShowMessage0; //++ Do not exist yet ++
TFilt := TMenuItem.Create(Self);
TFilt.Caption := 'TFilterComboBox';
TFilt.OnClick := @ShowMessage0; //++ Do not exist yet ++
TFin := TMenuItem.Create(Self);
TFin.Caption := 'TFindDialog';
TFin.OnClick := @ShowMessage0; //++ Do not exist yet ++
TFon := TMenuItem.Create(Self);
TFon.Caption := 'TFontDialog';
TFon.OnClick := @ShowMessage1;
TFor := TMenuItem.Create(Self);
TFor.Caption := 'TForm';
TFor.OnClick := @ShowMessage1;
DF1.Add(TDir);
DF1.Add(TDra);
DF1.Add(TDri);
DF1.Add(TEdi);
DF1.Add(TFile);
DF1.Add(TFilt);
DF1.Add(TFin);
DF1.Add(TFon);
DF1.Add(TFor);
GM1 := TMenuItem.Create(Self);//++++ G - M
GM1.Caption := 'G - M';
Comps1.Add(GM1);
TGro := TMenuItem.Create(Self);
TGro.Caption := 'TGroupBox';
TGro.OnClick := @ShowMessage1;
TIma := TMenuItem.Create(Self);
TIma.Caption := 'TImage';
TIma.OnClick := @ShowMessage0; //++ Do not exist yet ++
TIni := TMenuItem.Create(Self);
TIni.Caption := 'TIniFile';
TIni.OnClick := @ShowMessage1;
TLab := TMenuItem.Create(Self);
TLab.Caption := 'TLabel';
TLab.OnClick := @ShowMessage1;
TLis := TMenuItem.Create(Self);
TLis.Caption := 'TListBox';
TLis.OnClick := @ShowMessage1;
TMas := TMenuItem.Create(Self);
TMas.Caption := 'TMaskEdit';
TMas.OnClick := @ShowMessage0; //++ Do not exist yet ++
TMed := TMenuItem.Create(Self);
TMed.Caption := 'TMediaPlayer';
TMed.OnClick := @ShowMessage0; //++ Do not exist yet ++
TMem := TMenuItem.Create(Self);
TMem.Caption := 'TMemo';
TMem.OnClick := @ShowMessage1;
TMes := TMenuItem.Create(Self);
TMes.Caption := 'TMessageDialog';
TMes.OnClick := @ShowMessage0; //++ Do not exist yet ++
GM1.Add(TGro);
GM1.Add(TIma);
GM1.Add(TIni);
GM1.Add(TLab);
GM1.Add(TLis);
GM1.Add(TMas);
GM1.Add(TMed);
GM1.Add(TMem);
GM1.Add(TMes);
NP1 := TMenuItem.Create(Self);//++++ N - P
NP1.Caption := 'N - P';
Comps1.Add(NP1);
TNot := TMenuItem.Create(Self);
TNot.Caption := 'TNoteBook';
TNot.OnClick := @ShowMessage1;
TOpe := TMenuItem.Create(Self);
TOpe.Caption := 'TOpenDialog';
TOpe.OnClick := @ShowMessage1;
TPag := TMenuItem.Create(Self);
TPag.Caption := 'TPageControl';
TPag.OnClick := @ShowMessage0; //++ Do not exist yet ++
TPai := TMenuItem.Create(Self);
TPai.Caption := 'TPaintBox';
TPai.OnClick := @ShowMessage1;
TPan := TMenuItem.Create(Self);
TPan.Caption := 'TPanel';
TPan.OnClick := @ShowMessage1;
TPop := TMenuItem.Create(Self);
TPop.Caption := 'TPopupMenu';
TPop.OnClick := @ShowMessage1;
TPriD := TMenuItem.Create(Self);
TPriD.Caption := 'TPrinterDialog';
TPriD.OnClick := @ShowMessage0; //++ Do not exist yet ++
TPriS := TMenuItem.Create(Self);
TPriS.Caption := 'TPrinterSetupDialog';
TPriS.OnClick := @ShowMessage0; //++ Do not exist yet ++
TPro := TMenuItem.Create(Self);
TPro.Caption := 'TProgressBar';
TPro.OnClick := @ShowMessage1;
NP1.Add(TNot);
NP1.Add(TOpe);
NP1.Add(TPag);
NP1.Add(TPai);
NP1.Add(TPan);
NP1.Add(TPop);
NP1.Add(TPriD);
NP1.Add(TPriS);
NP1.Add(TPro);
QS1 := TMenuItem.Create(Self);//++++ Q - S
QS1.Caption := 'Q - S';
Comps1.Add(QS1);
TRadB := TMenuItem.Create(Self);
TRadB.Caption := 'TRadioButton';
TRadB.OnClick := @ShowMessage1;
TRadG := TMenuItem.Create(Self);
TRadG.Caption := 'TRadioGroup';
TRadG.OnClick := @ShowMessage1;
TRep := TMenuItem.Create(Self);
TRep.Caption := 'TReplaceDialog';
TRep.OnClick := @ShowMessage0; //++ Do not exist yet ++
TRic := TMenuItem.Create(Self);
TRic.Caption := 'TRichEdit';
TRic.OnClick := @ShowMessage0; //++ Do not exist yet ++
TSav := TMenuItem.Create(Self);
TSav.Caption := 'TSaveDialog';
TSav.OnClick := @ShowMessage1;
TScre := TMenuItem.Create(Self);
TScre.Caption := 'TScreen';
TScre.OnClick := @ShowMessage1;
TScroBa := TMenuItem.Create(Self);
TScroBa.Caption := 'TScrollBar';
TScroBa.OnClick := @ShowMessage1;
TScroBo := TMenuItem.Create(Self);
TScroBo.Caption := 'TScrollBox';
TScroBo.OnClick := @ShowMessage0; //++ Do not exist yet ++
TSha := TMenuItem.Create(Self);
TSha.Caption := 'TShape';
TSha.OnClick := @ShowMessage0; //++ Do not exist yet ++
TSpee := TMenuItem.Create(Self);
TSpee.Caption := 'TSpeedButton';
TSpee.OnClick := @ShowMessage1;
TSpinB := TMenuItem.Create(Self);
TSpinB.Caption := 'TSpinButton';
TSpinB.OnClick := @ShowMessage0; //++ Do not exist yet ++
TSpinE := TMenuItem.Create(Self);
TSpinE.Caption := 'TSpinEdit';
TSpinE.OnClick := @ShowMessage1;
TStat := TMenuItem.Create(Self);
TStat.Caption := 'TStatusBar';
TStat.OnClick := @ShowMessage1;
TStri := TMenuItem.Create(Self);
TStri.Caption := 'TStringGrid';
TStri.OnClick := @ShowMessage0; //++ Do not exist yet ++
QS1.Add(TRadB);
QS1.Add(TRadG);
QS1.Add(TRep);
QS1.Add(TRic);
QS1.Add(TSav);
QS1.Add(TScre);
QS1.Add(TScroBa);
QS1.Add(TScroBo);
QS1.Add(TSha);
QS1.Add(TSpee);
QS1.Add(TSpinB);
QS1.Add(TSpinE);
QS1.Add(TStat);
QS1.Add(TStri);
TZ1 := TMenuItem.Create(Self);//++++ T - Z
TZ1.Caption := 'T - Z';
Comps1.Add(TZ1);
TTabN := TMenuItem.Create(Self);
TTabN.Caption := 'TTabbedNoteBook';
TTabN.OnClick := @ShowMessage0; //++ Do not exist yet ++
TTabC := TMenuItem.Create(Self);
TTabC.Caption := 'TTabControl';
TTabC.OnClick := @ShowMessage0; //++ Do not exist yet ++
TThre := TMenuItem.Create(Self);
TThre.Caption := 'TThread';
TThre.OnClick := @ShowMessage1;
TTim := TMenuItem.Create(Self);
TTim.Caption := 'TTimer';
TTim.OnClick := @ShowMessage1;
TTog := TMenuItem.Create(Self);
TTog.Caption := 'TToggleBox';
TTog.OnClick := @ShowMessage1;
TToo := TMenuItem.Create(Self);
TToo.Caption := 'TToolBar';
TToo.OnClick := @ShowMessage1;
TTrac := TMenuItem.Create(Self);
TTrac.Caption := 'TTrackBar';
TTrac.OnClick := @ShowMessage1;
TUpD := TMenuItem.Create(Self);
TUpD.Caption := 'TUpDown';
TUpD.OnClick := @ShowMessage0; //++ Do not exist yet ++
TZ1.Add(TTabN);
TZ1.Add(TTabC);
TZ1.Add(TThre);
TZ1.Add(TTim);
TZ1.Add(TTog);
TZ1.Add(TToo);
TZ1.Add(TTrac);
TZ1.Add(TUpD);
//++++++++++++++++++++++++++++++++++++ Help +++++++++++++++++++++++++++++++++++++++++
Help1 := TMenuItem.Create(Self);
Help1.Caption := '&Help';
MainMenu1.Items.Add(Help1);
About1 := TMenuItem.Create(Self);
About1.Caption := '&About...';
About1.OnClick := @ShowTestForm;
Help1.Add(About1);
end;
procedure TForm1.CreateComponents;//++ CREATE COMPONENTS ++++++++++++++++++++++++++++
var
i, CHLeft, CHTop : Integer;
begin
CHLeft:= 25;
CHTop := 25;
CHCount := 0;
For i:=1 to 59 do
begin
BenchForm[i] := TForm.Create(Self);
With BenchForm[i] do
Begin
Parent := Self;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnShow := @EventOnShow;
OnClose := @TestFormClose;
OnKeyDown := @EventOnKeyDown;
OnKeyUp := @EventOnKeyUp;
ClientHeight := 254;
ClientWidth := 392;
KeyPreview := True;
Height := 300;
Width := 400;
Caption := 'TestForm '+IntToStr(i);
Color := clBtnFace;
BorderStyle := bsDialog;
Position := poScreenCenter;
Left := 100;
Top := 100;
end;
end;
BenchForm[54].KeyPreview := True;
BenchForm[19].BorderStyle := bsSizeable;
BenchForm[19].OnMouseMove := @EventOnMouseMove;
BenchForm[5].OnMouseMove := @EventOnMouseMove;
BenchForm[19].OnResize := @EventOnResize;
BenchForm[19].ActiveControl := btnKeyDown;
//BenchForm[5].Canvas.Pen.Style := psDash;
//BenchForm[5].Canvas.Brush.Style := bsCross;
//++++++++++++++++++++++++++++++++++ TBevel +++++++++++++++++++++++++++++++++++++++++
Bevel1 := TBevel.Create(Self);
with Bevel1 do
begin
Parent := BenchForm[2];
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
Cursor := crArrow;
Height := 100;
Hint := 'Bevel1';
Left := 10;
//Name := 'Hello';
ParentShowHint := True;
Shape := bsBox;
ShowHint := True;
Style := bsLowered;
Tag := 0;
Top := 10;
Visible := True;
Width := 100;
end;
//++++++++++++++++++++++++++++++++++ TBitBtn1 +++++++++++++++++++++++++++++++++++++++
S := TFileStream.Create('../images/mouse.xpm', fmOpenRead);
try
Pixmap1 := TPixmap.Create;
Pixmap1.TransparentColor := clBtnFace;
Pixmap1.LoadFromStream(S);
finally
S.Free;
end;
BitBtn1 := TBitBtn.Create(Self);
With BitBtn1 do
begin
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseEnter := @EventOnMouseEnter;
OnMouseLeave := @EventOnMouseLeave;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
Parent := BenchForm[3];
width := 80;
left := 10;
height := 50;
top := 13;
// ******** Delphi 5 Properties *********
//Action
Anchors := BitBtn1.Anchors + [akTop]-[akLeft];
//BiDiMode := bdLeftToRight; //Identifier not found
//Cancel := False; //Identifier not found
Caption := 'Glyph';
//Constraints := BitBtn1.Constraints//Identifier not found
Cursor := crHandPoint; //No function
Default := False; //Startup error
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True; //No function
//Font.Charset := DEFAULT_CHARSET; //Identifier not found
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde'; //No function
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := BitBtn1.Font.Style+[fsBold];
Glyph := PixMap1;
//height := 28; Has to be set before Glyph
//HelpContext := 0; Identifier not found
Hint := 'Settings for BitBtn1 >>';
kind := bkCustom;
layout := blGlyphLeft;
//left := 10; Has to be set before Kind
//Margin := -1; Identifier not found
ModalResult := mrNone;
Name := 'BitBtn1';
//NumGlyphs := 1; Identifier not found
//ParentBiDiMode := False; Identifier not found
ParentFont := True;
ParentShowHint := False;
PopupMenu := PopupMenu1;
ShowHint := True;
Spacing := 2;
//Style := bsAutoDetect; Identifier not found
TabOrder := 0;
TabStop := True;
Tag := 0;
//top := 10; //Could not be here ??
Visible := True;
//width := 80; Has to be set before Height
end;
//+++++++++++++++++++++++++++++++++++++ Button ++++++++++++++++++++++++++++++++++++++
Button1[0] := TButton.Create(Self);
With Button1[0] do
begin
Parent := BenchForm[4];
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
OnMouseEnter := @EventOnMouseEnter;
OnMouseLeave := @EventOnMouseLeave;
Top := 30;
Left := 30;
Height := 25;
Width := 25;
//Action:=nil
// Anchors := button1.Anchors+[akLeft];
//BiDiMode := bdLeftToRight; //Identifier not found
//Cancel := False; //Identifier not found
Caption := ' ';
//Constraints :=
Cursor := crHandPoint;
Default := True;
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
// Font.Style := Button1.Font.Style+[fsBold];
//Height := 26; //Has to be set before "Enabled"
//HelpContext := 0; //Identifier not found
Hint := 'Lotto';
//Left := 10; //Has to be set before "Default"
ModalResult := mrNone;
Name := 'Button1';
//ParentBiDiMode := False; //Identifier not found
ParentFont := False;
ParentShowHint := False;
PopupMenu := PopupMenu1;
ShowHint := True;
TabOrder := 5;
TabStop := False;
Tag := 1;
//Top := 10; //Has to be set before "Default"
Visible := True;
//Width := 75; //Found out why it has to be set earlier
end;
For i:=1 to 15 do // the array of buttons
begin
Button1[i] := TButton.Create(Self);
With Button1[i] do
begin
Parent := BenchForm[4];
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
OnMouseEnter := @EventOnMouseEnter;
OnMouseLeave := @EventOnMouseLeave;
If (i>3) and (i<8) then
begin
Top := Button1[0].Top+25;
Left := Button1[i-4].Left;
End else
begin
Top := 30;
Left := Button1[i-1].Left+25;
end;
If (i>7) and (i<12) then
begin
Top := Button1[0].Top+50;
Left := Button1[i-4].Left;
End;
If i>11 then
begin
Top := Button1[0].Top+75;
Left := Button1[i-4].Left;
End;
Height := 25;
Width := 25;
//Action:=nil
// Anchors := button1.Anchors+[akLeft];
//BiDiMode := bdLeftToRight; //Identifier not found
//Cancel := False; //Identifier not found
Caption := ' ';
//Constraints :=
Cursor := crHandPoint;
Default := True;
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
// Font.Style := Button1.Font.Style+[fsBold];
//Height := 26; //Has to be set before "Enabled"
//HelpContext := 0; //Identifier not found
Hint := 'Lotto';
//Left := 10; //Has to be set before "Default"
ModalResult := mrNone;
//Name := 'Lotto';
//ParentBiDiMode := False; //Identifier not found
ParentFont := False;
ParentShowHint := False;
PopupMenu := PopupMenu1;
ShowHint := True;
TabOrder := 5;
TabStop := False;
Tag := i+1;
//Top := 10; //Has to be set before "Default"
Visible := True;
//Width := 75; //Found out why it has to be set earlier
end;
end;
//+++++++++++++++++++++++++++++++++++++ TCheckBox +++++++++++++++++++++++++++++++++++
For i:=1 to 35 do
Begin
CheckBox1[i] := TCheckBox.Create(Self);
with CheckBox1[i] do
begin
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
Parent := BenchForm[6];
//Action
//Alignment := taRigthJustify;
AllowGrayed := True;
Anchors := CheckBox1[i].Anchors + [akTop, akLeft];
//BiDiMode := bdLeftToRight;
Caption := IntToStr(i);
Checked := False;
Color := clBlue;
//Constraints
Cursor := crDefault; //Error if not crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := CheckBox1[i].Font.Style+[fsBold];
Height := 20;
//HelpContext := 0;
Hint := 'Maybe this one';
Left := CHLeft;
Name := 'CheckBox1'+IntToStr(i);
//ParentBiDiMode := False;
ParentColor := True;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
State := cbUnchecked;
TabOrder := 10;
Tag := 0;
Top := CHTop;
Visible := True;
Width := 35;
end;
CHLeft:=CHLeft+35;
If (i = 5) or (i = 10) or (i = 15) or (i = 20) or (i = 25) or (i = 30) then
begin
CHLeft:= 25;
CHTop:= CHTop + 20;
end;
RandCH := 0;
While RandCH < 1 do
RandCH := Random(35);
end;
//+++++++++++++++++++++++++++++++++++++ Clipboard1 ++++++++++++++++++++++++++++++++++
//ClipBoard1 := TClipBoard.Create; //BenchForm[7] Don<6F>t know how to use !?!
//+++++++++++++++++++++++++++++++++++++ CListBox1 +++++++++++++++++++++++++++++++++++
CListBox1 := TCListBox.Create(Self);
with CListBox1 do
begin
Parent := BenchForm[8];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Items.Add('Hello');
Items.Add('Doctor');
Items.Add('Name');
Items.Add('Yesterday');
Items.Add('Tomorrow');
Left := 10;
ListColumns := 1;
Top := 10;
Width := 150;
Height := 100;
Visible := True;
end;
//+++++++++++++++++++++++++++++++++++++ ColorDialog1 ++++++++++++++++++++++++++++++++
ColorDialog1 := TColorDialog.Create(Self); //BenchForm[9]
//+++++++++++++++++++++++++++++++++++++ ComboBox1 +++++++++++++++++++++++++++++++++++
ComboBox1 := TComboBox.Create(Self);
with ComboBox1 do
begin
Parent := BenchForm[10];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
OnChange := @EventOnChange;
Anchors := ComboBox1.Anchors + [akTop,akLeft];
//BiDiMode := bdLeftToRight; //Identifier no found
Color := clRed;
//Constraints := //Identifier no found
Cursor := crDefault; //Only crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
//DropDownCount := 8;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET; //Identifier not found
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde'; //No function
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := ComboBox1.Font.Style+[fsItalic];
Height := 32;
//HelpContext := 0; //Identifier not found
Hint := 'Components'; //Don't work...
//ImeMode := imDontCare;
//ImeName
//IntegralHeight := True;
//ItemHeight := 13;
Items.Add('HELLO');
Items.Add('DOCTOR');
Items.Add('YESTERDAY');
Items.Add('TOMORROW');
Items.Add('MY GOD!');
Items.Add('IT<49>S FULL OF STARS !!');
Items.Add('HAL9000 : ERROR');
Left := 10;
Name := 'ComboBox1';
//ParentBiDiMode := True; //Identifier not found
ParentColor := False;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True; //Don't work...
Sorted := False; //If true Access violation
Style := csDropDown;
TabOrder := 0;
TabStop := False;
Tag := 9;
Text := 'Hello there !!';
Top := 10;
Visible := True;
Width := 160;
end;
//+++++++++++++++++++++++++++++++++++++ DirectoryListBox1 +++++++++++++++++++++++++++
{DirectoryListBox1 := TDirectoryListBox.Create(Self);
With DirectoryListBox1 do
begin
Parent := BenchForm[11];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
//BiDiMode := bdLeftToRight;
Color := clRed;
//Columns := 0;
//Constraints :=
Ctl3D := True;
Cursor := crDefault;
//DirLabel :=
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//FileList :=
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := ListBox1.Font.Style+[fsItalic];
Height := 196;
//HelpContext := 0;
Hint := 'DirectoryListBox1';
//ImeMode := imDontCare;
//ImeName
//IntegralHeight := True;
//ItemHeight := 13;
Left := 10;
MultiSelect := True;
Name := 'DirectoryListBox1';
//ParentBiDiMode := True;
ParentColor := False;
ParnetCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 35;
Visible := True;
Width := 150;
end;}
//+++++++++++++++++++++++++++++++++++++ DrawGrid1 +++++++++++++++++++++++++++++++++++
{DrawGrid1 := TDrawGrid.Create(Self);
With DrawGrid1 do
begin
Parent := BenchForm[12];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
//BiDiMode := bdLeftToRight;
BorderStyle := bsSingle;
ColCount := 5;
Color := clWindow;
Ctl3D := True;
Cursor := crDefault;
DefaultColWidth := 64;
DefaultDrawing := True;
DefaultRowHeight := 24;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
FixedColor := clBtnFace;
FixedCols := 1;
FixedRows := 1;
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := DrawGrid1.Font.Style+[fsItalic];
GridLineWidth := 1;
Height := 196;
//HelpContext := 0;
Hint := 'DrawGrid1';
Left := 10;
Name := 'DrawGrid1';
//Options
ParentColor := False;
ParentCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
RowCount := 5;
ScrollBars := ssBoth;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 10;
Visible := True;
Width := 300;
end;}
//+++++++++++++++++++++++++++++++++++++ DriveComboBox1 +++++++++++++++++++++++++++++++
{DriveComboBox1 := TDriveComboBox.Create(Self);
with DriveComboBox1 do
begin
Parent := BenchForm[13];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
OnChange := @EventOnChange;
//BiDiMode := bdLeftToRight;
Color := clWindow;
Ctl3D := True;
//Constraints :=
Cursor := crDefault;
//DirList :=
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := DriveComboBox1.Font.Style+[fsItalic];
Height := 32;
//HelpContext := 0;
Hint := 'DriveComboBox1';
//ImeMode := imDontCare;
//ImeName
Left := 10;
Name := 'DriveComboBox1';
//ParentBiDiMode := True;
ParentColor := False;
ParenCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
TextCase := tcLowerCase;
Top := 10;
Visible := True;
Width := 160;
end;}
//+++++++++++++++++++++++++++++++++++++ Edit1 +++++++++++++++++++++++++++++++++++++++
Edit1 := TEdit.Create(Self);
With Edit1 do
begin
Parent := BenchForm[14];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//OnMouseMove := @EventOnMouseMove;
OnKeyDown := @EventOnKeyDown;
//AutoSelect := True;
AutoSize := True;
BorderStyle := bsSingle;
//CharCase := ecNormal;
Color := clRed;
Ctl3D := True;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := Edit1.Font.Style+[fsItalic];
Height := 21;
//HelpContext := 0;
Hint := 'Edit1';
//ImeMode := imDontCare;
//ImeName
Left := 10;
//MaxLength := 0;
Name := 'Edit1';
//OEMConvert := False;
ParentColor := False;
ParentFont := True;
ParentShowHint := True;
//PasswordChar := #0;
PopupMenu := PopupMenu1;
ReadOnly := False;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 10;
Visible := True;
Width := 150;
end;
//+++++++++++++++++++++++++++++++++++++ FileListBox1 ++++++++++++++++++++++++++++++++
{FileListBox1 := TFileListBox.Create(Self);
With FileListBox1 do
begin
Parent := BenchForm[15];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
Anchors := FileListBox1.Anchors + [akTop,akLeft];
BorderStyle := bsSingle;
Color := clWindow;
Ctl3D := True;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
ExtendedSelect := True;
FileEdit := Edit1;
FileType := FileListBox1.FileType + [ftNormal];
Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := FileListBox1.Font.Style+[fsItalic];
Height := 196;
HelpContext := 0;
Hint := 'FileListBox1';
ImeMode := imDontCare;
ImeName
IntegralHeight := True;
ItemHeight := 13;
Left := 10;
Mask := '*.*';
MultiSelect := True;
Name := 'FileListBox1';
ParentColor := False;
ParentCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowGlyphs := True;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 10;
Visible := True;
Width := 150;
end;}
//+++++++++++++++++++++++++++++++++++++ FilterComboBox1 +++++++++++++++++++++++++++++
{FilterComboBox1 := TFilterComboBox.Create(Self);
with FilterComboBox1 do
begin
Parent := BenchForm[16];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
OnChange := @EventOnChange;
Color := clWindow;
Ctl3D := True;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
FileList := FileListBox1;
Filter := 'All Files(*.*)|*.*';
Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := FilterComboBox1.Font.Style+[fsItalic];
Height := 32;
HelpContext := 0;
Hint := 'FilterDriveComboBox1';
ImeMode := imDontCare;
ImeName
Left := 10;
Name := 'FilterComboBox1';
ParentColor := False;
ParenCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
TextCase := tcLowerCase;
Top := 10;
Visible := True;
Width := 160;
end;}
//+++++++++++++++++++++++++++++++++++++ FindDialog1 +++++++++++++++++++++++++++++++++
//FindDialog1 := TFindDialog.Create(Self); //BenchForm[17]
//+++++++++++++++++++++++++++++++++++++ FontDialog1 +++++++++++++++++++++++++++++++++
FontDialog1 := TFontDialog.Create(Self); //BenchForm[18]
//+++++++++++++++++++++++++++++++++++++ Form1 +++++++++++++++++++++++++++++++++++++++
// Allready created !! BenchForm[19]
//+++++++++++++++++++++++++++++++++++++ GroupBox1 +++++++++++++++++++++++++++++++++++
GroupBox1 := TGroupBox.Create(Self);
with GroupBox1 do
begin
Parent := BenchForm[20];
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Left := 10;
Top := 10;
Width := 300;
Height := 150;
Ctl3D := False;
Caption := 'GroupBox1';
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++++ Image1 +++++++++++++++++++++++++++++++++++++
{Image1 := TImage.Create(Self);
With Image1 do
begin
Parent := BenchForm[21];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
Anchors := Image1.Anchors + [akTop,akLeft];
AutoSize := True;
Center := False;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
Height := 196;
Hint := 'Image1';
IncrementalDisplay := True;
Left := 10;
Name := 'Image1';
ParentShowHint := True;
Picture := '../images/penguin.xpm';
PopupMenu := PopupMenu1;
ShowHint := True;
Stretch := False;
Tag := 21;
Top := 10;
Transparent := False;
Visible := True;
Width := 150;
end;}
//++++++++++++++++++++++++++++++++++++++ Inifile1 +++++++++++++++++++++++++++++++++++
IniFile1 := TIniFile.Create('./Settings.laz'); //BenchForm[22]
//++++++++++++++++++++++++++++++++++++++ Label1 +++++++++++++++++++++++++++++++++++++
Label1 := TLabel.Create(Self);
With Label1 do
begin
Parent := BenchForm[23];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Top := 10;
Left := 10;
Align := alNone;
Alignment := taLeftJustify;
AutoSize := False;
Caption := 'Label1';
Color := clBtnFace;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//FocusControl := nil;
//Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := Label1.Font.Style+[fsItalic];
Height := 100;
Hint := 'Label1';
Layout := tlTop;
//Left := 10; //Has to be set before Layout
Name := 'Label1';
ParentColor := False;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
//ShowAccelChar := True;
ShowHint := True;
Tag := 0;
//Top := 10; //Has to be set before Layout
//Transparent := False;
Visible := True;
Width := 150;
WordWrap := False;
end;
//++++++++++++++++++++++++++++++++++++++ ListBox1, ListBox2 +++++++++++++++++++++++++
ListBox1 := TListBox.Create(Self);
With ListBox1 do
begin
Parent := BenchForm[24];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Align := alNone;
Anchors := ListBox1.Anchors + [akTop,akLeft];
//BiDiMode := bdLeftToRight; //Identifier no found
BorderStyle := bsSingle;
Color := clRed;
//Columns := 0; //Identifier no found
Ctl3D := False;
//Constraints := //Identifier no found
Cursor := crDefault; //Only crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
ExtendedSelect := True;
//Font.Charset := DEFAULT_CHARSET; //Identifier not found
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde'; //No function
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := ListBox1.Font.Style+[fsItalic];
Height := 148;
//HelpContext := 0; //Identifier not found
Hint := 'Components'; //Don't work...
//ImeMode := imDontCare;
//ImeName
//IntegralHeight := True;
//ItemHeight := 13;
Items.Add('BitBtn');
Items.Add('Button');
Items.Add('CheckBox');
Items.Add('ColorDialog');
Items.Add('ComboBox');
Items.Add('Edit');
Items.Add('Form');
Items.Add('FontDialog');
Items.Add('IniFile');
Items.Add('Label');
Items.Add('ListBox');
Items.Add('MainMenu');
Items.Add('Memo');
Items.Add('NoteBook');
Items.Add('OpenDialog');
Items.Add('ProgressBar');
Items.Add('RadioButton');
Items.Add('RadioGroup');
Items.Add('SaveDialog');
Items.Add('SpeedButton');
Left := 10;
MultiSelect := True;
Name := 'ListBox1';
//ParentBiDiMode := True; //Identifier not found
ParentColor := False;
ParentCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True; //Don't work...
Sorted := False; //If true Access violation
Style := lbStandard;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 35;
Visible := True;
Width := 150;
end;
ListBox2 := TListBox.Create(Self);
With ListBox2 do
begin
Parent := BenchForm[24];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
//OnMouseUp := @MUp;
Anchors := ListBox2.Anchors + [akTop,akLeft];
BorderStyle := bsSingle;
Color := clRed;
Cursor := crDefault; //Only crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
ExtendedSelect := True;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde'; //No function
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := ListBox2.Font.Style+[fsItalic];
Height := 148;
Hint := 'Components'; //Don't work...
Left := 235;
MultiSelect := True;
Name := 'ListBox2';
ParentColor := False;
ParentFont := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True; //Don't work...
Sorted := False; //If true Access violation
Style := lbStandard;
TabOrder := 0;
TabStop := False;
Tag := 9;
Top := 35;
Visible := True;
Width := 150;
end;
//+++++++++++++++++++++++++++++++++++++ MainMenu1 +++++++++++++++++++++++++++++++++++
// Created in own procedure
//+++++++++++++++++++++++++++++++++++++ MaskEdit1 +++++++++++++++++++++++++++++++++++
{MaskEdit1 := TMaskEdit.Create(Self);
With MaskEdit1 do
begin
Parent := BenchForm[25];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
AutoSelect := True;
AutoSize := True;
BorderStyle := bsSingle;
CharCase := ecNormal;
Color := clWindow;
Ctl3D := True;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
EditMask
Enabled := True;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde';
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := MaskEdit1.Font.Style+[fsItalic];
Height := 21;
HelpContext := 0;
Hint := 'MaskEdit1';
ImeMode := imDontCare;
ImeName
Left := 10;
MaxLength := 0;
Name := 'MasEdit1';
ParentColor := False;
ParentCtl3D := True;
ParentFont := True;
ParentShowHint := True;
PasswordChar := #0;
PopupMenu := PopupMenu1;
ReadOnly := False;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 9;
Text := 'MaskEdit1';
Top := 10;
Visible := True;
Width := 150;
end;}
//+++++++++++++++++++++++++++++++++++++ MediaPlayer1 ++++++++++++++++++++++++++++++++
{MediaPlayer1 := TMediaPlayer.Create(Self);
With MediaPlayer1 do
begin
Parent := BenchForm[26];
AutoEnable := True;
AutoOpen := False;
AutoRewind := True;
ColoredButtons := ColoredButtons + [btPlay, btStop];
Cursor := crDefault;
DeviceType := dtAutoSelect;
Display := MediaPlayer1;
Enabled := True;
EnabledButtons := EnabledButtons + [btPlay, btStop];
FileName := '';
Height := 30;
HelpContext := 0;
Hint := 'MediaPlayer1';
Left := 10;
Name := 'MediaPlayer1';
ParentShowHint := True;
PopupMenu := PopupMenu1;
Shareable := False;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 0;
Top := 10;
Visible := True;
VisibleButtons := VisibleButtons + [btPlay, btStop];
Width := 57;
end;}
//+++++++++++++++++++++++++++++++++++++ Memo1 +++++++++++++++++++++++++++++++++++++++
Memo1 := TMemo.Create(Self);
With Memo1 do
begin
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnChange := @EventOnChange;
Parent := Self;
Align := alNone;
Anchors := Memo1.Anchors + [akLeft,akTop];
//Alignment := taLeftJustify;
BorderStyle := bsSingle;
Color := clYellow;
Ctl3D := False;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
Font.Color := clBlue;
Font.Height := -11;
Font.Name := 'avantgarde'; //No function
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := Memo1.Font.Style+[fsBold];
Height := 200;
//HelpContext := 0;
//HideSelection := True;
Hint := 'Memo Component';
//ImeMode := imDontCare;
//ImeName
Left := 10;
Lines.Text := #10#13+' WELCOME'+#10#13+
'You will find the component you want to test in the MainMenu'+
' "Components". 60 components are mentioned, but all do not exist yet.'+
' I hope this application will be usefull...'+#10#13+'Chris';
//MaxLength := 0;
Name := 'Memo1';
//OEMConvert := False;
ParentColor := False;
ParentCtl3D := False;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ReadOnly := False;
ScrollBars := ssBoth;
ShowHint := True;
TabOrder := 0;
TabStop := False;
Tag := 0;
Top := 53;
Visible := True;
//WantReturns := True;
//WantTabs := False;
Width := 380;
WordWrap := True;
end;
//++++++++++++++++++++++++++++++++++++ MessageDialog1 +++++++++++++++++++++++++++++++
//MessageDialog := TMessageDialog.Create(Self);
//++++++++++++++++++++++++++++++++++++ TNoteBook ++++++++++++++++++++++++++++++++++++
NoteBook1 := TNoteBook.Create(Self); // TODO : Add all properties
With NoteBook1 do
begin
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
Parent := BenchForm[29];
Height := 190;
Left := 10;
Top := 10;
Width := 377;
Name := 'NoteBook1';
Align := alNone;
if PageCount>0 then
Pages.Strings[0] := 'Page0' //Page 0
else
Pages.Add('Page0');
Pages.Add('Page1');
Pages.Add('Page2');
Pages.Add('Page3');
PageIndex := 0;
PopupMenu := PopupMenu1;
Hint := 'NoteBook1';
ShowHint := True;
Show;
end;
//++++++++++++++++++++++++++++++++++++ OpenDialog1 ++++++++++++++++++++++++++++++++++
OpenDialog1 := TOpenDialog.Create(Self);
//++++++++++++++++++++++++++++++++++++ PageControl ++++++++++++++++++++++++++++++++++
{PageControl1 := TPageControl.Create(Self);
with PageControl1 do
begin
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := BenchForm[31];
ActivePage := TabSheet1
Align := alNone;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := PageControl1.Font.Style+[fsBold];
Height := 200;
HelpContext := 0;
Hint := 'PageControl1';
HotTrack := False;
Left := 10;
MultiLine := False;
Name := 'PageControl1';
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ScrollOpposite := False;
ShowHint := True;
TabHeight := 0;
TabOrder := 0;
TabPosition := tpTop;
TabStop := True;
TabWidth := 0;
Tag := 0;
Top := 10;
Visible := True;
Width := 300;
end;
TabSheet1 := TTabSheet.Create(Self);
TabSheet1.Caption := 'TabSheet1';
TabSheet1.PageControl := PageControl1;
TabSheet2 := TTabSheet.Create(Self);
TabSheet2.Caption := 'TabSheet2';
TabSheet2.PageControl := PageControl1;
TabSheet3 := TTabSheet.Create(Self);
TabSheet3.Caption := 'TabSheet3';
TabSheet3.PageControl := PageControl1;}
//++++++++++++++++++++++++++++++++++++ PaintBox1 ++++++++++++++++++++++++++++++++++++
PaintBox1 := TPaintBox.Create(Self); //Gives Access violation !!!
with PaintBox1 do
begin
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := BenchForm[32];
Align := alNone;
Color := clBlue;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := PaintBox1.Font.Style+[fsBold];
Height := 100;
Hint := 'PaintBox1';
Left := 10;
Name := 'PaintBox1';
ParentColor := True;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
Tag := 0;
Top := 10;
Visible := True;
Width := 100;
end;
//++++++++++++++++++++++++++++++++++++ Panel1 +++++++++++++++++++++++++++++++++++++++
benchform[33].width := 550;
Panel1 := TPanel.Create (Form1);
with Panel1 do
begin
Parent := BenchForm[33];
PanelNormClick (self);
end;
Panel2 := TPanel.Create (Form1);
with Panel2 do
begin
Parent := BenchForm[33];
Align := alBottom;
Height := 150;
Ctl3D := False;
Caption := 'Panel1';
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++ PopupMenu1 +++++++++++++++++++++++++++++++++++
Hello := TMenuItem.Create(PopupMenu1);
Hello.Caption := 'Hello';
Doctor := TMenuItem.Create(Hello);
Doctor.Caption := 'Doctor';
Hello.Add(Doctor);
PopupMenu1 := TPopupMenu.Create(Form1);
with PopupMenu1 do
begin
Parent := Form1;
//Alignment := paLeft;
AutoPopup := True;
//HelpContext := 0;
Items.Add(Hello);
Name := 'PopupMenu1';
Tag := 0;
end;
//++++++++++++++++++++++++++++++++++++ PrintDialog1 +++++++++++++++++++++++++++++++++
//PrintDialog1 := TPrintDialog.Create(Self); //BenchForm[35]
//++++++++++++++++++++++++++++++++++++ PrinterSetupDialog1 ++++++++++++++++++++++++++
//PrinterSetupDialog1 := TPrinterSetupDialog.Create(Self); //BenchForm[36]
//++++++++++++++++++++++++++++++++++++ ProgressBar1 +++++++++++++++++++++++++++++++++
ProgressBar1 := TProgressBar.Create(Self);
with ProgressBar1 do
begin
Parent := BenchForm[37];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
BarShowText := False;
Top := 28;
Left := 10;
Height := 100;
Width := 200;
Min := 0;
Max := 100;
Name := 'ProgressBar1';
Smooth := True;
Orientation := pbHorizontal;
Position := 0;
PopupMenu := PopupMenu1;
Enabled := True;
Hint := 'ProgressBar1';
ShowHint := True;
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++ RadioButton1 +++++++++++++++++++++++++++++++++
RadioButton1 := TRadioButton.Create(Self);
with RadioButton1 do
begin
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := BenchForm[38];
//Alignment := taRigthJustify; //Identifier no found
AllowGrayed := True;
Anchors := RadioButton1.Anchors + [akTop, akLeft];
//BiDiMode := bdLeftToRight;
Caption := 'RadioButton1';
Checked := False;
Color := clBlue;
//Constraints
Cursor := crDefault; //Error if not crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := RadioButton1.Font.Style+[fsBold];
Height := 20;
//HelpContext := 0;
Hint := 'RadioButton1';
Left := 10;
Name := 'RadioButton1';
//ParentBiDiMode := False;
ParentColor := True;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
State := cbUnchecked;
TabOrder := 10;
Tag := 0;
Top := 10;
Visible := True;
Width := 100;
end;
//++++++++++++++++++++++++++++++++++++ RadioGroup1 ++++++++++++++++++++++++++++++++++
RadioGroup1 := TRadioGroup.Create(Self);
with RadioGroup1 do
begin
Parent := BenchForm[39];
OnClick := @EventOnClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
top := 20;
left := 20;
Height := 200;
Width := 140;
Columns := 3;
Items.Add ('0');
Items.Add ('1');
Items.Add ('2');
Items.Add ('3');
Items.Add ('4');
Items.Add ('5');
Items.Add ('6');
Items.Add ('7');
Items.Add ('8');
ItemIndex := 0;
Show;
Caption := ' Radio '+IntToStr(ItemIndex)+' Checked';
end;
//++++++++++++++++++++++++++++++++++++ ReplaceDialog1 +++++++++++++++++++++++++++++++
//ReplaceDialog1 := TReplaceDialog.Create(Self); //BenchForm[40]
//++++++++++++++++++++++++++++++++++++ RichEdit1 ++++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ SaveDialog1 ++++++++++++++++++++++++++++++++++
SaveDialog1 := TSaveDialog.Create(Self); //BenchForm[42]
//++++++++++++++++++++++++++++++++++++ Screen +++++++++++++++++++++++++++++++++++++++
// Created in TForm...
//++++++++++++++++++++++++++++++++++++ ScrollBar1 +++++++++++++++++++++++++++++++++++
ScrollBar1 := TScrollBar.Create(Self);
with ScrollBar1 do
begin
Parent := BenchForm[44];
//OnMouseDown := @MDown;
//OnMouseMove := @MMove;
OnMouseMove := @EventOnMouseMove;
Ctl3D := False;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := true;
Height := 16;
//HelpContext := 0;
Hint := 'ScrollBar1';
//Kind := sbHorizontal;
//LargeChange := 1;
Left := 10;
//Max := 100;
//Min := 0;
Name := 'ScrollBar1';
ParentCtl3D := True;
ParentShowHint := True;
PopupMenu := PopupMenu1;
//Position := 0;
//ScrollStyle := ssHorizontal;
ShowHint := True;
//SmallChange := 1;
TabOrder := 0;
TabStop := False;
Tag := 0;
Top := 28;
Visible := True;
width := 150;
end;
//++++++++++++++++++++++++++++++++++++ Shape1 +++++++++++++++++++++++++++++++++++++++
{Shape1 := TShape.Create(Self);
with Shape1 do
begin
Parent := BenchForm[46];
Pen.Color := clBlue;
Left := 10;
Top := 10;
Visible := True;
end;}
//++++++++++++++++++++++++++++++++++++ SpeedButton1..4 ++++++++++++++++++++++++++++++
Pixmap1:=TPixMap.Create;
Pixmap1.TransparentColor:=clBtnFace;
if not LoadResource('btn_openfile',Pixmap1) then
begin
LoadResource('default',Pixmap1);
end;
SpeedButton1 := TSpeedButton.Create(Self);
With SpeedButton1 do
begin
OnClick := @OpenMemo;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := Self;
Enabled := True;
Cursor := crDefault;
Left := 10;
Top := 28;
Flat := False;
Hint := 'SpeedButton1';
Color := clBtnFace;
ShowHint := True;
Glyph := Pixmap1;
Visible := True;
end;
Pixmap1:=TPixMap.Create;
Pixmap1.TransparentColor:=clBtnFace;
if not LoadResource('btn_save',Pixmap1)
then LoadResource('default',Pixmap1);
SpeedButton2 := TSpeedButton.Create(Self);
With SpeedButton2 do
begin
OnClick := @SaveMemoAs;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := Self;
Left := 35;
Top := 28;
Flat := False;
Hint := 'SpeedButton1';
Color := clBtnFace;
ShowHint := True;
Glyph := Pixmap1;
Enabled := True;
Visible := True;
end;
S := TFileStream.Create('../images/fonts.xpm', fmOpenRead);
try
Pixmap1 := TPixmap.Create;
Pixmap1.TransparentColor := clBtnFace;
Pixmap1.LoadFromStream(S);
finally
S.Free;
end;
SpeedButton3 := TSpeedButton.Create(Self);
With SpeedButton3 do
begin
OnClick := @SelectFont;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := Self;
Left := 60;
Top := 28;
Flat := False;
Hint := 'SpeedButton1';
Color := clBtnFace;
ShowHint := True;
Glyph := Pixmap1;
Enabled := True;
Visible := True;
end;
S := TFileStream.Create('../images/color.xpm', fmOpenRead);
try
Pixmap1 := TPixmap.Create;
Pixmap1.TransparentColor := clBtnFace;
Pixmap1.LoadFromStream(S);
finally
S.Free;
end;
SpeedButton4 := TSpeedButton.Create(Self);
With SpeedButton4 do
begin
OnClick := @ColorSelect;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
Parent := Self;
Left := 85;
Top := 28;
Flat := False;
Hint := 'SpeedButton4';
Color := clBtnFace;
ShowHint := True;
Glyph := Pixmap1;
Enabled := True;
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++ SpinButton1 ++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ SpinEdit1 ++++++++++++++++++++++++++++++++++++
SpinEdit1 := TSpinEdit.Create(Self);
with SpinEdit1 do
begin
Parent := BenchForm[49];
//OnChange := @EventOnChange;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
//MaxValue := 10;
//MinValue := 1;
Top := 30;
Left := 10;
Width := 50;
Height := 20;
Value := 50;
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++ StatusBar1 +++++++++++++++++++++++++++++++++++
StatusBar1 := TStatusBar.Create(Self);
with StatusBar1 do
begin
Parent := BenchForm[50];
OnClick := @EventOnClick;
Align := alBottom;
Cursor := crDefault;
DragCursor := crDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := StatusBar1.Font.Style+[fsBold];
Height := 19;
//HelpContext := 0;
Hint := 'You !';
Left := 0;
Name := 'StatusBar1';
//Panels
//ParentBiDiMode := False;
ParentColor := True;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
//SimpelPanel := True;
SimpleText := 'Hello';
//SizeGrip := False;
Tag := 0;
Top := 254;
Visible := True;
Width := 392;
end;
//++++++++++++++++++++++++++++++++++++ StringGrid1 ++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ TabbedNoteBook1 ++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ TabControl1 ++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ Thread1 ++++++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ Timer1 +++++++++++++++++++++++++++++++++++++++
Timer1 := TTimer.Create(Self);
with Timer1 do
begin
OnTimer := @Timer1OnTimer;
Enabled := False;
Interval := 100;
end;
//++++++++++++++++++++++++++++++++++++ ToggleBox1 +++++++++++++++++++++++++++++++++++
ToggleBox1 := TToggleBox.Create(Self);
with ToggleBox1 do
begin
Parent := BenchForm[56];
OnClick := @EventOnClick;
OnDblClick := @EventOnDblClick;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnMouseMove := @EventOnMouseMove;
//Action
//Alignment := taRigthJustify;
AllowGrayed := True;
Anchors := ToggleBox1.Anchors + [akTop, akLeft];
//BiDiMode := bdLeftToRight;
Caption := 'Hello';
Checked := False;
Color := clBlue;
//Constraints
Cursor := crDefault; //Error if not crDefault
DragCursor := crDrag;
DragKind := dkDrag;
DragMode := dmManual;
Enabled := True;
//Font.Charset := DEFAULT_CHARSET //Identifier not found;
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'adventure';
Font.Pitch := fpDefault;
Font.Size := 6;
Font.Style := ToggleBox1.Font.Style+[fsBold];
Height := 35;
//HelpContext := 0;
Hint := 'Maybe this one';
Left := 10;
Name := 'ToggleBox1';
//ParentBiDiMode := False;
ParentColor := True;
ParentFont := False;
ParentShowHint := True;
PopupMenu := PopupMenu1;
ShowHint := True;
State := cbUnchecked;
TabOrder := 0;
Tag := 0;
Top := 10;
Visible := True;
Width := 50;
end;
//++++++++++++++++++++++++++++++++++++ ToolBar1/ToolButton1..2 ++++++++++++++++++++++
ToolBar1 := TToolBar.Create(Self);
with ToolBar1 do
begin
Parent := BenchForm[57];
Show;
end;
if Assigned(Toolbar1) then
begin
ToolButton1 := TToolButton.Create(ToolBar1);
with ToolButton1 do
begin
parent := ToolBar1;
OnClick := @EventOnClick;
Caption := '1';
Hint := 'ToolButton1';
ShowHint := True;
Show;
end;
//ToolButton2 := TToolButton.Create(ToolBar1);
//with ToolButton2 do
//begin
// Assert(False, 'Trace:SETTING PARENT');
// parent := ToolBar1;
// OnClick := @EventOnClick;
//Show;
//end;
end;
//++++++++++++++++++++++++++++++++++++ TrackBar1..2 +++++++++++++++++++++++++++++++++
TrackBar1 := TTrackBar.Create(Self);
with TrackBar1 do
begin
//OnChange := @TrackBarChange;
//OnClick := @WhenClick;
//OnMouseDown := @MDown;
//OnMouseUp := @MUp;
Parent := BenchForm[58];
Top := 10;
Left := 20;
Height := 220;
Orientation := trVertical;
Position := 1;
Max := 204;
Min := 1;
Width := 15;
Name := 'TrackBar1';
PopupMenu := PopupMenu1;
ShowScale := True;
ScalePos := trTop;
TickMarks := tmBoth;
TickStyle := tsAuto;
Visible := True;
end;
TrackBar2 := TTrackBar.Create(Self);
with TrackBar2 do
begin
OnChange := @EventOnChange;
//OnClick := @WhenClick;
//OnMouseDown := @MDown;
//OnMouseUp := @MUp;
Parent := BenchForm[58];
Top := 239;
Left := 50;
Height := 15;
Orientation := trHorizontal;
Position := 1;
Max := 194;
Min := 1;
Width := 220;
Name := 'TrackBar2';
PopupMenu := PopupMenu1;
ShowScale := True;
ScalePos := trTop;
TickMarks := tmBoth;
TickStyle := tsAuto;
Visible := True;
end;
//++++++++++++++++++++++++++++++++++++ UpDown1 ++++++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++ THE END ++++++++++++++++++++++++++++++++++++++
END;
initialization
{$I ../images/laz_images.lrs}
{$I ../images/components_images.lrs}
END.
{
$Log$
Revision 1.10 2002/09/10 14:08:54 lazarus
MG: fixed compiling examples
Revision 1.9 2002/09/02 19:10:28 lazarus
MG: TNoteBook now starts with no Page and TPage has no auto names
Revision 1.8 2002/05/10 06:57:50 lazarus
MG: updated licenses
Revision 1.7 2002/03/23 21:02:02 lazarus
+ Enhanced testall-app with demo for TPanel, stoppok
Revision 1.6 2002/02/03 00:24:00 lazarus
TPanel implemented.
Basic graphic primitives split into GraphType package, so that we can
reference it from interface (GTK, Win32) units.
New Frame3d canvas method that uses native (themed) drawing (GTK only).
New overloaded Canvas.TextRect method.
LCLLinux and Graphics was split, so a bunch of files had to be modified.
Revision 1.5 2001/12/10 07:47:00 lazarus
MG: minor fixes
Revision 1.4 2001/04/17 21:36:15 lazarus
* enhanced testdialog for TBevel
* basic test for TPaintBox
stoppok
Revision 1.3 2001/02/25 09:22:28 lazarus
* Fixed crash caused by missing pixmaps
* using resources now instead of xpm file
Revision 1.2 2000/09/22 20:22:02 lazarus
+Rebuilt from beginning to V0.2
+Prepared for non existent components (total 60 components).
(Changes by Christer, commited by stoppok)
Revision 1.1 2000/07/31 20:33:33 lazarus
+ added "testall" demo provided by <christer.t.johansson@se.abb.com>
stoppok
}
Reference in New Issue View Git Blame Copy Permalink