[Ocs-comps-commits] OCS2/Samples/VCL/SpellCheck/Visual SpellCheck.cfg,NONE,1.1 SpellCheck.dof,NONE,1.1 SpellCheck.dpr,NONE,1.1 SpellCheck.dsk,NONE,1.1 SpellCheck.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/SpellCheck/Visual
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/SpellCheck/Visual

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

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

--- NEW FILE: SpellCheck.dsk ---
[Closed Files]
File_0=SourceModule,'d:\orcka\source\OrckaSpellChecker.pas',0,1,34,1,38,0,0
File_1=SourceModule,'d:\program files\borland\delphi6\source\rtl\common\classes.pas',0,1,4159,1,4170,0,0
File_2=SourceModule,'d:\orcka\Source\OrckaNotify.pas',0,1,387,27,399,0,0
File_3=SourceModule,'d:\orcka\Source\OrckaButton.pas',0,1,43,3,19,0,0
File_4=SourceModule,'d:\orcka\Source\OrckaRegister.pas',0,1,31,32,38,0,0
File_5=SourceModule,'d:\orcka\Source\OrckaMap.pas',0,1,55,36,56,0,0
File_6=SourceModule,'D:\Orcka\Source\OrckaRuler.pas',0,1,431,14,454,0,0
File_7=SourceModule,'G:\Develop\CD\CDGen\Source\CDLabelEdit.pas',0,1,331,26,341,0,0
File_8=SourceModule,'D:\orcka\Source\OrckaLibraryLoader.pas',0,1,93,1,103,0,0

[Modules]
Module0=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas
Module1=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas
Module2=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas
Module3=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr
Count=4
EditWindowCount=1

