[Ocs-comps-commits] OCS2/Samples/VCL/Map Project1.cfg,NONE,1.1 Project1.dof,NONE,1.1 Project1.dpr,NONE,1.1 Project1.res,NONE,1.1 Unit1.dfm,NONE,1.1 Unit1.pas,NONE,1.1

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

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

Added Files:
	Project1.cfg Project1.dof Project1.dpr Project1.res Unit1.dfm 
	Unit1.pas 
Log Message:
Initially added to source control

--- NEW FILE: Project1.cfg ---
-$A+
-$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
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi5\Projects\Bpl"
-LN"c:\program files\borland\delphi5\Projects\Bpl"
-U"R:\Components\Orcka"
-O"R:\Components\Orcka"
-I"R:\Components\Orcka"
-R"R:\Components\Orcka"

--- NEW FILE: Project1.dof ---
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=0
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=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=R:\Components\Orcka
Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;NMFast50;webmid50;dclocx50;dclaxserver50;ET;ETComps;OrckaD5
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
[Language]
ActiveLang=
ProjectLang=$00000809
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
D:\Program Files\Other\Indy\D5\dclindy50.BPL=INDY Designtime
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=6
Item0=$(DELPHI)\Lib\Debug;R:\Components\Orcka
Item1=C:\Program Files\Other\Tcomport;$(DELPHI)\Source\Toolsapi;R:\Components\Orcka;C:\Development\Projects\CTE\Source\Shared
Item2=$(DELPHI)\Lib\Debug
Item3=$(DELPHI)\Source\Toolsapi;C:\Program Files\Other\Tcomport
Item4=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\Toolsapi;C:\Program Files\Other\Tcomport
Item5=$(DELPHI)\Lib\Debug;C:\Program Files\Other\Tcomport
[HistoryLists\hlOutputDirectorry]
Count=2
Item0=c:\winnt\system32\
Item1=C:\WINNT\system32

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

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

uses
  Forms,
  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
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OrckaMap, ImgList, StdCtrls, Buttons, OrckaButton, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Map: TOrckaMap;
    ImageList1: TImageList;
    Panel1: TPanel;
    OrckaButton1: TOrckaButton;
    OrckaButton2: TOrckaButton;
    OrckaButton3: TOrckaButton;
    OrckaButton4: TOrckaButton;
    OrckaButton5: TOrckaButton;
    OrckaButton6: TOrckaButton;
    OrckaButton7: TOrckaButton;
    OrckaButton8: TOrckaButton;
    OrckaButton9: TOrckaButton;
    OrckaButton10: TOrckaButton;
    StatusBar1: TStatusBar;
    OrckaButton11: TOrckaButton;
    OrckaButton12: TOrckaButton;
    ComboBox1: TComboBox;
    OrckaButton13: TOrckaButton;
    OrckaButton14: TOrckaButton;
    OrckaButton15: TOrckaButton;
    OrckaButton16: TOrckaButton;
    imgToolbar: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure OrckaButton4Click(Sender: TObject);
    procedure OrckaButton1Click(Sender: TObject);
    procedure OrckaButton2Click(Sender: TObject);
    procedure OrckaButton3Click(Sender: TObject);
    procedure OrckaButton5Click(Sender: TObject);
    procedure OrckaButton7Click(Sender: TObject);
    procedure OrckaButton9Click(Sender: TObject);
    procedure OrckaButton10Click(Sender: TObject);
    procedure OrckaButton11Click(Sender: TObject);
    procedure MapKeySelect(Sender: TObject; Key: TOrckaMapKey;
      KeyID: Integer);
    procedure OrckaButton13Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Longint;
begin
  OrckaButton7Click(nil);
  OrckaButton7Click(nil);
  ComboBox1.Items.Clear;
  for I := 0 to Map.KeyItems.Count -1 do
    ComboBox1.Items.AddObject(Map.KeyItems[I].Description,Map.KeyItems[I]);
  ComboBox1.ItemIndex := 0;
  ComboBox1Change(nil);
end;

procedure TForm1.OrckaButton4Click(Sender: TObject);
begin
  Map.Reset;
end;

procedure TForm1.OrckaButton1Click(Sender: TObject);
begin
  Map.ZoomOut;
end;

procedure TForm1.OrckaButton2Click(Sender: TObject);
begin
  Map.ZoomOutSmall;
end;

procedure TForm1.OrckaButton3Click(Sender: TObject);
begin
  Map.ZoomInSmall;
end;

procedure TForm1.OrckaButton5Click(Sender: TObject);
begin
  Map.ZoomIn;
end;

procedure TForm1.OrckaButton7Click(Sender: TObject);
begin
  Map.Designing := not Map.Designing;
  if Map.Designing then
    StatusBar1.Panels[0].Text := 'Unlocked'
  else
    StatusBar1.Panels[0].Text := 'Locked';
    
  OrckaButton1.Enabled := not Map.Designing;
  OrckaButton2.Enabled := not Map.Designing;
  OrckaButton3.Enabled := not Map.Designing;
  OrckaButton4.Enabled := not Map.Designing;
  OrckaButton5.Enabled := not Map.Designing;
end;

procedure TForm1.OrckaButton9Click(Sender: TObject);
begin
  Map.GridType := gtNone;
end;

procedure TForm1.OrckaButton10Click(Sender: TObject);
begin
  Map.GridType := gtLines;
end;

procedure TForm1.OrckaButton11Click(Sender: TObject);
begin
  Map.GridType := gtDots;
end;

procedure TForm1.MapKeySelect(Sender: TObject; Key: TOrckaMapKey;
  KeyID: Integer);
var
  I: Longint;
begin
  for I := 0 to ComboBox1.Items.Count -1 do
    if Pointer(Key) = ComboBox1.Items.Objects[I] then
    begin
      ComboBox1.ItemIndex := I;
      ComboBox1Change(nil);
      Break;
    end;
end;

procedure TForm1.OrckaButton13Click(Sender: TObject);
begin
  TOrckaMapKey(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).State := TKeyState((Sender as TOrckaButton).Tag);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case TOrckaMapKey(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).State of
    ksNone: OrckaButton13.Down := True;
    ksSlow: OrckaButton14.Down := True;
    ksMedium: OrckaButton15.Down := True;
    ksFast: OrckaButton16.Down := True;
  end;
end;

end.

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