[Ocs-comps-commits] OCS2/Samples/VCL/Button Button.dpr,NONE,1.1 Button.res,NONE,1.1 Unit1.dfm,NONE,1
Brought to you by:
tectsoft
From: Si C. <tec...@us...> - 2005-11-21 10:33:51
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Button In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Button Added Files: Button.dpr Button.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: Button.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, OrckaButton, StdCtrls; type TForm1 = class(TForm) OrckaButton1: TOrckaButton; OrckaButton2: TOrckaButton; OrckaButton3: TOrckaButton; OrckaButton4: TOrckaButton; OrckaButton5: TOrckaButton; OrckaButton6: TOrckaButton; OrckaButton7: TOrckaButton; OrckaButton8: TOrckaButton; OrckaButton9: TOrckaButton; Button1: TButton; Button2: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); private FButtonPos: array[1..9, 0..1] of integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin FButtonPos[1,0] := OrckaButton1.Top; FButtonPos[2,0] := OrckaButton2.Top; FButtonPos[3,0] := OrckaButton3.Top; FButtonPos[4,0] := OrckaButton4.Top; FButtonPos[5,0] := OrckaButton5.Top; FButtonPos[6,0] := OrckaButton6.Top; FButtonPos[7,0] := OrckaButton7.Top; FButtonPos[8,0] := OrckaButton8.Top; FButtonPos[9,0] := OrckaButton9.Top; FButtonPos[1,1] := OrckaButton1.Left; FButtonPos[2,1] := OrckaButton2.Left; FButtonPos[3,1] := OrckaButton3.Left; FButtonPos[4,1] := OrckaButton4.Left; FButtonPos[5,1] := OrckaButton5.Left; FButtonPos[6,1] := OrckaButton6.Left; FButtonPos[7,1] := OrckaButton7.Left; FButtonPos[8,1] := OrckaButton8.Left; FButtonPos[9,1] := OrckaButton9.Left; end; procedure TForm1.Button1Click(Sender: TObject); begin OrckaButton1.Position := 0; OrckaButton2.Position := 1; OrckaButton3.Position := 2; OrckaButton4.Position := 3; OrckaButton5.Position := 4; OrckaButton6.Position := 5; OrckaButton7.Position := 6; OrckaButton8.Position := 7; OrckaButton9.Position := 8; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then OrckaButton1.AlignTopLeft := True else begin OrckaButton1.AlignTopLeft := False; OrckaButton1.Left := FButtonPos[1,1]; OrckaButton1.Top := FButtonPos[1,0]; end; end; procedure TForm1.Button2Click(Sender: TObject); begin OrckaButton1.Position := -1; OrckaButton2.Position := -1; OrckaButton3.Position := -1; OrckaButton4.Position := -1; OrckaButton5.Position := -1; OrckaButton6.Position := -1; OrckaButton7.Position := -1; OrckaButton8.Position := -1; OrckaButton9.Position := -1; OrckaButton1.Top := FButtonPos[1,0]; OrckaButton2.Top := FButtonPos[2,0]; OrckaButton3.Top := FButtonPos[3,0]; OrckaButton4.Top := FButtonPos[4,0]; OrckaButton5.Top := FButtonPos[5,0]; OrckaButton6.Top := FButtonPos[6,0]; OrckaButton7.Top := FButtonPos[7,0]; OrckaButton8.Top := FButtonPos[8,0]; OrckaButton9.Top := FButtonPos[9,0]; OrckaButton1.Left := FButtonPos[1,1]; OrckaButton2.Left := FButtonPos[2,1]; OrckaButton3.Left := FButtonPos[3,1]; OrckaButton4.Left := FButtonPos[4,1]; OrckaButton5.Left := FButtonPos[5,1]; OrckaButton6.Left := FButtonPos[6,1]; OrckaButton7.Left := FButtonPos[7,1]; OrckaButton8.Left := FButtonPos[8,1]; OrckaButton9.Left := FButtonPos[9,1]; end; procedure TForm1.CheckBox2Click(Sender: TObject); var bs: TOrckaButtonStyle; begin if CheckBox2.Checked then bs := obVSeperator else bs := obButton; OrckaButton2.ButtonStyle := bs; OrckaButton4.ButtonStyle := bs; OrckaButton6.ButtonStyle := bs; OrckaButton8.ButtonStyle := bs; end; end. --- NEW FILE: Button.dpr --- program Button; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |