[Ocs-comps-commits] OCS2/Samples/CLX/SpellCheck/Visual SpellCheck.cfg,NONE,1.1 SpellCheck.desk,NONE,
Brought to you by:
tectsoft
Menu
▾
▴
[Ocs-comps-commits] OCS2/Samples/CLX/SpellCheck/Visual SpellCheck.cfg,NONE,1.1 SpellCheck.desk,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
Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/SpellCheck/Visual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/SpellCheck/Visual Added Files: SpellCheck.cfg SpellCheck.desk 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:\Orcka\Samples\SpellCheck\Visual\Unit1.pas Count=1 EditWindowCount=1 [D:\Orcka\Samples\SpellCheck\Visual\Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [D:\Program Files\Borland\Delphi6\Bin\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [D:\Orcka\Samples\SpellCheck\Visual\SpellCheck.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=260 Top=126 Width=763 Height=570 MaxLeft=-1 MaxTop=-1 ClientWidth=755 ClientHeight=543 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D65737361676556696577000000000000000000000000000000000001000000000000000000000000FFFFFFFF [View0] Module=D:\Orcka\Samples\SpellCheck\Visual\Unit1.pas CursorX=21 CursorY=50 TopLine=20 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=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 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=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 TBDockHeight=381 LRDockWidth=190 Dockable=1 SplitPos=114 ArrangeBy=Name SelectedItem=Caption ExpandedItems= HiddenCategories= [WatchWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=197 LRDockWidth=729 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=113 LRDockWidth=729 Dockable=1 [ObjectTree] Create=1 Visible=0 State=0 Left=269 Top=630 Width=190 Height=252 MaxLeft=-1 MaxTop=-1 ClientWidth=182 ClientHeight=228 TBDockHeight=252 LRDockWidth=190 Dockable=1 [LocalVarsWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=189 LRDockWidth=421 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=0 Width=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 TBDockHeight=305 LRDockWidth=170 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=870 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=870 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=1 State=0 Left=0 Top=109 Width=261 Height=552 MaxLeft=-1 MaxTop=-1 ClientWidth=253 ClientHeight=528 TBDockHeight=552 LRDockWidth=232 Dockable=1 TabPosition=2 ActiveTab=Object Inspector TabDockClients=PropertyInspector,ProjectManager,CodeExplorer@EditWindow0 --- NEW FILE: SpellCheck.desk --- [Closed Files] File_0=SourceModule,'/home/simon/orcka/Samples/Button/Unit1.pas',0,1,35,10,40,1,1 File_1=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0 File_2=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1 File_3=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0 File_4=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1353,4,1416,0,0 File_5=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0 File_6=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0 File_7=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0 File_8=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0 File_9=SourceModule,'/home/simon/orcka/source/OrckaTimer.pas',0,1,35,3,42,0,0 [Modules] Module0=/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas Count=1 EditWindowCount=1 [/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [/home/simon/ProjectGroup1.bpg] FormState=0 FormOnTop=0 [/home/simon/orcka/Samples/SpellCheck/Visual/SpellCheck.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 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/SpellCheck/Visual/Unit1.pas CursorX=1 CursorY=1 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: 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: 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: 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. |
