mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

небольшие изменения в схеме сохранения/восстановления позиций окон (editor, viewer)

Browse source
This commit is contained in:
zolotov-alex 2007-04-18 15:11:15 +00:00
commit 4003b67b2f
10 changed files with 523 additions and 298 deletions
Download patch file Download diff file Expand all files Collapse all files

118
doublecmd.ini
View file

@ -1,59 +1,59 @@
[Configuration]
Language=english.lng
LynxLike=1
CaseSensitiveSort=1
ShowSystemFiles=1
DirSelect=1
Term=/usr/X11R6/bin/xterm -e bash -i -c %s
HotDir=/home/,/mnt/,/usr/bin/,/mnt/X//
ShortFileSizeFormat=1
UseExtEdit=0
UseExtView=0
UseExtDiff=0
ExtEdit=kwrite "%s"
ExtView=Viewer.exe "%s"
RunTerm=/usr/X11R6/bin/xterm
FontSize=9
FontWeight=700
FontEditorSize=12
FontViewerSize=12
FontName=MS Sans Serif
FontViewerName=Courier
FontEditorName=Times New Roman
SeparateExt=1
EditorSize=12
ViewerSize=12
Main.Left=-2
Main.Top=61
Main.Width=800
Main.Height=546
Col0=169
Col1=33
Col2=48
Col3=76
Col4=216
Viewer.left=4306
Viewer.top=15939
Viewer.height=100
Viewer.width=350
Editor.left=252
Editor.top=993
Editor.height=518
Editor.width=792
[Colors]
BackColor=16777215
[PackerPlugins]
;rpm=20,X:\Doublecmd\plugins\rpm\bin\rpm.wcx
zip=87,X:\DC\svn\doublecmd\plugins\zip\bin\zip.wcx
;tar=87,X:\Doublecmd\plugins\zip\bin\zip.wcx
;gz=87,X:\Doublecmd\plugins\zip\bin\zip.wcx
;cpio=87,X:\Doublecmd\plugins\cpio\bin\cpio.wcx
7z=87,X:\Totalcmd\Plugins\wcx\7zip\7zip.wcx
[left]
path=/root/
[right]
path=/mnt/X/dc/
[Configuration]
Language=english.lng
LynxLike=1
CaseSensitiveSort=1
ShowSystemFiles=1
DirSelect=1
Term=/usr/X11R6/bin/xterm -e bash -i -c %s
HotDir=/home/,/mnt/,/usr/bin/,/mnt/X//
ShortFileSizeFormat=1
UseExtEdit=0
UseExtView=0
UseExtDiff=0
ExtEdit=kwrite "%s"
ExtView=Viewer.exe "%s"
RunTerm=/usr/X11R6/bin/xterm
FontSize=9
FontWeight=700
FontEditorSize=12
FontViewerSize=12
FontName=MS Sans Serif
FontViewerName=Courier
FontEditorName=Times New Roman
SeparateExt=1
EditorSize=12
ViewerSize=12
Main.Left=-4
Main.Top=-4
Main.Width=1024
Main.Height=717
Col0=169
Col1=33
Col2=48
Col3=76
Col4=216
Viewer.left=0
Viewer.top=312
Viewer.height=358
Viewer.width=587
Editor.left=354
Editor.top=1384
Editor.height=1879
Editor.width=1140
[Colors]
BackColor=16777215
[PackerPlugins]
;rpm=20,X:\Doublecmd\plugins\rpm\bin\rpm.wcx
zip=87,X:\DC\svn\doublecmd\plugins\zip\bin\zip.wcx
;tar=87,X:\Doublecmd\plugins\zip\bin\zip.wcx
;gz=87,X:\Doublecmd\plugins\zip\bin\zip.wcx
;cpio=87,X:\Doublecmd\plugins\cpio\bin\cpio.wcx
7z=87,X:\Totalcmd\Plugins\wcx\7zip\7zip.wcx
[left]
path=D:\web\test\
[right]
path=D:\\

214
doublecmd.lpi
View file