[D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0

[D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0

[D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0

[D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr]
ModuleType=SourceModule
FormState=0
FormOnTop=0

[D:\Program Files\Borland\Delphi6\Projects\ProjectGroup1.bpg]
FormState=0
FormOnTop=0

[EditWindow0]
ViewCount=4
CurrentView=2
View0=0
View1=1
View2=2
View3=3
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=0
Left=272
Top=110
Width=742
Height=546
MaxLeft=-1
MaxTop=-1
ClientWidth=734
ClientHeight=519
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=00000400010000000B0000004D65737361676556696577DE02000000000000023400000000000000010000000000000000000000000100000000DF020000000000000100000000DE020000000000000100000000DE02000000000000FFFFFFFF

[View0]
Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr
CursorX=6
CursorY=5
TopLine=1
LeftCol=1

[View1]
Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas
CursorX=35
CursorY=9
TopLine=1
LeftCol=1

[View2]
Module=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas
CursorX=15
CursorY=446
TopLine=438
LeftCol=1

[View3]
Module=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas
CursorX=1
CursorY=105
TopLine=103
LeftCol=1

[Watches]
Count=0

[Breakpoints]
Count=0

[AddressBreakpoints]
Count=0

[Main Window]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=1024
Height=105
MaxLeft=-1
MaxTop=-1
ClientWidth=1016
ClientHeight=78

[ProjectManager]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=223
Height=479
MaxLeft=-1
MaxTop=-1
ClientWidth=223
ClientHeight=479
TBDockHeight=303
LRDockWidth=438
Dockable=1

[AlignmentPalette]
Create=1
Visible=0
State=0
Left=200
Top=107
Width=156
Height=82
MaxLeft=-1
MaxTop=-1
ClientWidth=150
ClientHeight=60

[PropertyInspector]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=223
Height=479
MaxLeft=-1
MaxTop=-1
ClientWidth=223
ClientHeight=479
TBDockHeight=494
LRDockWidth=190
Dockable=1
SplitPos=85
ArrangeBy=Name
SelectedItem=Name
ExpandedItems=Value
HiddenCategories=Legacy

[WatchWindow]
Create=1
Visible=0
State=0
Left=10
Top=554
Width=516
Height=179
MaxLeft=-1
MaxTop=-1
ClientWidth=508
ClientHeight=155
TBDockHeight=149
LRDockWidth=421
Dockable=1

[BreakpointWindow]
Create=1
Visible=0
State=0
Left=10
Top=554
Width=516
Height=179
MaxLeft=-1
MaxTop=-1
ClientWidth=508
ClientHeight=155
TBDockHeight=197
LRDockWidth=737
Dockable=1
Column0Width=100
Column1Width=75
Column2Width=200
Column3Width=200
Column4Width=75
Column5Width=75

[CallStackWindow]
Create=1
Visible=0
State=0
Left=10
Top=554
Width=516
Height=179
MaxLeft=-1
MaxTop=-1
ClientWidth=508
ClientHeight=155
TBDockHeight=161
LRDockWidth=294
Dockable=1

[ThreadStatusWindow]
Create=1
Visible=0
State=0
Left=0
Top=0
Width=615
Height=546
MaxLeft=-1
MaxTop=-1
ClientWidth=607
ClientHeight=522
TBDockHeight=152
LRDockWidth=624
Dockable=1
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250

[ModuleWindow]
Create=1
Visible=0
State=0
Left=10
Top=554
Width=516
Height=179
MaxLeft=-1
MaxTop=-1
ClientWidth=508
ClientHeight=155
TBDockHeight=118
LRDockWidth=353
Dockable=1
Column0Width=125
Column1Width=100
Column2Width=155
EntryPointPane=225
CompUnitPane=104

[ObjectTree]
Create=1
Visible=0
State=0
Left=0
Top=105
Width=190
Height=252
MaxLeft=-1
MaxTop=-1
ClientWidth=182
ClientHeight=228
TBDockHeight=252
LRDockWidth=190
Dockable=1

[DebugLogView]
Create=1
Visible=0
State=0
Left=10
Top=554
Width=516
Height=179
MaxLeft=-1
MaxTop=-1
ClientWidth=508
ClientHeight=155
TBDockHeight=291
LRDockWidth=417
Dockable=1

[LocalVarsWindow]
Create=1
Visible=0
State=0
Left=10
Top=462
Width=421
Height=189
MaxLeft=-1
MaxTop=-1
ClientWidth=413
ClientHeight=165
TBDockHeight=189
LRDockWidth=421
Dockable=1

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

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

[DockHosts]
DockHostCount=1

[DockSite0]
DockSiteType=1
Create=1
Visible=1
State=0
Left=0
Top=107
Width=258
Height=511
MaxLeft=-1
MaxTop=-1
ClientWidth=250
ClientHeight=487
TBDockHeight=511
LRDockWidth=258
Dockable=1
TabPosition=2
ActiveTab=Object Inspector
TabDockClients=PropertyInspector,ProjectManager,CodeExplorer@EditWindow0


--- NEW FILE: SpellCheck.cfg ---
-$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
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"d:\program files\borland\delphi6\Projects\Bpl"
-LN"d:\program files\borland\delphi6\Projects\Bpl"

--- NEW FILE: SpellCheck.dof ---
[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=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
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
SearchPath=
Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k;OrckaD6;ibam
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
[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=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

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

interface

{$I OrckaDV.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OrckaSpellCheckForm, OrckaEdit, OrckaGroupBox,
  ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    OrckaVisualSpellChecker1: TOrckaVisualSpellChecker;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    TabSheet3: TTabSheet;
    OrckaRadioGroupBox1: TOrckaRadioGroupBox;
    OrckaRadioGroupBox2: TOrckaRadioGroupBox;
    Edit1: TEdit;
    OrckaButtonEdit1: TOrckaButtonEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if PageControl1.ActivePage = TabSheet1 then
    OpenDialog1.Filter := 'Text Files|*.txt'
  else
    OpenDialog1.Filter := 'Rich Text Files|*.rtf';

  {$IFDEF DelphiVer5Up}
    if OpenDialog1.Execute then
      case PageControl1.ActivePageIndex of
        0:
          Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        1:
          RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
      end;
  {$ELSE}
    if OpenDialog1.Execute then
      if PageControl1.ActivePage = TabSheet1 then
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
      else
        RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  {$ENDIF}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if PageControl1.ActivePage = TabSheet3 then
  begin
    if OrckaRadioGroupBox1.Checked then
      OrckaVisualSpellChecker1.EditControl := TCustomEdit(Edit1)
    else
      OrckaVisualSpellChecker1.EditControl := TCustomEdit(OrckaButtonEdit1);
  end else
  begin
   if PageControl1.ActivePage = TabSheet1 then
     OrckaVisualSpellChecker1.EditControl := TCustomEdit(Memo1)
   else
     OrckaVisualSpellChecker1.EditControl := TCustomEdit(RichEdit1);
  end;

  if OrckaVisualSpellChecker1.Execute then
    ShowMessage('Spell Check Complete')
  else
    ShowMessage('Spell Check Cancelled');
end;

end.

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

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

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

{$R *.res}

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