{/*************************************************************************** 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 . 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 : TMenuItem; Doctor : TMenuItem; //FName: TMenuItem; //Yesterday: TMenuItem; //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 : 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: TLabel; //blFontSize: TLabel; //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 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ī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ī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.12 2003/01/01 11:11:49 mattias fixed testall example Revision 1.11 2002/10/29 08:22:32 lazarus MG: added interfaces unit 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 stoppok }