@ -11,7 +11,7 @@
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="Double Commander"/>
<ActiveEditorIndexAtStart Value="0"/>
<ActiveEditorIndexAtStart Value="3"/>
</General>
<PublishOptions>
<Version Value="2"/>
@ -47,14 +47,16 @@
<PackageName Value="JPEGForLazarus"/>
</Item5>
</RequiredPackages>
<Units Count="5">
<Units Count="12">
<Unit0>
<Filename Value="doublecmd.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="doublecmd"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="65"/>
<TopLine Value="59"/>
<EditorIndex Value="4"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="fbtnchangedlg.pas"/>
@ -84,10 +86,10 @@
<HasResources Value="True"/>
<ResourceFilename Value="fMain.lrs"/>
<UnitName Value="fMain"/>
<CursorPos X="11" Y="1210"/>
<TopLine Value="1195"/>
<EditorIndex Value="0"/>
<UsageCount Value="92"/>
<CursorPos X="29" Y="893"/>
<TopLine Value="878"/>
<EditorIndex Value="1"/>
<UsageCount Value="95"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
@ -96,10 +98,202 @@
<UnitName Value="uWCXprototypes"/>
<CursorPos X="28" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="157"/>
<UsageCount Value="162"/>
</Unit4>
<Unit5>
<Filename Value="uOSUtils.pas"/>
<UnitName Value="uOSUtils"/>
<CursorPos X="19" Y="263"/>
<TopLine Value="237"/>
<EditorIndex Value="0"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="uglobs.pas"/>
<UnitName Value="uGlobs"/>
<CursorPos X="24" Y="116"/>
<TopLine Value="45"/>
<EditorIndex Value="7"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="..\lazarus\lcl\actnlist.pas"/>
<UnitName Value="ActnList"/>
<CursorPos X="29" Y="206"/>
<TopLine Value="192"/>
<EditorIndex Value="5"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\lazarus\lcl\lcltype.pp"/>
<UnitName Value="LCLType"/>
<CursorPos X="3" Y="2417"/>
<TopLine Value="2403"/>
<EditorIndex Value="6"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
<Filename Value="fviewer.pas"/>
<ComponentName Value="frmViewer"/>
<HasResources Value="True"/>
<ResourceFilename Value="fViewer.lrs"/>
<UnitName Value="fViewer"/>
<CursorPos X="16" Y="344"/>
<TopLine Value="328"/>
<EditorIndex Value="3"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="framepanel.pas"/>
<ComponentName Value="FrameFilePanel"/>
<HasResources Value="True"/>
<UnitName Value="framePanel"/>
<CursorPos X="36" Y="71"/>
<TopLine Value="59"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="feditor.pas"/>
<ComponentName Value="frmEditor"/>
<HasResources Value="True"/>
<ResourceFilename Value="fEditor.lrs"/>
<UnitName Value="fEditor"/>
<CursorPos X="20" Y="642"/>
<TopLine Value="627"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="uglobs.pas"/>
<Caret Line="266" Column="7" TopLine="247"/>
</Position1>
<Position2>
<Filename Value="fviewer.pas"/>
<Caret Line="132" Column="9" TopLine="128"/>
</Position2>
<Position3>
<Filename Value="fviewer.pas"/>
<Caret Line="133" Column="1" TopLine="127"/>
</Position3>
<Position4>
<Filename Value="fviewer.pas"/>
<Caret Line="72" Column="20" TopLine="66"/>
</Position4>
<Position5>
<Filename Value="doublecmd.lpr"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="doublecmd.lpr"/>
<Caret Line="67" Column="16" TopLine="41"/>
</Position6>
<Position7>
<Filename Value="doublecmd.lpr"/>
<Caret Line="1" Column="1" TopLine="25"/>
</Position7>
<Position8>
<Filename Value="fviewer.pas"/>
<Caret Line="129" Column="14" TopLine="118"/>
</Position8>
<Position9>
<Filename Value="uglobs.pas"/>
<Caret Line="104" Column="8" TopLine="84"/>
</Position9>
<Position10>
<Filename Value="uglobs.pas"/>
<Caret Line="105" Column="8" TopLine="90"/>
</Position10>
<Position11>
<Filename Value="uglobs.pas"/>
<Caret Line="152" Column="1" TopLine="125"/>
</Position11>
<Position12>
<Filename Value="uglobs.pas"/>
<Caret Line="196" Column="16" TopLine="180"/>
</Position12>
<Position13>
<Filename Value="uglobs.pas"/>
<Caret Line="266" Column="16" TopLine="246"/>
</Position13>
<Position14>
<Filename Value="uglobs.pas"/>
<Caret Line="76" Column="24" TopLine="62"/>
</Position14>
<Position15>
<Filename Value="feditor.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="feditor.pas"/>
<Caret Line="186" Column="30" TopLine="171"/>
</Position16>
<Position17>
<Filename Value="fviewer.pas"/>
<Caret Line="129" Column="14" TopLine="118"/>
</Position17>
<Position18>
<Filename Value="fviewer.pas"/>
<Caret Line="132" Column="30" TopLine="117"/>
</Position18>
<Position19>
<Filename Value="fviewer.pas"/>
<Caret Line="260" Column="23" TopLine="246"/>
</Position19>
<Position20>
<Filename Value="fviewer.pas"/>
<Caret Line="263" Column="16" TopLine="249"/>
</Position20>
<Position21>
<Filename Value="fviewer.pas"/>
<Caret Line="137" Column="14" TopLine="124"/>
</Position21>
<Position22>
<Filename Value="fviewer.pas"/>
<Caret Line="113" Column="21" TopLine="141"/>
</Position22>
<Position23>
<Filename Value="fviewer.pas"/>
<Caret Line="254" Column="36" TopLine="254"/>
</Position23>
<Position24>
<Filename Value="fviewer.pas"/>
<Caret Line="330" Column="1" TopLine="326"/>
</Position24>
<Position25>
<Filename Value="fviewer.pas"/>
<Caret Line="258" Column="12" TopLine="254"/>
</Position25>
<Position26>
<Filename Value="fviewer.pas"/>
<Caret Line="331" Column="17" TopLine="328"/>
</Position26>
<Position27>
<Filename Value="fviewer.pas"/>
<Caret Line="265" Column="9" TopLine="239"/>
</Position27>
<Position28>
<Filename Value="uglobs.pas"/>
<Caret Line="91" Column="14" TopLine="65"/>
</Position28>
<Position29>
<Filename Value="fviewer.pas"/>
<Caret Line="265" Column="9" TopLine="239"/>
</Position29>
<Position30>
<Filename Value="fviewer.pas"/>
<Caret Line="262" Column="20" TopLine="251"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>

163
fEditor.lrs
View file

@ -1,25 +1,24 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmEditor','FORMDATA',[
'TPF0'#10'TfrmEditor'#9'frmEditor'#13'ActiveControl'#7#6'Editor'#7'Caption'#6
+#9'frmEditor'#12'ClientHeight'#3#212#1#11'ClientWidth'#3#221#2#10'KeyPreview'
+#9#4'Menu'#7#9'MainMenu1'#7'OnClose'#7#14'frmEditorClose'#12'OnCloseQuery'#7
+#14'FormCloseQuery'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestr'
+'oy'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2
+#16#18'HorzScrollBar.Page'#3#220#2#18'VertScrollBar.Page'#3#211#1#19'VertScr'
+'ollBar.Range'#2#19#4'Left'#3#180#1#6'Height'#3#232#1#3'Top'#3'$'#1#5'Width'
+#3#221#2#0#10'TStatusBar'#9'StatusBar'#6'Panels'#14#1#5'Width'#2'2'#0#1#5'Wi'
+'dth'#3#150#0#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#0#11'SimplePanel'#8#6'He'
+'ight'#2#23#3'Top'#3#189#1#5'Width'#3#221#2#0#0#8'TSynEdit'#6'Editor'#5'Alig'
+'n'#7#8'alClient'#7'Anchors'#11#5'akTop'#0#10'Font.Color'#7#7'clBlack'#11'Fo'
+'nt.Height'#2#13#9'Font.Name'#6#13'adobe-courier'#10'Font.Pitch'#7#7'fpFixed'
+#6'Height'#3#189#1#4'Name'#6#6'Editor'#11'ParentColor'#8#11'ParentCtl3D'#8#8
+'TabOrder'#2#0#5'Width'#3#221#2#9'OnKeyDown'#7#13'EditorKeyDown'#10'OnKeyPre'
+'ss'#7#14'EditorKeyPress'#7'OnKeyUp'#7#11'EditorKeyUp'#23'BookMarkOptions.Xo'
+'ffset'#2'"'#22'Gutter.ShowLineNumbers'#9#23'Gutter.CodeFoldingWidth'#2#14#10
+'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'Shor'
+'tCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'S'
+'hortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8
'TPF0'#241#10'TfrmEditor'#9'frmEditor'#4'Left'#3#180#1#6'Height'#3#232#1#3'To'
+'p'#3'$'#1#5'Width'#3#221#2#18'HorzScrollBar.Page'#3#220#2#18'VertScrollBar.'
+'Page'#3#211#1#19'VertScrollBar.Range'#2#19#13'ActiveControl'#7#6'Editor'#7
+'Caption'#6#9'frmEditor'#10'KeyPreview'#9#4'Menu'#7#9'MainMenu1'#7'OnClose'#7
+#14'frmEditorClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#9'OnDestroy'#7#11
+'FormDestroy'#8'Position'#7#14'poScreenCenter'#0#10'TStatusBar'#9'StatusBar'
+#6'Height'#2#23#3'Top'#3#189#1#5'Width'#3#221#2#6'Panels'#14#1#5'Width'#2'2'
+#0#1#5'Width'#3#150#0#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#0#11'SimplePanel'
+#8#0#0#8'TSynEdit'#6'Editor'#6'Height'#3#189#1#5'Width'#3#221#2#5'Align'#7#8
+'alClient'#7'Anchors'#11#5'akTop'#0#10'Font.Color'#7#7'clBlack'#11'Font.Heig'
+'ht'#2#13#9'Font.Name'#6#13'adobe-courier'#10'Font.Pitch'#7#7'fpFixed'#11'Pa'
+'rentColor'#8#11'ParentCtl3D'#8#8'TabOrder'#2#0#9'OnKeyDown'#7#13'EditorKeyD'
+'own'#10'OnKeyPress'#7#14'EditorKeyPress'#7'OnKeyUp'#7#11'EditorKeyUp'#23'Bo'
+'okMarkOptions.Xoffset'#2'"'#24'BookMarkOptions.OnChange'#13#22'Gutter.ShowL'
+'ineNumbers'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Ke'
+'ystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortC'
+'ut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'Sho'
+'rtCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8
+'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'S'
+'hortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'S'
+'hortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'S'
@ -59,64 +58,70 @@ LazarusResources.Add('TfrmEditor','FORMDATA',[
+#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
+'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
+'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
+#0#0#8'OnChange'#7#12'EditorChange'#13'OnReplaceText'#7#17'EditorReplaceText'
+#14'OnStatusChange'#7#18'EditorStatusChange'#6'Cursor'#7#7'crIBeam'#6'Height'
+#3#189#1#5'Width'#3#221#2#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2'0'#3'top'#2
+#8#0#9'TMenuItem'#6'miFile'#7'Caption'#6#5'&File'#0#9'TMenuItem'#4'New1'#6'A'
+'ction'#7#10'actFileNew'#7'OnClick'#7#17'actFileNewExecute'#0#0#9'TMenuItem'
+#5'Open1'#6'Action'#7#11'actFileOpen'#7'OnClick'#7#18'actFileOpenExecute'#0#0
,#9'TMenuItem'#5'Save1'#6'Action'#7#11'actFileSave'#7'OnClick'#7#18'actFileSa'
+'veExecute'#0#0#9'TMenuItem'#7'SaveAs1'#6'Action'#7#13'actFileSaveAs'#7'OnCl'
+'ick'#7#20'actFileSaveAsExecute'#0#0#9'TMenuItem'#5'miDiv'#7'Caption'#6#1'-'
+#0#0#9'TMenuItem'#10'miConfHigh'#6'Action'#7#11'actConfHigh'#7'OnClick'#7#18
+'actConfHighExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuIte'
+'m'#5'Exit1'#6'Action'#7#11'actFileExit'#7'OnClick'#7#18'actFileExitExecute'
+#0#0#0#9'TMenuItem'#6'miEdit'#7'Caption'#6#5'&Edit'#0#9'TMenuItem'#6'miUndo'
+#6'Action'#7#11'actEditUndo'#7'OnClick'#7#18'actEditUndoExecute'#0#0#9'TMenu'
+'Item'#2'N3'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'miCut'#6'Action'#7#10'actE'
+'ditCut'#7'OnClick'#7#17'actEditCutExecute'#0#0#9'TMenuItem'#6'miCopy'#6'Act'
+'ion'#7#11'actEditCopy'#7'OnClick'#7#18'actEditCopyExecute'#0#0#9'TMenuItem'
+#7'miPaste'#6'Action'#7#12'actEditPaste'#7'OnClick'#7#19'actEditPasteExecute'
+#0#0#9'TMenuItem'#2'N4'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miFind'#6'Actio'
+'n'#7#11'actEditFind'#7'OnClick'#7#18'actEditFindExecute'#0#0#9'TMenuItem'#9
+'miReplace'#6'Action'#7#11'actEditRplc'#7'OnClick'#7#18'actEditRplcExecute'#0
+#0#0#9'TMenuItem'#11'miHighlight'#7'Caption'#6#16'Syntax highlight'#0#0#9'TM'
+'enuItem'#5'Help1'#7'Caption'#6#5'&Help'#0#9'TMenuItem'#7'miAbout'#6'Action'
+#7#8'actAbout'#7'OnClick'#7#15'actAboutExecute'#0#0#0#0#11'TActionList'#11'A'
+'ctListEdit'#4'left'#3#128#0#3'top'#3#232#0#0#7'TAction'#8'actAbout'#7'Capti'
+'on'#6#5'About'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actAboutExecute'
+#8'Category'#6#4'Help'#0#0#7'TAction'#11'actFileOpen'#7'Caption'#6#5'&Open'#8
+'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actFileOpenExecute'#8'ShortCut'#3
+'O@'#8'Category'#6#4'File'#0#0#7'TAction'#12'actFileClose'#7'Caption'#6#6'&C'
+'lose'#8'HelpType'#7#9'htKeyword'#8'Category'#6#4'File'#0#0#7'TAction'#11'ac'
+'tFileSave'#7'Caption'#6#5'&Save'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
+#18'actFileSaveExecute'#8'ShortCut'#2'q'#8'Category'#6#4'File'#0#0#7'TAction'
+#13'actFileSaveAs'#7'Caption'#6#10'Save &As..'#8'HelpType'#7#9'htKeyword'#9
+'OnExecute'#7#20'actFileSaveAsExecute'#8'Category'#6#4'File'#0#0#7'TAction'
+#10'actFileNew'#7'Caption'#6#4'&New'#8'HelpType'#7#9'htKeyword'#9'OnExecute'
+#7#17'actFileNewExecute'#8'ShortCut'#3'N@'#8'Category'#6#4'File'#0#0#7'TActi'
+'on'#11'actFileExit'#7'Caption'#6#5'E&xit'#8'HelpType'#7#9'htKeyword'#9'OnEx'
+'ecute'#7#18'actFileExitExecute'#8'ShortCut'#3'X@'#8'Category'#6#4'File'#0#0
+#7'TAction'#10'actSaveAll'#7'Caption'#6#9'Sa&ve All'#8'HelpType'#7#9'htKeywo'
+'rd'#8'ShortCut'#3'S`'#8'Category'#6#4'File'#0#0#7'TAction'#11'actEditFind'#7
+'Caption'#6#5'&Find'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditFin'
+'dExecute'#8'ShortCut'#3'F@'#8'Category'#6#4'Edit'#0#0#7'TAction'#11'actEdit'
+'Rplc'#7'Caption'#6#8'&Replace'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18
+'actEditRplcExecute'#8'ShortCut'#3'R@'#8'Category'#6#4'Edit'#0#0#7'TAction'#8
+'actSave2'#7'Caption'#6#8'actSave2'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
+#15'actSave2Execute'#8'ShortCut'#3'S@'#8'Category'#6#4'File'#0#0#7'TAction'
+#11'actConfHigh'#7'Caption'#6#11'actConfHigh'#8'HelpType'#7#9'htKeyword'#9'O'
+'nExecute'#7#18'actConfHighExecute'#8'Category'#6#4'File'#0#0#7'TAction'#10
+'actEditCut'#7'Caption'#6#3'Cut'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#17
+'actEditCutExecute'#8'ShortCut'#3'X@'#8'Category'#6#4'Edit'#0#0#7'TAction'#11
+'actEditCopy'#7'Caption'#6#4'Copy'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
+#18'actEditCopyExecute'#8'ShortCut'#3'C@'#8'Category'#6#4'Edit'#0#0#7'TActio'
+'n'#12'actEditPaste'#7'Caption'#6#5'Paste'#8'HelpType'#7#9'htKeyword'#9'OnEx'
+'ecute'#7#19'actEditPasteExecute'#8'ShortCut'#3'V@'#8'Category'#6#4'Edit'#0#0
+#7'TAction'#11'actEditUndo'#7'Caption'#6#4'Undo'#8'HelpType'#7#9'htKeyword'#9
+'OnExecute'#7#18'actEditUndoExecute'#8'ShortCut'#3'Z@'#8'Category'#6#4'Edit'
+#0#0#7'TAction'#11'actEditRedo'#7'Caption'#6#11'actEditRedo'#8'HelpType'#7#9
+'htKeyword'#8'Category'#6#4'Edit'#0#0#7'TAction'#16'actEditSelectAll'#7'Capt'
+'ion'#6#10'Select&All'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#23'actEditS'
+'electAllExecute'#8'ShortCut'#3'A@'#8'Category'#6#4'Edit'#0#0#0#0
+#0#0#22'SelectedColor.OnChange'#13#8'OnChange'#7#12'EditorChange'#13'OnRepla'
+'ceText'#7#17'EditorReplaceText'#14'OnStatusChange'#7#18'EditorStatusChange'
+#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2'0'#3'top'#2#8#0#9'TMenuItem'#6'miFi'
+'le'#7'Caption'#6#5'&File'#0#9'TMenuItem'#4'New1'#6'Action'#7#10'actFileNew'
+#7'OnClick'#7#17'actFileNewExecute'#0#0#9'TMenuItem'#5'Open1'#6'Action'#7#11
+'actFileOpen'#7'OnClick'#7#18'actFileOpenExecute'#0#0#9'TMenuItem'#5'Save1'#6
+'Action'#7#11'actFileSave'#7'OnClick'#7#18'actFileSaveExecute'#0#0#9'TMenuIt'
,'em'#7'SaveAs1'#6'Action'#7#13'actFileSaveAs'#7'OnClick'#7#20'actFileSaveAsE'
+'xecute'#0#0#9'TMenuItem'#5'miDiv'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'miC'
+'onfHigh'#6'Action'#7#11'actConfHigh'#7'OnClick'#7#18'actConfHighExecute'#0#0
+#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exit1'#6'Action'#7
+#11'actFileExit'#7'OnClick'#7#18'actFileExitExecute'#0#0#0#9'TMenuItem'#6'mi'
+'Edit'#7'Caption'#6#5'&Edit'#0#9'TMenuItem'#6'miUndo'#6'Action'#7#11'actEdit'
+'Undo'#7'OnClick'#7#18'actEditUndoExecute'#0#0#9'TMenuItem'#2'N3'#7'Caption'
+#6#1'-'#0#0#9'TMenuItem'#5'miCut'#6'Action'#7#10'actEditCut'#7'OnClick'#7#17
+'actEditCutExecute'#0#0#9'TMenuItem'#6'miCopy'#6'Action'#7#11'actEditCopy'#7
+'OnClick'#7#18'actEditCopyExecute'#0#0#9'TMenuItem'#7'miPaste'#6'Action'#7#12
+'actEditPaste'#7'OnClick'#7#19'actEditPasteExecute'#0#0#9'TMenuItem'#2'N4'#7
+'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miFind'#6'Action'#7#11'actEditFind'#7'On'
+'Click'#7#18'actEditFindExecute'#0#0#9'TMenuItem'#9'miReplace'#6'Action'#7#11
+'actEditRplc'#7'OnClick'#7#18'actEditRplcExecute'#0#0#0#9'TMenuItem'#11'miHi'
+'ghlight'#7'Caption'#6#16'Syntax highlight'#0#0#9'TMenuItem'#5'Help1'#7'Capt'
+'ion'#6#5'&Help'#0#9'TMenuItem'#7'miAbout'#6'Action'#7#8'actAbout'#7'OnClick'
+#7#15'actAboutExecute'#0#0#0#0#11'TActionList'#11'ActListEdit'#4'left'#3#128
+#0#3'top'#3#232#0#0#7'TAction'#8'actAbout'#8'Category'#6#4'Help'#7'Caption'#6
+#5'About'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
+#15'actAboutExecute'#0#0#7'TAction'#11'actFileOpen'#8'Category'#6#4'File'#7
+'Caption'#6#5'&Open'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'O'
+'nExecute'#7#18'actFileOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#12'actF'
+'ileClose'#8'Category'#6#4'File'#7'Caption'#6#6'&Close'#18'DisableIfNoHandle'
+'r'#9#8'HelpType'#7#9'htKeyword'#0#0#7'TAction'#11'actFileSave'#8'Category'#6
+#4'File'#7'Caption'#6#5'&Save'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKe'
+'yword'#9'OnExecute'#7#18'actFileSaveExecute'#8'ShortCut'#2'q'#0#0#7'TAction'
+#13'actFileSaveAs'#8'Category'#6#4'File'#7'Caption'#6#10'Save &As..'#18'Disa'
+'bleIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#20'actFileSaveA'
+'sExecute'#0#0#7'TAction'#10'actFileNew'#8'Category'#6#4'File'#7'Caption'#6#4
+'&New'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#17
+'actFileNewExecute'#8'ShortCut'#3'N@'#0#0#7'TAction'#11'actFileExit'#8'Categ'
+'ory'#6#4'File'#7'Caption'#6#5'E&xit'#18'DisableIfNoHandler'#9#8'HelpType'#7
+#9'htKeyword'#9'OnExecute'#7#18'actFileExitExecute'#8'ShortCut'#3'X@'#0#0#7
+'TAction'#10'actSaveAll'#8'Category'#6#4'File'#7'Caption'#6#9'Sa&ve All'#18
+'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#8'ShortCut'#3'S`'#0#0#7'TA'
+'ction'#11'actEditFind'#8'Category'#6#4'Edit'#7'Caption'#6#5'&Find'#18'Disab'
+'leIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditFindEx'
+'ecute'#8'ShortCut'#3'F@'#0#0#7'TAction'#11'actEditRplc'#8'Category'#6#4'Edi'
+'t'#7'Caption'#6#8'&Replace'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyw'
+'ord'#9'OnExecute'#7#18'actEditRplcExecute'#8'ShortCut'#3'R@'#0#0#7'TAction'
+#8'actSave2'#8'Category'#6#4'File'#7'Caption'#6#8'actSave2'#18'DisableIfNoHa'
+'ndler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actSave2Execute'#8'Sh'
+'ortCut'#3'S@'#0#0#7'TAction'#11'actConfHigh'#8'Category'#6#4'File'#7'Captio'
+'n'#6#11'actConfHigh'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9
+'OnExecute'#7#18'actConfHighExecute'#0#0#7'TAction'#10'actEditCut'#8'Categor'
+'y'#6#4'Edit'#7'Caption'#6#3'Cut'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'h'
+'tKeyword'#9'OnExecute'#7#17'actEditCutExecute'#8'ShortCut'#3'X@'#0#0#7'TAct'
+'ion'#11'actEditCopy'#8'Category'#6#4'Edit'#7'Caption'#6#4'Copy'#18'DisableI'
+'fNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditCopyExecu'
+'te'#8'ShortCut'#3'C@'#0#0#7'TAction'#12'actEditPaste'#8'Category'#6#4'Edit'
+#7'Caption'#6#5'Paste'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9
+'OnExecute'#7#19'actEditPasteExecute'#8'ShortCut'#3'V@'#0#0#7'TAction'#11'ac'
+'tEditUndo'#8'Category'#6#4'Edit'#7'Caption'#6#4'Undo'#18'DisableIfNoHandler'
+#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditUndoExecute'#8'ShortC'
+'ut'#3'Z@'#0#0#7'TAction'#11'actEditRedo'#8'Category'#6#4'Edit'#7'Caption'#6
+#11'actEditRedo'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#0#0#7'T'
+'Action'#16'actEditSelectAll'#8'Category'#6#4'Edit'#7'Caption'#6#10'Select&A'
+'ll'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#23'a'
+'ctEditSelectAllExecute'#8'ShortCut'#3'A@'#0#0#0#0
]);

64
fViewer.lrs
View file

@ -1,40 +1,36 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmViewer','FORMDATA',[
'TPF0'#10'TfrmViewer'#9'frmViewer'#13'ActiveControl'#7#13'ScrollBarVert'#7'Ca'
+'ption'#6#9'frmViewer'#12'ClientHeight'#3#242#1#11'ClientWidth'#3#24#3#10'Ke'
+'yPreview'#9#4'Menu'#7#8'MainMenu'#7'OnClose'#7#14'frmViewerClose'#8'OnCreat'
+'e'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#16'frmVie'
+'werKeyDown'#10'OnKeyPress'#7#12'FormKeyPress'#7'OnKeyUp'#7#14'frmViewerKeyU'
+'p'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2
+#16#18'HorzScrollBar.Page'#3#23#3#18'VertScrollBar.Page'#3#241#1#19'VertScro'
+'llBar.Range'#2#19#4'Left'#2'm'#6'Height'#3#6#2#3'Top'#3#207#0#5'Width'#3#24
+#3#0#10'TStatusBar'#6'Status'#6'Panels'#14#1#5'Width'#3#200#0#0#1#5'Width'#2
+'F'#0#1#5'Width'#3#150#0#0#1#5'Width'#2'2'#0#0#11'SimplePanel'#8#6'Height'#2
+#23#3'Top'#3#219#1#5'Width'#3#24#3#0#0#9'TNotebook'#7'nbPages'#5'Align'#7#8
+'alClient'#9'PageIndex'#2#0#8'ShowTabs'#8#6'Height'#3#219#1#5'Width'#3#24#3#0
+#5'TPage'#6'pgText'#7'Caption'#6#6'pgText'#11'ClientWidth'#3#16#3#12'ClientH'
+'eight'#3#211#1#6'Height'#3#211#1#5'Width'#3#16#3#0#10'TScrollBar'#13'Scroll'
+'BarVert'#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7
+#10'sbVertical'#3'Max'#3#232#3#8'PageSize'#2#1#11'ParentCtl3D'#8#8'Position'
+#2'2'#8'TabOrder'#2#0#8'OnScroll'#7#19'ScrollBarVertScroll'#4'Left'#3#1#3#6
+'Height'#3#211#1#5'Width'#2#15#0#0#14'TViewerControl'#13'ViewerControl'#11'F'
+'ont.Height'#2#242#9'Font.Name'#6#5'fixed'#10'Font.Pitch'#7#7'fpFixed'#5'Ali'
+'gn'#7#8'alClient'#16'OnMouseWheelDown'#7#27'ViewerControlMouseWheelDown'#14
+'OnMouseWheelUp'#7#25'ViewerControlMouseWheelUp'#6'Cursor'#7#7'crIBeam'#6'He'
+'ight'#3#211#1#5'Width'#3#1#3#0#0#0#5'TPage'#7'pgImage'#7'Caption'#6#7'pgIma'
+'ge'#11'ClientWidth'#3#16#3#12'ClientHeight'#3#211#1#6'Height'#3#211#1#5'Wid'
+'th'#3#16#3#0#10'TScrollBox'#9'ScrollBox'#5'Align'#7#8'alClient'#11'ParentCt'
+'l3D'#8#8'TabOrder'#2#0#7'TabStop'#9#18'HorzScrollBar.Page'#3#19#3#18'VertSc'
+'rollBar.Page'#3#211#1#6'Height'#3#212#1#5'Width'#3#20#3#0#6'TImage'#5'Image'
+#5'Align'#7#8'alClient'#11'Transparent'#9#6'Height'#3#212#1#5'Width'#3#20#3#0
+#0#0#0#0#9'TMainMenu'#8'MainMenu'#4'left'#2'X'#3'top'#2#8#0#9'TMenuItem'#6'm'
+'iFile'#7'Caption'#6#5'&File'#0#9'TMenuItem'#6'miPrev'#7'Caption'#6#9'&Previ'
+'ous'#8'ShortCut'#2'P'#7'OnClick'#7#11'miPrevClick'#0#0#9'TMenuItem'#6'miNex'
+'t'#7'Caption'#6#5'&Next'#8'ShortCut'#2'N'#7'OnClick'#7#11'miNextClick'#0#0#9
+'TMenuItem'#11'miSeparator'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'miSavePos'#7
+'Caption'#6#14'&Save Position'#7'OnClick'#7#14'miSavePosClick'#0#0#9'TMenuIt'
+'em'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miExit'#7'Caption'#6#5'E&xit'
'TPF0'#241#10'TfrmViewer'#9'frmViewer'#4'Left'#3']'#1#6'Height'#3#17#1#3'Top'
+#3#31#1#5'Width'#3'@'#1#18'HorzScrollBar.Page'#3'?'#1#18'VertScrollBar.Page'
+#3#252#0#19'VertScrollBar.Range'#2#19#13'ActiveControl'#7#13'ScrollBarVert'#7
+'Caption'#6#9'frmViewer'#10'KeyPreview'#9#4'Menu'#7#8'MainMenu'#7'OnClose'#7
+#14'frmViewerClose'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#16'frmView'
+'erKeyDown'#10'OnKeyPress'#7#12'FormKeyPress'#7'OnKeyUp'#7#14'frmViewerKeyUp'
+#8'Position'#7#9'poDefault'#0#10'TStatusBar'#6'Status'#6'Height'#2#23#3'Top'
+#3#230#0#5'Width'#3'@'#1#6'Panels'#14#1#5'Width'#3#200#0#0#1#5'Width'#2'F'#0
+#1#5'Width'#3#150#0#0#1#5'Width'#2'2'#0#0#11'SimplePanel'#8#0#0#9'TNotebook'
+#7'nbPages'#6'Height'#3#230#0#5'Width'#3'@'#1#5'Align'#7#8'alClient'#9'PageI'
+'ndex'#2#0#8'ShowTabs'#8#0#5'TPage'#6'pgText'#7'Caption'#6#6'pgText'#0#10'TS'
+'crollBar'#13'ScrollBarVert'#4'Left'#3')'#1#6'Height'#3#222#0#5'Width'#2#15#5
+'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7#10'sbVert'
+'ical'#3'Max'#3#232#3#8'PageSize'#2#1#11'ParentCtl3D'#8#8'Position'#2'2'#8'T'
+'abOrder'#2#0#8'OnScroll'#7#19'ScrollBarVertScroll'#0#0#14'TViewerControl'#13
+'ViewerControl'#6'Cursor'#7#7'crIBeam'#6'Height'#3#222#0#5'Width'#3')'#1#11
+'Font.Height'#2#242#9'Font.Name'#6#5'fixed'#10'Font.Pitch'#7#7'fpFixed'#5'Al'
+'ign'#7#8'alClient'#16'OnMouseWheelDown'#7#27'ViewerControlMouseWheelDown'#14
+'OnMouseWheelUp'#7#25'ViewerControlMouseWheelUp'#0#0#0#5'TPage'#7'pgImage'#7
+'Caption'#6#7'pgImage'#0#10'TScrollBox'#9'ScrollBox'#6'Height'#3#212#1#5'Wid'
+'th'#3#20#3#18'HorzScrollBar.Page'#3#19#3#18'VertScrollBar.Page'#3#211#1#5'A'
+'lign'#7#8'alClient'#11'ParentCtl3D'#8#8'TabOrder'#2#0#7'TabStop'#9#0#6'TIma'
+'ge'#5'Image'#6'Height'#3#212#1#5'Width'#3#20#3#5'Align'#7#8'alClient'#0#0#0
+#0#0#9'TMainMenu'#8'MainMenu'#4'left'#2'X'#3'top'#2#8#0#9'TMenuItem'#6'miFil'
+'e'#7'Caption'#6#5'&File'#0#9'TMenuItem'#6'miPrev'#7'Caption'#6#9'&Previous'
+#8'ShortCut'#2'P'#7'OnClick'#7#11'miPrevClick'#0#0#9'TMenuItem'#6'miNext'#7
+'Caption'#6#5'&Next'#8'ShortCut'#2'N'#7'OnClick'#7#11'miNextClick'#0#0#9'TMe'
+'nuItem'#11'miSeparator'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'miSavePos'#7'C'
+'aption'#6#14'&Save Position'#7'OnClick'#7#14'miSavePosClick'#0#0#9'TMenuIte'
+'m'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miExit'#7'Caption'#6#5'E&xit'
+#7'OnClick'#7#11'miExitClick'#0#0#0#9'TMenuItem'#6'miEdit'#7'Caption'#6#5'&E'
+'dit'#0#9'TMenuItem'#17'miCopyToClipboard'#7'Caption'#6#17'Copy To Clipboard'
+#7'OnClick'#7#22'miCopyToClipboardClick'#0#0#9'TMenuItem'#11'miSelectAll'#7

104
feditor.lfm
View file

@ -1,25 +1,23 @@
object frmEditor: TfrmEditor
ActiveControl = Editor
Caption = 'frmEditor'
ClientHeight = 468
ClientWidth = 733
KeyPreview = True
Menu = MainMenu1
OnClose = frmEditorClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
Position = poScreenCenter
TextHeight = 16
HorzScrollBar.Page = 732
VertScrollBar.Page = 467
VertScrollBar.Range = 19
inherited frmEditor: TfrmEditor
Left = 436
Height = 488
Top = 292
Width = 733
HorzScrollBar.Page = 732
VertScrollBar.Page = 467
VertScrollBar.Range = 19
ActiveControl = Editor
Caption = 'frmEditor'
KeyPreview = True
Menu = MainMenu1
OnClose = frmEditorClose
OnCloseQuery = FormCloseQuery
OnDestroy = FormDestroy
Position = poScreenCenter
object StatusBar: TStatusBar
Height = 23
Top = 445
Width = 733
Panels = <
item
Width = 50
@ -34,28 +32,26 @@ object frmEditor: TfrmEditor
Width = 50
end>
SimplePanel = False
Height = 23
Top = 445
Width = 733
end
object Editor: TSynEdit
Height = 445
Width = 733
Align = alClient
Anchors = [akTop]
Font.Color = clBlack
Font.Height = 13
Font.Name = 'adobe-courier'
Font.Pitch = fpFixed
Height = 445
Name = 'Editor'
ParentColor = False
ParentCtl3D = False
TabOrder = 0
Width = 733
OnKeyDown = EditorKeyDown
OnKeyPress = EditorKeyPress
OnKeyUp = EditorKeyUp
BookMarkOptions.Xoffset = 34
BookMarkOptions.OnChange = nil
Gutter.ShowLineNumbers = True
Gutter.OnChange = nil
Gutter.CodeFoldingWidth = 14
Keystrokes = <
item
@ -378,12 +374,10 @@ object frmEditor: TfrmEditor
Command = 250
ShortCut = 24642
end>
SelectedColor.OnChange = nil
OnChange = EditorChange
OnReplaceText = EditorReplaceText
OnStatusChange = EditorStatusChange
Cursor = crIBeam
Height = 445
Width = 733
end
object MainMenu1: TMainMenu
left = 48
@ -469,122 +463,140 @@ object frmEditor: TfrmEditor
left = 128
top = 232
object actAbout: TAction
Category = 'Help'
Caption = 'About'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actAboutExecute
Category = 'Help'
end
object actFileOpen: TAction
Category = 'File'
Caption = '&Open'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actFileOpenExecute
ShortCut = 16463
Category = 'File'
end
object actFileClose: TAction
Caption = '&Close'
HelpType = htKeyword
Category = 'File'
Caption = '&Close'
DisableIfNoHandler = True
HelpType = htKeyword
end
object actFileSave: TAction
Category = 'File'
Caption = '&Save'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actFileSaveExecute
ShortCut = 113
Category = 'File'
end
object actFileSaveAs: TAction
Category = 'File'
Caption = 'Save &As..'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actFileSaveAsExecute
Category = 'File'
end
object actFileNew: TAction
Category = 'File'
Caption = '&New'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actFileNewExecute
ShortCut = 16462
Category = 'File'
end
object actFileExit: TAction
Category = 'File'
Caption = 'E&xit'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actFileExitExecute
ShortCut = 16472
Category = 'File'
end
object actSaveAll: TAction
Category = 'File'
Caption = 'Sa&ve All'
DisableIfNoHandler = True
HelpType = htKeyword
ShortCut = 24659
Category = 'File'
end
object actEditFind: TAction
Category = 'Edit'
Caption = '&Find'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditFindExecute
ShortCut = 16454
Category = 'Edit'
end
object actEditRplc: TAction
Category = 'Edit'
Caption = '&Replace'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditRplcExecute
ShortCut = 16466
Category = 'Edit'
end
object actSave2: TAction
Category = 'File'
Caption = 'actSave2'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actSave2Execute
ShortCut = 16467
Category = 'File'
end
object actConfHigh: TAction
Category = 'File'
Caption = 'actConfHigh'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actConfHighExecute
Category = 'File'
end
object actEditCut: TAction
Category = 'Edit'
Caption = 'Cut'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditCutExecute
ShortCut = 16472
Category = 'Edit'
end
object actEditCopy: TAction
Category = 'Edit'
Caption = 'Copy'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditCopyExecute
ShortCut = 16451
Category = 'Edit'
end
object actEditPaste: TAction
Category = 'Edit'
Caption = 'Paste'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditPasteExecute
ShortCut = 16470
Category = 'Edit'
end
object actEditUndo: TAction
Category = 'Edit'
Caption = 'Undo'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditUndoExecute
ShortCut = 16474
Category = 'Edit'
end
object actEditRedo: TAction
Caption = 'actEditRedo'
HelpType = htKeyword
Category = 'Edit'
Caption = 'actEditRedo'
DisableIfNoHandler = True
HelpType = htKeyword
end
object actEditSelectAll: TAction
Category = 'Edit'
Caption = 'Select&All'
DisableIfNoHandler = True
HelpType = htKeyword
OnExecute = actEditSelectAllExecute
ShortCut = 16449
Category = 'Edit'
end
end
end

8
feditor.pas
View file

@ -182,8 +182,8 @@ begin
begin
Left:=gEditorPos.Left;
Top:=gEditorPos.Top;
Width:=gEditorPos.Right;
Height:=gEditorPos.Bottom;
Width:=gEditorPos.Width;
Height:=gEditorPos.Height;
try
LoadAttrFromFile(gpIniDir+csDefaultName);
if sFileName='' then
@ -638,8 +638,8 @@ begin
gEditorPos.Left:= Left;
gEditorPos.Top:= Top;
gEditorPos.Right:= Width;
gEditorPos.Bottom:= Height;
gEditorPos.Width:= Width;
gEditorPos.Height:= Height;
end;

64
fviewer.lfm
View file

@ -1,27 +1,25 @@
object frmViewer: TfrmViewer
inherited frmViewer: TfrmViewer
Left = 349
Height = 273
Top = 287
Width = 320
HorzScrollBar.Page = 319
VertScrollBar.Page = 252
VertScrollBar.Range = 19
ActiveControl = ScrollBarVert
Caption = 'frmViewer'
ClientHeight = 498
ClientWidth = 792
KeyPreview = True
Menu = MainMenu
OnClose = frmViewerClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = frmViewerKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = frmViewerKeyUp
PixelsPerInch = 96
Position = poScreenCenter
TextHeight = 16
HorzScrollBar.Page = 791
VertScrollBar.Page = 497
VertScrollBar.Range = 19
Left = 109
Height = 518
Top = 207
Width = 792
Position = poDefault
object Status: TStatusBar
Height = 23
Top = 230
Width = 320
Panels = <
item
Width = 200
@ -36,23 +34,19 @@ object frmViewer: TfrmViewer
Width = 50
end>
SimplePanel = False
Height = 23
Top = 475
Width = 792
end
object nbPages: TNotebook
Height = 230
Width = 320
Align = alClient
PageIndex = 0
ShowTabs = False
Height = 475
Width = 792
object pgText: TPage
Caption = 'pgText'
ClientWidth = 784
ClientHeight = 467
Height = 467
Width = 784
object ScrollBarVert: TScrollBar
Left = 297
Height = 222
Width = 15
Align = alRight
Anchors = [akTop, akRight]
Kind = sbVertical
@ -62,42 +56,34 @@ object frmViewer: TfrmViewer
Position = 50
TabOrder = 0
OnScroll = ScrollBarVertScroll
Left = 769
Height = 467
Width = 15
end
object ViewerControl: TViewerControl
Cursor = crIBeam
Height = 222
Width = 297
Font.Height = -14
Font.Name = 'fixed'
Font.Pitch = fpFixed
Align = alClient
OnMouseWheelDown = ViewerControlMouseWheelDown
OnMouseWheelUp = ViewerControlMouseWheelUp
Cursor = crIBeam
Height = 467
Width = 769
end
end
object pgImage: TPage
Caption = 'pgImage'
ClientWidth = 784
ClientHeight = 467
Height = 467
Width = 784
object ScrollBox: TScrollBox
Height = 468
Width = 788
HorzScrollBar.Page = 787
VertScrollBar.Page = 467
Align = alClient
ParentCtl3D = False
TabOrder = 0
TabStop = True
HorzScrollBar.Page = 787
VertScrollBar.Page = 467
Height = 468
Width = 788
object Image: TImage
Align = alClient
Transparent = True
Height = 468
Width = 788
Align = alClient
end
end
end

19
fviewer.pas
View file

@ -128,8 +128,9 @@ begin
// writeln('ShowViewer - Using Internal - created');
Left:=gViewerPos.Left;
Top:=gViewerPos.Top;
Width:=gViewerPos.Right;
Height:=gViewerPos.Bottom;
Width:=gViewerPos.Width;
Height:=gViewerPos.Height;
try
sList:=TStringList.Create;
// writeln('ShowViewer - Using Internal - before assign');
@ -253,7 +254,15 @@ end;
procedure TfrmViewer.frmViewerClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
// TODO: may be better automtic save
// (see also TfrmViewer.miSavePosClick)
CloseAction:=caFree;
gViewerPos.Left := Left;
gViewerPos.Top := Top;
gViewerPos.Width := Width;
gViewerPos.Height := Height;
write('Save to gViewerPos = ');
dbgShowWindowPos(gViewerPos);
end;
procedure TfrmViewer.frmViewerKeyDown(Sender: TObject; var Key: Word;
@ -318,10 +327,12 @@ end;
procedure TfrmViewer.miSavePosClick(Sender: TObject);
begin
// TODO: It really need? may be better automtic save
// (see also TfrmViewer.frmViewerClose)
gViewerPos.Left:=Left;
gViewerPos.Top:=Top;
gViewerPos.Bottom:=Height;
gViewerPos.Right:=Width;
gViewerPos.Width:=Width;
gViewerPos.Height:=Height;
msgOK(lngGetString(clngPositionSaved));
end;

12
uOSUtils.pas
View file

@ -240,11 +240,13 @@ end;
{$IFDEF WIN32}
(* Drive ready *)
const drive_root: AnsiString = ':\';
function DriveReady(const Drv: Char): Boolean;
var
NotUsed: DWORD;
begin
Result := GetVolumeInformation(PChar(Drv + ':\'), nil, 0, nil,
Result := GetVolumeInformation(PChar(Drv + drive_root), nil, 0, nil,
NotUsed, NotUsed, nil, 0);
end;
@ -257,7 +259,7 @@ function GetLabelDisk(const Drv: Char; const VolReal: Boolean): string;
SFI: TSHFileInfo;
begin
FillChar(SFI, SizeOf(SFI), 0);
SHGetFileInfo(PChar(Drv + ':\'), 0, SFI, SizeOf(SFI), SHGFI_DISPLAYNAME);
SHGetFileInfo(PChar(Drv + drive_root), 0, SFI, SizeOf(SFI), SHGFI_DISPLAYNAME);
Result := SFI.szDisplayName;
@ -272,12 +274,12 @@ var
begin
Result := '';
WinVer := LOBYTE(LOWORD(GetVersion));
DriveType := GetDriveType(PChar(Drv + ':\'));
DriveType := GetDriveType(PChar(Drv + drive_root));
if (WinVer <= 4) and (DriveType <> DRIVE_REMOVABLE) or VolReal then
begin // Win9x, Me, NT <= 4.0
Buf[0] := #0;
GetVolumeInformation(PChar(Drv + ':\'), Buf, DWORD(SizeOf(Buf)), nil,
GetVolumeInformation(PChar(Drv + drive_root), Buf, DWORD(SizeOf(Buf)), nil,
NotUsed, NotUsed, nil, 0);
Result := Buf;
@ -341,7 +343,7 @@ begin
Drv := ExtractFileDrive(Path)[1];
{ Close CD/DVD }
if (GetDriveType(PChar(Drv + ':\')) = DRIVE_CDROM) and
if (GetDriveType(PChar(Drv + drive_root)) = DRIVE_CDROM) and
(not DriveReady(Drv)) then
begin
DriveLabel:= GetLabelDisk(Drv, False);

67
uglobs.pas
View file

@ -17,6 +17,14 @@ unit uGlobs;
interface
uses
Classes, uExts, uColorExt, Graphics, IniFiles;
type
TWindowPos = record
Left: Integer;
Top: Integer;
Width: Integer;
Height: Integer;
end;
const
// TODO: It's really need?
@ -59,13 +67,16 @@ var
gViewerFontName:String;
gViewerSize:Integer;
gViewerPos:TRect;
gEditorPos:TRect;
gViewerPos:TWindowPos;
gEditorPos:TWindowPos;
function LoadGlobs : Boolean;
procedure SaveGlobs;
function LoadStringsFromFile(var list:TStringList; const sFileName:String):boolean;
// for debugging only, can be removed
procedure dbgShowWindowPos(const pos: TWindowPos);
const
cMaxStringItems=50;
@ -76,28 +87,36 @@ implementation
uses
SysUtils, uGlobsPaths, uLng, uShowMsg;
procedure LoadRect(Var ARect:TRect; sPrefix:String);
// for debugging only, can be removed
procedure dbgShowWindowPos(const pos: TWindowPos);
begin
// writeln('Load Rect',sPrefix);
ARect.Left:=gIni.ReadInteger('Configuration', sPrefix+'left',50);
// writeln(ARect.Left);
ARect.Top:=gIni.ReadInteger('Configuration', sPrefix+'top',50);
// writeln(ARect.Top);
// warning Bottom = height rigth = width, TRect is used only for simplification
ARect.Bottom:=gIni.ReadInteger('Configuration', sPrefix+'height',300);
// writeln(ARect.Bottom);
ARect.Right:=gIni.ReadInteger('Configuration', sPrefix+'width',400);
// writeln(ARect.Right);
writeln('TWindowPos');
writeln('Left: ', pos.Left);
writeln('Top: ', pos.Top);
writeln('Width: ', pos.Width);
writeln('Height: ', pos.Height);
writeln('END');
end;
procedure SaveRect(ARect:TRect; sPrefix:String);
procedure LoadWindowPos(var pos:TWindowPos; sPrefix:String);
begin
// TODO: It is really need to add cLeftBorder/cTopBorder ? for what?
gIni.WriteInteger('Configuration', sPrefix+'left', ARect.Left + cLeftBorder);
gIni.WriteInteger('Configuration', sPrefix+'top', ARect.Top + cTopBorder);
// warning Bottom = height rigth = width, TRect is used only for simplification
gIni.WriteInteger('Configuration', sPrefix+'height', ARect.Bottom);
gIni.WriteInteger('Configuration', sPrefix+'width', ARect.Right);
writeln('LoadWindowPos(',sPrefix,') enter');
pos.Left:=gIni.ReadInteger('Configuration', sPrefix+'left',50);
pos.Top:=gIni.ReadInteger('Configuration', sPrefix+'top',50);
pos.Width:= gIni.ReadInteger('Configuration', sPrefix+'width',300);
pos.Height:= gIni.ReadInteger('Configuration', sPrefix+'height',400);
dbgShowWindowPos(pos);
writeln('LoadWindowPos(',sPrefix,') leave');
end;
procedure SaveWindowPos(pos: TWindowPos; sPrefix:String);
begin
gIni.WriteInteger('Configuration', sPrefix+'left', pos.Left);
gIni.WriteInteger('Configuration', sPrefix+'top', pos.Top);
gIni.WriteInteger('Configuration', sPrefix+'width', pos.Width);
gIni.WriteInteger('Configuration', sPrefix+'height', pos.Height);
end;
procedure InitGlobs;
@ -175,9 +194,9 @@ begin
gColumnSize[4] := gIni.ReadInteger('Configuration', 'Col4', 59);
writeln('Loading viewer position...');
LoadRect(gViewerPos, 'Viewer.');
LoadWindowPos(gViewerPos, 'Viewer.');
writeln('Loading editor position...');
LoadRect(gEditorPos, 'Editor.');
LoadWindowPos(gEditorPos, 'Editor.');
if FileExists(gpLngDir + gLng) then
begin
@ -246,8 +265,8 @@ begin
for x:=0 to 4 do
gIni.WriteInteger('Configuration', 'Col'+IntToStr(x), gColumnSize[x]);
SaveRect(gViewerPos, 'Viewer.');
SaveRect(gEditorPos, 'Editor.');
SaveWindowPos(gViewerPos, 'Viewer.');
SaveWindowPos(gEditorPos, 'Editor.');
end;
initialization