ocs-comps-commits

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/Button
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/Button

Added Files:
	Button.conf Button.desk Button.dpr Button.kof Button.res 
	Unit1.dfm Unit1.pas 
Log Message:
Initially added to source control

--- NEW FILE: Button.dpr ---
program Button;

uses
  QForms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

--- NEW FILE: Unit1.pas ---
unit Unit1;

interface

uses
  SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  QButtons, OrckaButton, QStdCtrls;

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.desk ---
[Closed Files]
File_0=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0
File_1=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1
File_2=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0
File_3=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1353,4,1416,0,0
File_4=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0
File_5=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0
File_6=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0
File_7=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0
File_8=SourceModule,'/home/simon/orcka/source/OrckaTimer.pas',0,1,35,3,42,0,0
File_9=SourceModule,'/home/simon/orcka/source/OrckaSpellChecker.pas',0,1,525,5,532,0,0

[Modules]
Module0=/home/simon/orcka/Samples/Button/Unit1.pas
Module1=/home/simon/orcka/Samples/Button/Button.dpr
Count=2
EditWindowCount=1

[/home/simon/orcka/Samples/Button/Unit1.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=1

[/home/simon/orcka/Samples/Button/Button.dpr]
ModuleType=SourceModule
FormState=0
FormOnTop=0

[/home/simon/ProjectGroup1.bpg]
FormState=0
FormOnTop=0

[EditWindow0]
ViewCount=2
CurrentView=1
View0=0
View1=1
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=0
Left=302
Top=208
Width=696
Height=482
MaxLeft=-1
MaxTop=-1
ClientWidth=696
ClientHeight=482
LeftPanelSize=140
LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF

[View0]
Module=/home/simon/orcka/Samples/Button/Unit1.pas
CursorX=10
CursorY=40
TopLine=35
LeftCol=1

[View1]
Module=/home/simon/orcka/Samples/Button/Button.dpr
CursorX=6
CursorY=13
TopLine=1
LeftCol=1

[Watches]
Count=0

[Breakpoints]
Count=0

[AddressBreakpoints]
Count=0

[Main Window]
Create=1
Visible=1
State=0
Left=3
Top=19
Width=1024
Height=87
MaxLeft=-1
MaxTop=-1
ClientWidth=1024
ClientHeight=87

[ProjectManager]
Create=1
Visible=0
State=0
Left=369
Top=372
Width=535
Height=368
MaxLeft=-1
MaxTop=-1
ClientWidth=529
ClientHeight=343
TBDockHeight=368
LRDockWidth=535
Dockable=1

[AlignmentPalette]
Create=1
Visible=0
State=0
Left=203
Top=117
Width=156
Height=85
MaxLeft=-1
MaxTop=-1
ClientWidth=150
ClientHeight=60

[PropertyInspector]
Create=1
Visible=1
State=0
Left=3
Top=117
Width=190
Height=494
MaxLeft=-1
MaxTop=-1
ClientWidth=182
ClientHeight=467
TBDockHeight=494
LRDockWidth=190
Dockable=1
SplitPos=85
ArrangeBy=Name
SelectedItem=Caption
ExpandedItems=
HiddenCategories=
ShowStatusBar=1

[WatchWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=149
LRDockWidth=421
Dockable=1

[BreakpointWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=119
LRDockWidth=293
Dockable=1
Column0Width=123
Column1Width=92
Column2Width=246
Column3Width=246
Column4Width=92
Column5Width=92

[CallStackWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=161
LRDockWidth=294
Dockable=1

[CodeExplorer@EditWindow0]
Create=1
Visible=1
State=0
Left=0
Top=12
Width=140
Height=449
MaxLeft=-1
MaxTop=-1
ClientWidth=140
ClientHeight=449
TBDockHeight=305
LRDockWidth=140
Dockable=1

[MessageView@EditWindow0]
Create=1
Visible=0
State=0
Left=12
Top=0
Width=684
Height=52
MaxLeft=-1
MaxTop=-1
ClientWidth=684
ClientHeight=52
TBDockHeight=52
LRDockWidth=443
Dockable=1

[DockHosts]
DockHostCount=1

[DockSite0]
DockSiteType=1
Create=1
Visible=0
State=0
Left=-3
Top=548
Width=421
Height=149
MaxLeft=-1
MaxTop=-1
ClientWidth=415
ClientHeight=124
TBDockHeight=149
LRDockWidth=421
Dockable=1
TabPosition=0
ActiveTab=Watch List
TabDockClients=WatchWindow,BreakpointWindow,CallStackWindow


--- NEW FILE: Unit1.dfm ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Button.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Button.kof ---
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=

[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
DynamicLoader=/lib/ld-linux.so.2

[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0

[Parameters]
RunParams=
HostApplication=
Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
UseLauncher=0
DebugCWD=


--- NEW FILE: Button.conf ---
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000