[Ocs-comps-commits] OCS2/Samples/XP/qikdic qikdic.cfg,NONE,1.1 qikdic.conf,NONE,1.1 qikdic.dat,NONE,
Brought to you by:
tectsoft
Menu
▾
▴
[Ocs-comps-commits] OCS2/Samples/XP/qikdic qikdic.cfg,NONE,1.1 qikdic.conf,NONE,1.1 qikdic.dat,NONE,1.1 qikdic.desk,NONE,1.1 qikdic.dof,NONE,1.1 qikdic.dpr,NONE,1.1 qikdic.dsk,NONE,1.1 qikdic.kof,NONE,1.1 qikdic.res,NONE,1.1 Unit1.dfm,NONE,1.1 Unit1.pas,NONE,1.1
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:44
|
Update of /cvsroot/ocs-comps/OCS2/Samples/XP/qikdic In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/XP/qikdic Added Files: qikdic.cfg qikdic.conf qikdic.dat qikdic.desk qikdic.dof qikdic.dpr qikdic.dsk qikdic.kof qikdic.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: qikdic.dof --- [FileVersion] Version=6.0 [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=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= 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;dclaxserver;OrckaD6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\Program Files\Borland\Delphi6\Bin\ [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= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=5 Item0=D:\Program Files\Borland\Delphi6\Source\ToolsAPI Item1=D:\Orcka\Source;D:\Program Files\Borland\Delphi6\Source\Rtl Item2=D:\Orcka\Source Item3=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source Item4=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source;d:\orcka\source [HistoryLists\hlUnitOutputDirectory] Count=2 Item0=D:\Orcka\D5 Item1=D:\Orcka\D6 [HistoryLists\hlOutputDirectorry] Count=2 Item0=C:\Inetpub\wwwroot\cgi-bin Item1=E:\Orcka [HistoryLists\hlBPLOutput] Count=2 Item0=D:\Orcka\D5 Item1=D:\Orcka\D6 --- NEW FILE: qikdic.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: qikdic.desk --- [Closed Files] File_0=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0 File_1=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1353,4,1416,0,0 File_2=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0 File_3=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0 File_4=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0 File_5=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0 File_6=SourceModule,'/home/simon/orcka/source/OrckaTimer.pas',0,1,35,3,42,0,0 File_7=SourceModule,'/home/simon/orcka/source/OrckaSpellChecker.pas',0,1,525,5,532,0,0 File_8=SourceModule,'/home/simon/orcka/source/OrckaWebLabel.pas',0,1,55,1,65,0,0 File_9=SourceModule,'/home/simon/kylix/source/clx/QComCtrls.pas',0,1,1,1,1,0,0 [Modules] Module0=/home/simon/orcka/qikdic/Unit1.pas Module1=/home/simon/kylix/source/clx/IniFiles.pas Count=2 EditWindowCount=1 [/home/simon/orcka/qikdic/Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [/home/simon/kylix/source/clx/IniFiles.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [/home/simon/ProjectGroup1.bpg] FormState=0 FormOnTop=0 [/home/simon/orcka/qikdic/qikdic.dpr] 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/qikdic/Unit1.pas CursorX=1 CursorY=153 TopLine=148 LeftCol=1 [View1] Module=/home/simon/kylix/source/clx/IniFiles.pas CursorX=1 CursorY=760 TopLine=744 LeftCol=1 [Watches] Count=0 [Breakpoints] Count=1 Breakpoint0='/home/simon/orcka/qikdic/Unit1.pas',153,'',0,1,'',1,0,0,'',1,'','','' [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=0 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=1 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: qikdic.dsk --- [Closed Files] File_0=SourceModule,'d:\orcka\source\OrckaTrayIcon.pas',0,1,108,26,124,0,0 File_1=SourceModule,'d:\orcka\source\OrckaWebLabel.pas',0,1,1,1,34,0,0 File_2=SourceModule,'D:\Orcka\Source\OrckaRegister.pas',0,1,70,62,142,0,0 File_3=SourceModule,'d:\orcka\Source\OrckaNotify.pas',0,1,387,27,399,0,0 File_4=SourceModule,'d:\orcka\Source\OrckaButton.pas',0,1,43,3,19,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\OrckaDV.inc',0,1,3,29,35,0,0 [Modules] Module0=D:\Orcka\source\OrckaSpellChecker.pas Module1=E:\Orcka\qikdic\Unit1.pas Module2=d:\orcka\source\OrckaSpellCheckForm.pas Module3=E:\Orcka\qikdic\qikdic.dpr Count=4 EditWindowCount=1 [D:\Orcka\source\OrckaSpellChecker.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [E:\Orcka\qikdic\Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 [d:\orcka\source\OrckaSpellCheckForm.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 [E:\Orcka\qikdic\qikdic.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [D:\Program Files\Borland\Delphi5\Bin\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=2 Left=279 Top=200 Width=743 Height=508 MaxLeft=-1 MaxTop=101 MaxWidth=1032 MaxHeight=643 ClientWidth=1024 ClientHeight=616 LeftPanelSize=179 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] Module=E:\Orcka\qikdic\qikdic.dpr CursorX=37 CursorY=11 TopLine=1 LeftCol=1 [View1] Module=E:\Orcka\qikdic\Unit1.pas CursorX=25 CursorY=75 TopLine=42 LeftCol=1 [View2] Module=D:\Orcka\source\OrckaSpellChecker.pas CursorX=1 CursorY=179 TopLine=176 LeftCol=1 [View3] Module=d:\orcka\source\OrckaSpellCheckForm.pas CursorX=1 CursorY=324 TopLine=36 LeftCol=1 [Watches] Count=2 Watch0='Result',256,0,18,1,1 Watch1='sTmp',256,0,18,1,1 [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=6 Top=504 Width=438 Height=196 MaxLeft=-1 MaxTop=-1 ClientWidth=430 ClientHeight=172 TBDockHeight=303 LRDockWidth=438 Dockable=1 [CPUWindow] Create=1 Visible=0 State=0 Left=245 Top=207 Width=533 Height=353 MaxLeft=-1 MaxTop=-1 ClientWidth=525 ClientHeight=326 DumpPane=79 DisassemblyPane=187 RegisterPane=231 FlagPane=64 [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=107 Width=246 Height=465 MaxLeft=-1 MaxTop=-1 ClientWidth=236 ClientHeight=439 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=109 ArrangeBy=Name SelectedItem=OnButtonClick ExpandedItems= HiddenCategories=Legacy ShowStatusBar=1 [WatchWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=0 State=0 Left=9 Top=583 Width=509 Height=149 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=125 TBDockHeight=170 LRDockWidth=323 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=161 LRDockWidth=294 Dockable=1 [ThreadStatusWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=152 LRDockWidth=624 Dockable=1 Column0Width=145 Column1Width=100 Column2Width=115 Column3Width=250 [ModuleWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=355 LRDockWidth=638 Dockable=1 Column0Width=125 Column1Width=100 Column2Width=155 EntryPointPane=225 CompUnitPane=104 [DebugLogView] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=291 LRDockWidth=417 Dockable=1 [LocalVarsWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=192 LRDockWidth=421 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=12 Width=179 Height=586 MaxLeft=-1 MaxTop=-1 ClientWidth=179 ClientHeight=586 TBDockHeight=305 LRDockWidth=179 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=1012 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=1012 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=0 --- NEW FILE: qikdic.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=/home/simon/kylix/lib/debug Packages=baseclx:visualclx:visualdbclx:dataclx:indy:orckak1 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% UseLauncher=0 DebugCWD= --- NEW FILE: qikdic.dat --- [Settings] Top=122 Left=342 Width=270 Height=210 [Dictionary] Dictionary=/home/simon/orcka/Dictionaries/american.dic Custom Dictionary=/home/simon/orcka/Dictionaries/custom.dic --- NEW FILE: Unit1.dfm --- object Form1: TForm1 Left = 342 Top = 122 Width = 270 Height = 210 HorzScrollBar.Range = 255 VertScrollBar.Range = 69 ActiveControl = ListBox2 Caption = 'Orcka Dictionary' Color = clButton Constraints.MinHeight = 210 Constraints.MinWidth = 270 Font.Color = clText Font.Height = 11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 TextWidth = 5 object Bevel1: TBevel Left = 8 Top = 144 Width = 247 Height = 2 Anchors = [akLeft, akRight, akBottom] end object OrckaButton1: TOrckaButton Left = 232 Top = 32 Width = 23 Height = 22 Caption = '...' Flat = True OnClick = edtWordButtonClick AlignTopLeft = False ButtonStyle = obButton ImageIndex = -1 Position = -1 end object Label1: TLabel Left = 8 Top = 56 Width = 57 Height = 13 Caption = 'Suggestions' end object OrckaWebLabel1: TOrckaWebLabel Left = 8 Top = 158 Width = 57 Height = 13 Cursor = crHandPoint Anchors = [akLeft, akBottom] Caption = 'Orcka Home' WebFont.Color = clBlue WebFont.Height = 11 WebFont.Name = 'MS Sans Serif' WebFont.Pitch = fpVariable WebFont.Style = [fsUnderline] URL = 'http://www.orcka.com' end object Label2: TLabel Left = 8 Top = 8 Width = 95 Height = 13 Caption = 'Word to Spell Check' end object ListBox2: TListBox Left = 8 Top = 72 Width = 247 Height = 65 Anchors = [akLeft, akTop, akRight, akBottom] Font.Color = clText Font.Height = 11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ItemHeight = 13 ParentFont = False Sorted = True TabOrder = 1 end object btnClose: TButton Left = 182 Top = 152 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Close' TabOrder = 3 OnClick = btnCloseClick end object Button1: TButton Left = 86 Top = 152 Width = 91 Height = 25 Anchors = [akRight, akBottom] Caption = 'Add to Dictionary' TabOrder = 2 OnClick = Button1Click end object edtWord: TEdit Left = 8 Top = 32 Width = 222 Height = 21 TabOrder = 6 Text = 'edtWord' OnKeyPress = edtWordKeyPress end object PopupMenu1: TPopupMenu Left = 88 Top = 88 object CheckWord1: TMenuItem Caption = '&Check Word' OnClick = CheckWord1Click end object N1: TMenuItem Caption = '-' end object Close1: TMenuItem Caption = '&Close' OnClick = Close1Click end end object OpenDialog: TOpenDialog DefaultExt = '*.dic' Filter = 'Dictionary File|*.dic' Title = 'Select Dictionary File' Left = 120 Top = 88 end object OrckaSpellChecker: TOrckaSpellChecker Dictionary = '/home/simon/orcka/Dictionaries/american.dic' CustomDictionary = '/home/simon/orcka/Dictionaries/custom.dic' IgnoreList = [ilWithNumbers, ilNumbers, ilUppercase] OnWordNotFound = OrckaSpellCheckerWordNotFound OnSoundLikeFound = OrckaSpellCheckerSoundLikeFound OnWordFound = OrckaSpellCheckerWordFound Left = 24 Top = 88 end end --- NEW FILE: Unit1.pas --- unit Unit1; interface uses SysUtils, Classes, QGraphics, QMenus, QForms, OrckaSpellChecker, QStdCtrls, QControls, OrckaWebLabel, QExtCtrls, QDialogs, QButtons, OrckaButton, QTypes; type TForm1 = class(TForm) ListBox2: TListBox; Label1: TLabel; Bevel1: TBevel; btnClose: TButton; Button1: TButton; PopupMenu1: TPopupMenu; CheckWord1: TMenuItem; N1: TMenuItem; Close1: TMenuItem; OrckaWebLabel1: TOrckaWebLabel; OpenDialog: TOpenDialog; Label2: TLabel; OrckaSpellChecker: TOrckaSpellChecker; edtWord: TEdit; OrckaButton1: TOrckaButton; procedure OrckaSpellCheckerSoundLikeFound(Sender: TObject; Word: String); procedure edtWordButtonClick(Sender: TObject); procedure OrckaSpellCheckerWordFound(Sender: TObject; const Word: String); procedure Button1Click(Sender: TObject); procedure btnCloseClick(Sender: TObject); procedure CheckWord1Click(Sender: TObject); procedure Close1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure OrckaTrayIconDblClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure OrckaSpellCheckerWordNotFound(Sender: TObject; var Word: String; const StartPos, Length: Integer); procedure edtWordKeyPress(Sender: TObject; var Key: Char); private procedure SaveSettings; procedure LoadSettings; public end; var Form1: TForm1; implementation uses IniFiles; {$R *.dfm} procedure TForm1.OrckaSpellCheckerSoundLikeFound(Sender: TObject; Word: String); begin ListBox2.Items.Add(Word); end; procedure TForm1.edtWordButtonClick(Sender: TObject); begin ListBox2.Items.Clear; OrckaSpellChecker.Execute(edtWord.Text); end; procedure TForm1.OrckaSpellCheckerWordFound(Sender: TObject; const Word: String); begin Application.MessageBox(Format('%s is spelt correctly', [Word])); end; procedure TForm1.Button1Click(Sender: TObject); var S: string; begin s := InputBox(Caption, 'Enter word to add to custom dictionary', edtWord.Text); if s = '' then Exit; OrckaSpellChecker.AddWord(s); end; procedure TForm1.btnCloseClick(Sender: TObject); begin Visible := False; end; procedure TForm1.CheckWord1Click(Sender: TObject); begin Visible := True; end; procedure TForm1.Close1Click(Sender: TObject); begin Close; end; procedure TForm1.FormCreate(Sender: TObject); begin LoadSettings; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SaveSettings; end; procedure TForm1.OrckaTrayIconDblClick(Sender: TObject); begin Visible := True; end; procedure TForm1.LoadSettings; var Ini: TIniFile; begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'qikdic.dat'); try Top := Ini.ReadInteger('Settings', 'Top', Top); Left := Ini.ReadInteger('Settings', 'Left', Left); Width := Ini.ReadInteger('Settings', 'Width', Width); Height := Ini.ReadInteger('Settings', 'Height', Height); OrckaSpellChecker.Dictionary := Ini.ReadString('Dictionary', 'Dictionary', OrckaSpellChecker.Dictionary); if not FileExists(OrckaSpellChecker.Dictionary) then if OpenDialog.Execute then OrckaSpellChecker.Dictionary := OpenDialog.FileName; OrckaSpellChecker.CustomDictionary := Ini.ReadString('Dictionary', 'Custom Dictionary', OrckaSpellChecker.CustomDictionary); finally Ini.Free; end; end; procedure TForm1.SaveSettings; var Ini: TIniFile; begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'qikdic.dat'); try Ini.WriteInteger('Settings', 'Top', Top); Ini.WriteInteger('Settings', 'Left', Left); Ini.WriteInteger('Settings', 'Width', Width); Ini.WriteInteger('Settings', 'Height', Height); Ini.WriteString('Dictionary', 'Dictionary', OrckaSpellChecker.Dictionary); Ini.WriteString('Dictionary', 'Custom Dictionary', OrckaSpellChecker.CustomDictionary); {$IFDEF Linux} Ini.UpdateFile; {$ENDIF} finally Ini.Free; end; end; procedure TForm1.OrckaSpellCheckerWordNotFound(Sender: TObject; var Word: String; const StartPos, Length: Integer); begin Application.MessageBox(Format('%s was not be found in the dictionary', [Word])); end; procedure TForm1.edtWordKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then edtWordButtonClick(nil); end; end. --- NEW FILE: qikdic.dpr --- program qikdic; uses QForms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: qikdic.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: qikdic.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 -U"/home/simon/kylix/lib/debug" -O"/home/simon/kylix/lib/debug" -I"/home/simon/kylix/lib/debug" -R"/home/simon/kylix/lib/debug" |
