paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 18:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

updated codepageconverter from boris arko

Browse Source 
git-svn-id: trunk@7243 -
This commit is contained in:
mattias 2005-06-17 14:51:19 +00:00
parent 77a19d91a2
commit 07fe86ea7a
13 changed files with 386 additions and 792 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitattributes vendored
View File

@ -620,17 +620,13 @@ examples/codepageconverter/filefind/tfilesearch.xpm -text svneol=native#image/x-
examples/codepageconverter/languages/lazconverter.ru_RU.UTF-8.po svneol=native#text/plain
examples/codepageconverter/lazconverter.lpi svneol=native#text/plain
examples/codepageconverter/lazconverter.lpr svneol=native#text/pascal
examples/codepageconverter/lazconverter.po svneol=native#text/plain
examples/codepageconverter/mainunit.lfm svneol=native#text/plain
examples/codepageconverter/mainunit.lrs svneol=native#text/pascal
examples/codepageconverter/mainunit.lrt svneol=native#text/plain
examples/codepageconverter/mainunit.pas svneol=native#text/pascal
examples/codepageconverter/mainunit.po svneol=native#text/plain
examples/codepageconverter/mainunit.ru_RU.UTF-8.po svneol=native#text/plain
examples/codepageconverter/viewunit.lfm svneol=native#text/plain
examples/codepageconverter/viewunit.lrs svneol=native#text/pascal
examples/codepageconverter/viewunit.lrt svneol=native#text/plain
examples/codepageconverter/viewunit.pas svneol=native#text/pascal
examples/codepageconverter/viewunit.po svneol=native#text/plain
examples/combobox.pp svneol=native#text/pascal
examples/comdialogs.pp svneol=native#text/pascal
examples/dlgform.pp svneol=native#text/pascal

39
examples/codepageconverter/lazconverter.lpi
View File

@ -14,43 +14,31 @@
<TargetFileExt Value=""/>
<Title Value="lazconverter"/>
</General>
<Units Count="3">
<Units Count="2">
<Unit0>
<CursorPos X="1" Y="1"/>
<Filename Value="lazconverter.lpr"/>
<IsPartOfProject Value="True"/>
<TopLine Value="1"/>
<UnitName Value="lazconverter"/>
<UsageCount Value="30"/>
<UsageCount Value="32"/>
</Unit0>
<Unit1>
<CursorPos X="17" Y="24"/>
<CursorPos X="23" Y="61"/>
<EditorIndex Value="0"/>
<Filename Value="mainunit.pas"/>
<ComponentName Value="LazConverterForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="mainunit.lrs"/>
<TopLine Value="1"/>
<TopLine Value="47"/>
<UnitName Value="mainunit"/>
<UsageCount Value="30"/>
<UsageCount Value="32"/>
</Unit1>
<Unit2>
<CursorPos X="36" Y="9"/>
<EditorIndex Value="1"/>
<Filename Value="viewunit.pas"/>
<ComponentName Value="ViewForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="viewunit.lrs"/>
<TopLine Value="1"/>
<UnitName Value="viewunit"/>
<UsageCount Value="23"/>
</Unit2>
</Units>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="/home/barko/CD/out"/>
<DestinationDirectory Value="/home/barko/tempo/out/"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
@ -60,7 +48,7 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="SynEdit"/>
<MinVersion Major="1" Valid="True"/>
@ -68,25 +56,21 @@
<Item2>
<PackageName Value="LCL"/>
</Item2>
<Item3>
<PackageName Value="filefindlaz"/>
<MinVersion Valid="True"/>
</Item3>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="4"/>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<Parsing>
<SymantecChecking>
<SyntaxOptions>
<DelphiCompat Value="True"/>
<UseAnsiStrings Value="True"/>
</SymantecChecking>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<TargetProcessor Value="3"/>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>
@ -99,7 +83,6 @@
</Options>
</Linking>
<Other>
<CustomOptions Value="-d_off_TRANSLATESTRING"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

3
examples/codepageconverter/lazconverter.lpr
View File

@ -5,12 +5,11 @@ program lazconverter;
uses
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, mainunit, viewunit;
{ add your units here }, mainunit;
begin
Application.Initialize;
Application.CreateForm(TLazConverterForm, LazConverterForm);
Application.CreateForm(TViewForm, ViewForm);
Application.Run;
end.

60
examples/codepageconverter/lazconverter.po Normal file
View File

@ -0,0 +1,60 @@
#
msgid "Codepage LazConverter for PAS, LFM, LRS & INC files v0.0.4"
msgstr ""
#
msgid "Path to your project:"
msgstr ""
#
msgid "Path"
msgstr ""
#
msgid "Convert From:"
msgstr ""
#
msgid "Convert To:"
msgstr ""
#
msgid "Include subdirectories"
msgstr ""
#
msgid "Search"
msgstr ""
#
msgid "Convert"
msgstr ""
#
msgid "Directory:"
msgstr ""
#
msgid "Ready..."
msgstr ""
#
msgid "Remove from conversion"
msgstr ""
#
msgid "View"
msgstr ""
#
msgid "View File"
msgstr ""
#
msgid "-"
msgstr ""
#
msgid "Remove From Conversion"
msgstr ""

181
examples/codepageconverter/mainunit.lfm
View File

@ -1,21 +1,20 @@
object LazConverterForm: TLazConverterForm
Caption = 'Codepage LazConverter for PAS, LFM, LRS & INC files v0.0.4'
Caption = 'Codepage LazConverter for PAS, LFM, LRS & INC files v0.0.5'
ClientHeight = 463
ClientWidth = 612
Constraints.MinHeight = 463
Constraints.MinWidth = 578
OnResize = LazConverterFormResize
OnShow = Form1Show
PixelsPerInch = 94
PixelsPerInch = 95
Position = poScreenCenter
HorzScrollBar.Page = 613
VertScrollBar.Page = 464
Left = 303
HorzScrollBar.Page = 611
VertScrollBar.Page = 462
Left = 322
Height = 463
Top = 125
Top = 225
Width = 612
object Panel1: TPanel
Align = alTop
BorderSpacing.OnChange = nil
ClientHeight = 192
ClientWidth = 612
FullRepaint = False
@ -23,15 +22,46 @@ object LazConverterForm: TLazConverterForm
Height = 192
Width = 612
object Label1: TLabel
BorderSpacing.OnChange = nil
Caption = 'Path to your project:'
Color = clNone
Left = 8
Height = 19
Top = 8
Top = 16
Width = 168
end
object Label2: TLabel
BorderSpacing.OnChange = nil
Caption = 'Convert From:'
Color = clNone
Left = 8
Height = 15
Top = 64
Width = 159
end
object Label3: TLabel
BorderSpacing.OnChange = nil
Caption = 'Convert To:'
Color = clNone
Left = 216
Height = 15
Top = 64
Width = 123
end
object Label6: TLabel
Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
Caption = 'Ready...'
Color = clNone
Left = 8
Height = 17
Top = 149
Width = 593
end
object Edit1: TEdit
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
BorderSpacing.OnChange = nil
TabOrder = 0
Left = 8
Height = 23
Top = 32
@ -39,68 +69,58 @@ object LazConverterForm: TLazConverterForm
end
object Button1: TButton
Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
Caption = 'Path'
OnClick = Button1Click
TabOrder = 2
TabOrder = 1
Left = 530
Height = 23
Top = 32
Width = 75
end
object Label2: TLabel
Caption = 'Convert From:'
Left = 8
Height = 15
Top = 56
Width = 159
end
object ComboBox1: TComboBox
BorderSpacing.OnChange = nil
MaxLength = 0
TabOrder = 4
TabOrder = 3
Left = 8
Height = 25
Top = 72
Top = 80
Width = 200
end
object Label3: TLabel
Caption = 'Convert To:'
Left = 216
Height = 15
Top = 56
Width = 123
end
object ComboBox2: TComboBox
BorderSpacing.OnChange = nil
MaxLength = 0
TabOrder = 6
Left = 216
Height = 25
Top = 72
Top = 80
Width = 200
end
object CheckBox1: TCheckBox
AllowGrayed = True
AutoSize = True
BorderSpacing.OnChange = nil
Caption = 'Include subdirectories'
OnClick = CheckBox1Click
TabOrder = 7
TabOrder = 2
Left = 424
Height = 23
Top = 72
Top = 80
Width = 176
end
object Button2: TButton
BorderSpacing.OnChange = nil
Caption = 'Search'
OnClick = Button2Click
TabOrder = 8
TabOrder = 4
Left = 8
Height = 25
Top = 112
Width = 75
end
object Button3: TButton
BorderSpacing.OnChange = nil
Caption = 'Convert'
OnClick = Button3Click
TabOrder = 9
TabOrder = 5
Left = 88
Height = 25
Top = 112
@ -108,103 +128,32 @@ object LazConverterForm: TLazConverterForm
end
object ProgressBar1: TProgressBar
Align = alBottom
BorderSpacing.OnChange = nil
Max = 100
TabOrder = 10
TabOrder = 7
TabStop = True
Left = 1
Height = 17
Top = 174
Width = 610
end
object Label5: TLabel
Caption = 'Directory:'
Left = 8
Height = 17
Top = 149
Width = 65
end
object Label6: TLabel
Anchors = [akTop, akLeft, akRight]
Caption = 'Ready...'
Left = 80
Height = 17
Top = 149
Width = 521
end
end
object ListView1: TListView
Align = alClient
Columns = <
item
Caption = 'FileName'
Width = 450
end
item
AutoSize = True
Caption = 'Type'
Width = 0
end>
PopupMenu = PopupMenu1
ViewStyle = vsReport
OnSelectItem = ListView1SelectItem
Height = 232
Top = 192
Width = 612
end
object Panel2: TPanel
object Memo1: TMemo
Align = alBottom
ClientHeight = 39
ClientWidth = 612
FullRepaint = False
TabOrder = 2
Height = 39
Top = 424
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
ReadOnly = True
TabOrder = 1
WordWrap = False
Height = 263
Top = 200
Width = 612
object Button4: TButton
Caption = 'Remove from conversion'
OnClick = Button4Click
TabOrder = 0
Left = 8
Height = 25
Top = 8
Width = 192
end
object Button5: TButton
Caption = 'View'
OnClick = Button5Click
TabOrder = 1
Left = 208
Height = 25
Top = 8
Width = 127
end
end
object SelectDirectoryDialog1: TSelectDirectoryDialog
Title = 'Select Directory'
FilterIndex = 0
Title = 'Select Directory'
left = 8
top = 480
end
object FileSearch1: TFileSearch
OnFileFind = FileSearch1FileFind
OnChangeFolder = FileSearch1ChangeFolder
OnFinish = FileSearch1Finish
left = 8
top = 448
end
object PopupMenu1: TPopupMenu
left = 224
top = 8
object MenuItem1: TMenuItem
Caption = 'View File'
OnClick = Button5Click
end
object MenuItem2: TMenuItem
Caption = '-'
end
object MenuItem3: TMenuItem
Caption = 'Remove From Conversion'
OnClick = Button4Click
end
end
end

90
examples/codepageconverter/mainunit.lrs
View File

@ -2,55 +2,45 @@
LazarusResources.Add('TLazConverterForm','FORMDATA',[
'TPF0'#17'TLazConverterForm'#16'LazConverterForm'#7'Caption'#6':Codepage LazC'
+'onverter for PAS, LFM, LRS & INC files v0.0.4'#12'ClientHeight'#3#207#1#11
+'onverter for PAS, LFM, LRS & INC files v0.0.5'#12'ClientHeight'#3#207#1#11
+'ClientWidth'#3'd'#2#21'Constraints.MinHeight'#3#207#1#20'Constraints.MinWid'
+'th'#3'B'#2#8'OnResize'#7#22'LazConverterFormResize'#6'OnShow'#7#9'Form1Show'
+#13'PixelsPerInch'#2'^'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Pa'
+'ge'#3'e'#2#18'VertScrollBar.Page'#3#208#1#4'Left'#3'/'#1#6'Height'#3#207#1#3
+'Top'#2'}'#5'Width'#3'd'#2#0#6'TPanel'#6'Panel1'#5'Align'#7#5'alTop'#12'Clie'
+'ntHeight'#3#192#0#11'ClientWidth'#3'd'#2#11'FullRepaint'#8#8'TabOrder'#2#0#6
+'Height'#3#192#0#5'Width'#3'd'#2#0#6'TLabel'#6'Label1'#7'Caption'#6#21'Path '
+'to your project:'#4'Left'#2#8#6'Height'#2#19#3'Top'#2#8#5'Width'#3#168#0#0#0
+#5'TEdit'#5'Edit1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'
+#2#1#4'Left'#2#8#6'Height'#2#23#3'Top'#2' '#5'Width'#3#1#2#0#0#7'TButton'#7
+'Button1'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#4'Path'#7'OnClick'
+#7#12'Button1Click'#8'TabOrder'#2#2#4'Left'#3#18#2#6'Height'#2#23#3'Top'#2' '
+#5'Width'#2'K'#0#0#6'TLabel'#6'Label2'#7'Caption'#6#13'Convert From:'#4'Left'
+#2#8#6'Height'#2#15#3'Top'#2'8'#5'Width'#3#159#0#0#0#9'TComboBox'#9'ComboBox'
+'1'#9'MaxLength'#2#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#2#25#3'Top'#2'H'#5
+'Width'#3#200#0#0#0#6'TLabel'#6'Label3'#7'Caption'#6#11'Convert To:'#4'Left'
+#3#216#0#6'Height'#2#15#3'Top'#2'8'#5'Width'#2'{'#0#0#9'TComboBox'#9'ComboBo'
+'x2'#9'MaxLength'#2#0#8'TabOrder'#2#6#4'Left'#3#216#0#6'Height'#2#25#3'Top'#2
+'H'#5'Width'#3#200#0#0#0#9'TCheckBox'#9'CheckBox1'#11'AllowGrayed'#9#8'AutoS'
+'ize'#9#7'Caption'#6#22'Include subdirectories'#7'OnClick'#7#14'CheckBox1Cli'
+'ck'#8'TabOrder'#2#7#4'Left'#3#168#1#6'Height'#2#23#3'Top'#2'H'#5'Width'#3
+#176#0#0#0#7'TButton'#7'Button2'#7'Caption'#6#6'Search'#7'OnClick'#7#12'Butt'
+'on2Click'#8'TabOrder'#2#8#4'Left'#2#8#6'Height'#2#25#3'Top'#2'p'#5'Width'#2
+'K'#0#0#7'TButton'#7'Button3'#7'Caption'#6#7'Convert'#7'OnClick'#7#12'Button'
+'3Click'#8'TabOrder'#2#9#4'Left'#2'X'#6'Height'#2#25#3'Top'#2'p'#5'Width'#2
+'{'#0#0#12'TProgressBar'#12'ProgressBar1'#5'Align'#7#8'alBottom'#3'Max'#2'd'
+#8'TabOrder'#2#10#7'TabStop'#9#4'Left'#2#1#6'Height'#2#17#3'Top'#3#174#0#5'W'
+'idth'#3'b'#2#0#0#6'TLabel'#6'Label5'#7'Caption'#6#10'Directory:'#4'Left'#2#8
+#6'Height'#2#17#3'Top'#3#149#0#5'Width'#2'A'#0#0#6'TLabel'#6'Label6'#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#8'Ready...'#4'Left'#2'P'
+#6'Height'#2#17#3'Top'#3#149#0#5'Width'#3#9#2#0#0#0#9'TListView'#9'ListView1'
+#5'Align'#7#8'alClient'#7'Columns'#14#1#7'Caption'#6#8'FileName'#5'Width'#3
+#194#1#0#1#8'AutoSize'#9#7'Caption'#6#4'Type'#5'Width'#2#0#0#0#9'PopupMenu'#7
+#10'PopupMenu1'#9'ViewStyle'#7#8'vsReport'#12'OnSelectItem'#7#19'ListView1Se'
+'lectItem'#6'Height'#3#232#0#3'Top'#3#192#0#5'Width'#3'd'#2#0#0#6'TPanel'#6
+'Panel2'#5'Align'#7#8'alBottom'#12'ClientHeight'#2''''#11'ClientWidth'#3'd'#2
+#11'FullRepaint'#8#8'TabOrder'#2#2#6'Height'#2''''#3'Top'#3#168#1#5'Width'#3
+'d'#2#0#7'TButton'#7'Button4'#7'Caption'#6#22'Remove from conversion'#7'OnCl'
+'ick'#7#12'Button4Click'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+#8#5'Width'#3#192#0#0#0#7'TButton'#7'Button5'#7'Caption'#6#4'View'#7'OnClick'
+#7#12'Button5Click'#8'TabOrder'#2#1#4'Left'#3#208#0#6'Height'#2#25#3'Top'#2#8
+#5'Width'#2''#0#0#0#22'TSelectDirectoryDialog'#22'SelectDirectoryDialog1'#5
+'Title'#6#16'Select Directory'#11'FilterIndex'#2#0#4'left'#2#8#3'top'#3#224#1
+#0#0#11'TFileSearch'#11'FileSearch1'#10'OnFileFind'#7#19'FileSearch1FileFind'
+#14'OnChangeFolder'#7#23'FileSearch1ChangeFolder'#8'OnFinish'#7#17'FileSearc'
+'h1Finish'#4'left'#2#8#3'top'#3#192#1#0#0#10'TPopupMenu'#10'PopupMenu1'#4'le'
+'ft'#3#224#0#3'top'#2#8#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#9'View File'
+#7'OnClick'#7#12'Button5Click'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'#6#1
+'-'#0#0#9'TMenuItem'#9'MenuItem3'#7'Caption'#6#22'Remove From Conversion'#7
+'OnClick'#7#12'Button4Click'#0#0#0#0
+'th'#3'B'#2#6'OnShow'#7#9'Form1Show'#13'PixelsPerInch'#2'_'#8'Position'#7#14
+'poScreenCenter'#18'HorzScrollBar.Page'#3'c'#2#18'VertScrollBar.Page'#3#206#1
+#4'Left'#3'B'#1#6'Height'#3#207#1#3'Top'#3#225#0#5'Width'#3'd'#2#0#6'TPanel'
+#6'Panel1'#22'BorderSpacing.OnChange'#13#12'ClientHeight'#3#192#0#11'ClientW'
+'idth'#3'd'#2#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height'#3#192#0#5'Width'#3
+'d'#2#0#6'TLabel'#6'Label1'#22'BorderSpacing.OnChange'#13#7'Caption'#6#21'Pa'
+'th to your project:'#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2#19#3'Top'
+#2#16#5'Width'#3#168#0#0#0#6'TLabel'#6'Label2'#22'BorderSpacing.OnChange'#13
+#7'Caption'#6#13'Convert From:'#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2
+#15#3'Top'#2'@'#5'Width'#3#159#0#0#0#6'TLabel'#6'Label3'#22'BorderSpacing.On'
+'Change'#13#7'Caption'#6#11'Convert To:'#5'Color'#7#6'clNone'#4'Left'#3#216#0
+#6'Height'#2#15#3'Top'#2'@'#5'Width'#2'{'#0#0#6'TLabel'#6'Label6'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'
+#6#8'Ready...'#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#149#0
+#5'Width'#3'Q'#2#0#0#5'TEdit'#5'Edit1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#0#4'Left'#2#8#6'Height'
+#2#23#3'Top'#2' '#5'Width'#3#1#2#0#0#7'TButton'#7'Button1'#7'Anchors'#11#5'a'
+'kTop'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#4'Path'#7'OnC'
+'lick'#7#12'Button1Click'#8'TabOrder'#2#1#4'Left'#3#18#2#6'Height'#2#23#3'To'
+'p'#2' '#5'Width'#2'K'#0#0#9'TComboBox'#9'ComboBox1'#22'BorderSpacing.OnChan'
+'ge'#13#9'MaxLength'#2#0#8'TabOrder'#2#3#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+'P'#5'Width'#3#200#0#0#0#9'TComboBox'#9'ComboBox2'#22'BorderSpacing.OnChange'
+#13#9'MaxLength'#2#0#8'TabOrder'#2#6#4'Left'#3#216#0#6'Height'#2#25#3'Top'#2
+'P'#5'Width'#3#200#0#0#0#9'TCheckBox'#9'CheckBox1'#11'AllowGrayed'#9#22'Bord'
+'erSpacing.OnChange'#13#7'Caption'#6#22'Include subdirectories'#8'TabOrder'#2
+#2#4'Left'#3#168#1#6'Height'#2#23#3'Top'#2'P'#5'Width'#3#176#0#0#0#7'TButton'
+#7'Button2'#22'BorderSpacing.OnChange'#13#7'Caption'#6#6'Search'#7'OnClick'#7
+#12'Button2Click'#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#2#25#3'Top'#2'p'#5'W'
+'idth'#2'K'#0#0#7'TButton'#7'Button3'#22'BorderSpacing.OnChange'#13#7'Captio'
+'n'#6#7'Convert'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#5#4'Left'#2'X'#6
+'Height'#2#25#3'Top'#2'p'#5'Width'#2'{'#0#0#12'TProgressBar'#12'ProgressBar1'
+#5'Align'#7#8'alBottom'#22'BorderSpacing.OnChange'#13#3'Max'#2'd'#8'TabOrder'
+#2#7#7'TabStop'#9#4'Left'#2#1#6'Height'#2#17#3'Top'#3#174#0#5'Width'#3'b'#2#0
+#0#0#5'TMemo'#5'Memo1'#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#8'ReadOnly'#9#8'T'
+'abOrder'#2#1#8'WordWrap'#8#6'Height'#3#7#1#3'Top'#3#200#0#5'Width'#3'd'#2#0
+#0#22'TSelectDirectoryDialog'#22'SelectDirectoryDialog1'#5'Title'#6#16'Selec'
+'t Directory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Directory'#4'left'#2#8
+#3'top'#3#224#1#0#0#0
]);

305
examples/codepageconverter/mainunit.pas
View File

@ -27,60 +27,52 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, Buttons, ComCtrls, FileFind, Menus
StdCtrls, Buttons, ComCtrls, Menus
{$IFDEF TRANSLATESTRING}, DefaultTranslator{$ENDIF};
type
{ TLazConverterForm }
TLazConverterForm = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
FileSearch1: TFileSearch;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
ListView1: TListView;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
Memo1: TMemo;
Panel1: TPanel;
Panel2: TPanel;
PopupMenu1: TPopupMenu;
ProgressBar1: TProgressBar;
SelectDirectoryDialog1: TSelectDirectoryDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure FileSearch1ChangeFolder(fullpath: string; info: TSearchRec);
procedure FileSearch1FileFind(fullpath: string; info: TSearchRec);
procedure FileSearch1Finish(Sender: TObject);
procedure Form1Show(Sender: TObject);
procedure LazConverterFormResize(Sender: TObject);
procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
private
{ private declarations }
public
{ public declarations }
end;
var
LazConverterForm: TLazConverterForm;
allfiles:tstringlist;
implementation uses viewunit;
implementation
function replace (source: string; src, rep: string):string;
begin
result:=StringReplace(source,src,rep,[rfReplaceAll]);
end;
function origpath:string;
var tmp:string;
begin
@ -91,14 +83,183 @@ begin
result:=tmp;
end;
function replace (source: string; src, rep: string):string;
Function LocWord(StartAT,Wordno:integer;Str:string):integer;
{local proc used by PosWord and Extract word}
var
W,L: integer;
Spacebefore: boolean;
begin
result:=StringReplace(source,src,rep,[rfReplaceAll]);
If (Str = '') or (wordno < 1) or (StartAT > length(Str)) then
begin
LocWord := 0;
exit;
end;
SpaceBefore := true;
W := 0;
L := length(Str);
StartAT := pred(StartAT);
While (W < Wordno) and (StartAT <= length(Str)) do
begin
StartAT := succ(StartAT);
If SpaceBefore and (Str[StartAT] <> ' ') then
begin
W := succ(W);
SpaceBefore := false;
end
else
If (SpaceBefore = false) and (Str[StartAT] = ' ') then
SpaceBefore := true;
end;
If W = Wordno then
LocWord := StartAT
else
LocWord := 0;
end;
Function ExtractWords(StartWord,NoWords:integer;Str:string):string;
var Start, finish : integer;
begin
If Str = '' then
begin
ExtractWords := '';
exit;
end;
Start := LocWord(1,StartWord,Str);
If Start <> 0 then
finish := LocWord(Start,succ(NoWords),Str)
else
begin
ExtractWords := '';
exit;
end;
If finish = 0 then {5.02A}
finish := succ(length(Str));
Repeat
finish := pred(finish);
Until Str[finish] <> ' ';
ExtractWords := copy(Str,Start,succ(finish-Start));
end; {Func ExtractWords}
Function WordCnt(Str:string):integer;
var
W,I: integer;
SpaceBefore: boolean;
begin
If Str = '' then
begin
WordCnt := 0;
exit;
end;
SpaceBefore := true;
W := 0;
For I := 1 to length(Str) do
begin
If SpaceBefore and (Str[I] <> ' ') then
begin
W := succ(W);
SpaceBefore := false;
end
else
If (SpaceBefore = false) and (Str[I] = ' ') then
SpaceBefore := true;
end;
WordCnt := W;
end;
function IsIn(Iskano:string; baza:string):boolean;
var
index,mindex,counter:integer;
tmp1:string;
tmp2:string;
begin
result:=false;
tmp1:=uppercase(iskano);
tmp2:=uppercase(baza);
counter:=0;
if pos('"',tmp1)<>0 then
begin
mindex:=1;
tmp1:=Replace(tmp1,'"','');
if pos(tmp1,tmp2)<>0 then
begin
counter:=1;
end;
end else
begin
mindex:=WordCnt(tmp1);
if mindex>0 then
begin
for index:=1 to mindex do
begin
if Pos(ExtractWords(index,1,tmp1),tmp2)<>0 then inc(counter);
end;
end;
end;
if counter=mindex then
begin
result:=true;
end;
end;
procedure GetAllFiles(mask: string; unignore:string; subdirs:boolean);
var
search: TSearchRec;
directory: string;
tmp:string;
const
{$ifdef unix}
msk='*';
delimeter='/';
{$else}
msk='*.*';
delimeter='\';
{$endif}
begin
directory := ExtractFilePath(mask);
// find all files
if FindFirst(mask, faAnyFile-faDirectory, search) = 0 then
begin
repeat
// add the files to the listbox
tmp:=trim(ExtractFileExt(search.Name));
if tmp<>'' then
begin
if pos('.',tmp)=1 then delete(tmp,1,1);
if IsIn(tmp,unignore) then
begin
allfiles.add(directory + search.Name);
end;
end;
until FindNext(search) <> 0;
end;
if subdirs then
begin
// Subdirectories/ Unterverzeichnisse
if FindFirst(directory + msk, faDirectory, search) = 0 then
begin
repeat
if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
GetAllFiles(directory + search.Name + delimeter + ExtractFileName(mask),unignore,subdirs);
until FindNext(search) <> 0;
FindClose(search);
end;
end;
end;
{ TLazConverterForm }
procedure TLazConverterForm.Button1Click(Sender: TObject);
begin
if SelectDirectoryDialog1.Execute then
@ -109,8 +270,15 @@ end;
procedure TLazConverterForm.Button2Click(Sender: TObject);
var tmp:string;
const
{$ifdef unix}
msk='*';
{$else}
msk='*.*';
{$endif}
begin
listview1.items.clear;
memo1.text:='';
tmp:=trim(Edit1.text);
if tmp='' then
begin
@ -119,9 +287,11 @@ begin
edit1.text:=IncludeTrailingPathDelimiter(tmp);
if DirectoryExists(tmp) then
begin
tmp:=tmp+'*.pas;*.lfm;*.lrs;*.inc';
FileSearch1.SearchFile:=tmp;
FileSearch1.Start;
AllFiles.Text:='';
GetAllFiles(tmp+msk,'pas lfm lrs inc',checkbox1.checked);
label6.caption:='Searching done... press CONVERT button! Files: '+inttostr(allfiles.count);
memo1.text:=allfiles.text;
caption:=allfiles[0];
end;
end;
@ -218,31 +388,31 @@ var tmp:tstringlist;
end;
begin
if FileSearch1.filesfound.Count-1=-1 then abort;
if allfiles.Count-1=-1 then abort;
if trim(combobox1.text)='' then abort;
if trim(combobox2.text)='' then abort;
tmp:=tstringlist.create;
try
ProgressBar1.Min:=0;
ProgressBar1.Max:=FileSearch1.filesfound.count;
ProgressBar1.Max:=allfiles.count;
ProgressBar1.StepBy(1);
for i:=0 to FileSearch1.filesfound.count-1 do
for i:=0 to allfiles.count-1 do
begin
ok:=true;
try
tmp.LoadFromFile(filesearch1.filesfound[i]);
tmp.LoadFromFile(allfiles[i]);
except
ok:=false;
end;
if ok then
begin
if pos('.LRS',uppercase(filesearch1.filesfound[i]))<>0 then
if pos('.LRS',uppercase(allfiles[i]))<>0 then
begin
if ConvertMeLRS(tmp) then
begin
ok:=true;
try
tmp.SaveToFile(filesearch1.filesfound[i]);
tmp.SaveToFile(allfiles[i]);
except ok:=false; end;
end;
end else
@ -251,7 +421,7 @@ begin
begin
ok:=true;
try
tmp.SaveToFile(filesearch1.filesfound[i]);
tmp.SaveToFile(allfiles[i]);
except ok:=false; end;
end;
end;
@ -265,50 +435,6 @@ begin
end;
end;
procedure TLazConverterForm.Button4Click(Sender: TObject);
begin
if listview1.selected<>NIL then
begin
filesearch1.FilesFound.Delete(filesearch1.filesfound.IndexOf(listview1.selected.caption));
listview1.selected.delete;
filesearch1finish(sender);
end;
end;
procedure TLazConverterForm.Button5Click(Sender: TObject);
begin
try
if listview1.selected<>nil then
begin
viewform.caption:='VIEW : '+listview1.selected.caption;
viewform.SynMemo1.Lines.LoadFromFile(listview1.selected.caption);
viewform.showmodal;
end;
except end;
end;
procedure TLazConverterForm.CheckBox1Click(Sender: TObject);
begin
FileSearch1.RecurseSubFolders:=CheckBox1.Checked;
end;
procedure TLazConverterForm.FileSearch1ChangeFolder(fullpath: string; info: TSearchRec);
begin
label6.caption:=fullpath;
end;
procedure TLazConverterForm.FileSearch1FileFind(fullpath: string; info: TSearchRec);
begin
listview1.items.add;
listview1.items[listview1.items.count-1].caption:=fullpath+info.Name;
listview1.items[listview1.items.count-1].subitems.add(UpperCase(ExtractFileExt(info.Name)));
end;
procedure TLazConverterForm.FileSearch1Finish(Sender: TObject);
begin
label6.caption:='Searching done... press CONVERT button! Files: '+inttostr(filesearch1.filesfound.count);
end;
procedure TLazConverterForm.Form1Show(Sender: TObject);
begin
if paramcount<>0 then edit1.text:=paramstr(1) else edit1.text:='';
@ -322,28 +448,13 @@ begin
ComboBox2.text:='';
CheckBox1.Checked:=True;
Edit1.SetFocus;
listview1.Columns[0].Width:=Width-70;
button4.enabled:=false;
button5.enabled:=false;
MenuItem1.Enabled:=false;
MenuItem3.Enabled:=false;
end;
procedure TLazConverterForm.LazConverterFormResize(Sender: TObject);
begin
listview1.Columns[0].Width:=Width-70;
end;
procedure TLazConverterForm.ListView1SelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
button4.enabled:=selected;
button5.enabled:=selected;
MenuItem1.Enabled:=selected;
MenuItem3.Enabled:=selected;
end;
initialization
{$I mainunit.lrs}
allfiles:=tstringlist.create;
finalization
allfiles.free;
end.

378
examples/codepageconverter/viewunit.lfm
View File

@ -1,378 +0,0 @@
object ViewForm: TViewForm
ActiveControl = SynMemo1
Caption = 'VIEW'
ClientHeight = 466
ClientWidth = 659
PixelsPerInch = 81
HorzScrollBar.Page = 660
VertScrollBar.Page = 467
Left = 287
Height = 466
Top = 183
Width = 659
object SynMemo1: TSynMemo
Align = alClient
Color = clBlack
Font.Height = -15
Font.Name = 'courier'
Height = 466
Name = 'SynMemo1'
PopupMenu = PopupMenu1
TabOrder = 0
Width = 659
Highlighter = SynPasSyn1
Keystrokes = <
item
Command = 3
ShortCut = 38
end
item
Command = 103
ShortCut = 8230
end
item
Command = 211
ShortCut = 16422
end
item
Command = 4
ShortCut = 40
end
item
Command = 104
ShortCut = 8232
end
item
Command = 212
ShortCut = 16424
end
item
Command = 1
ShortCut = 37
end
item
Command = 101
ShortCut = 8229
end
item
Command = 5
ShortCut = 16421
end
item
Command = 105
ShortCut = 24613
end
item
Command = 2
ShortCut = 39
end
item
Command = 102
ShortCut = 8231
end
item
Command = 6
ShortCut = 16423
end
item
Command = 106
ShortCut = 24615
end
item
Command = 10
ShortCut = 34
end
item
Command = 110
ShortCut = 8226
end
item
Command = 14
ShortCut = 16418
end
item
Command = 114
ShortCut = 24610
end
item
Command = 9
ShortCut = 33
end
item
Command = 109
ShortCut = 8225
end
item
Command = 13
ShortCut = 16417
end
item
Command = 113
ShortCut = 24609
end
item
Command = 7
ShortCut = 36
end
item
Command = 107
ShortCut = 8228
end
item
Command = 15
ShortCut = 16420
end
item
Command = 115
ShortCut = 24612
end
item
Command = 8
ShortCut = 35
end
item
Command = 108
ShortCut = 8227
end
item
Command = 16
ShortCut = 16419
end
item
Command = 116
ShortCut = 24611
end
item
Command = 223
ShortCut = 45
end
item
Command = 201
ShortCut = 16429
end
item
Command = 604
ShortCut = 8237
end
item
Command = 502
ShortCut = 46
end
item
Command = 603
ShortCut = 8238
end
item
Command = 501
ShortCut = 8
end
item
Command = 501
ShortCut = 8200
end
item
Command = 504
ShortCut = 16392
end
item
Command = 601
ShortCut = 32776
end
item
Command = 602
ShortCut = 40968
end
item
Command = 509
ShortCut = 13
end
item
Command = 199
ShortCut = 16449
end
item
Command = 201
ShortCut = 16451
end
item
Command = 610
ShortCut = 24649
end
item
Command = 509
ShortCut = 16461
end
item
Command = 510
ShortCut = 16462
end
item
Command = 503
ShortCut = 16468
end
item
Command = 611
ShortCut = 24661
end
item
Command = 604
ShortCut = 16470
end
item
Command = 603
ShortCut = 16472
end
item
Command = 507
ShortCut = 16473
end
item
Command = 506
ShortCut = 24665
end
item
Command = 601
ShortCut = 16474
end
item
Command = 602
ShortCut = 24666
end
item
Command = 301
ShortCut = 16432
end
item
Command = 302
ShortCut = 16433
end
item
Command = 303
ShortCut = 16434
end
item
Command = 304
ShortCut = 16435
end
item
Command = 305
ShortCut = 16436
end
item
Command = 306
ShortCut = 16437
end
item
Command = 307
ShortCut = 16438
end
item
Command = 308
ShortCut = 16439
end
item
Command = 309
ShortCut = 16440
end
item
Command = 310
ShortCut = 16441
end
item
Command = 351
ShortCut = 24624
end
item
Command = 352
ShortCut = 24625
end
item
Command = 353
ShortCut = 24626
end
item
Command = 354
ShortCut = 24627
end
item
Command = 355
ShortCut = 24628
end
item
Command = 356
ShortCut = 24629
end
item
Command = 357
ShortCut = 24630
end
item
Command = 358
ShortCut = 24631
end
item
Command = 359
ShortCut = 24632
end
item
Command = 360
ShortCut = 24633
end
item
Command = 231
ShortCut = 24654
end
item
Command = 232
ShortCut = 24643
end
item
Command = 233
ShortCut = 24652
end
item
Command = 612
ShortCut = 9
end
item
Command = 613
ShortCut = 8201
end
item
Command = 250
ShortCut = 24642
end>
ReadOnly = True
Cursor = crIBeam
Height = 466
Width = 659
end
object SynPasSyn1: TSynPasSyn
AsmAttri.Foreground = clLime
CommentAttri.Foreground = clSilver
IdentifierAttri.Foreground = clWhite
KeyAttri.Foreground = clAqua
NumberAttri.Foreground = clFuchsia
SpaceAttri.Foreground = clWhite
StringAttri.Foreground = clYellow
SymbolAttri.Foreground = clAqua
DirectiveAttri.Foreground = clRed
Enabled = False
left = 16
top = 40
end
object PopupMenu1: TPopupMenu
left = 48
top = 40
object MenuItem1: TMenuItem
Caption = 'Font'
OnClick = MenuItem1Click
end
end
object FontDialog1: TFontDialog
Title = 'Select a font'
PreviewText = 'Preview Text'
left = 16
top = 72
end
end

64
examples/codepageconverter/viewunit.lrs
View File

@ -1,64 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TViewForm','FORMDATA',[
'TPF0'#9'TViewForm'#8'ViewForm'#13'ActiveControl'#7#8'SynMemo1'#7'Caption'#6#4
+'VIEW'#12'ClientHeight'#3#210#1#11'ClientWidth'#3#147#2#13'PixelsPerInch'#2
+'Q'#18'HorzScrollBar.Page'#3#148#2#18'VertScrollBar.Page'#3#211#1#4'Left'#3
+#31#1#6'Height'#3#210#1#3'Top'#3#183#0#5'Width'#3#147#2#0#8'TSynMemo'#8'SynM'
+'emo1'#5'Align'#7#8'alClient'#5'Color'#7#7'clBlack'#11'Font.Height'#2#241#9
+'Font.Name'#6#7'courier'#6'Height'#3#210#1#4'Name'#6#8'SynMemo1'#9'PopupMenu'
+#7#10'PopupMenu1'#8'TabOrder'#2#0#5'Width'#3#147#2#11'Highlighter'#7#10'SynP'
+'asSyn1'#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2
+'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'
+#2#4#8'ShortCut'#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'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2
+'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2
+'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2
+'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2
+'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2
+'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'
+#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'
+#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8
+'ShortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8
+'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S'
+'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8
+'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
+#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
+#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
+'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
+'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
+#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
+#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
+#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
+'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
+'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
+#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
+'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
+'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
+'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
+#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
+'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
+'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
+'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
+#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
+#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
+'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
+'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
+'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
+#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
+#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'ReadOnly'#9#6'Cursor'#7#7'crIBeam'#6'Height'#3#210#1#5'Width'#3#147#2
+#0#0#10'TSynPasSyn'#10'SynPasSyn1'#19'AsmAttri.Foreground'#7#6'clLime'#23'Co'
+'mmentAttri.Foreground'#7#8'clSilver'#26'IdentifierAttri.Foreground'#7#7'clW'
+'hite'#19'KeyAttri.Foreground'#7#6'clAqua'#22'NumberAttri.Foreground'#7#9'cl'
+'Fuchsia'#21'SpaceAttri.Foreground'#7#7'clWhite'#22'StringAttri.Foreground'#7
+#8'clYellow'#22'SymbolAttri.Foreground'#7#6'clAqua'#25'DirectiveAttri.Foregr'
+'ound'#7#5'clRed'#7'Enabled'#8#4'left'#2#16#3'top'#2'('#0#0#10'TPopupMenu'#10
+'PopupMenu1'#4'left'#2'0'#3'top'#2'('#0#9'TMenuItem'#9'MenuItem1'#7'Caption'
+#6#4'Font'#7'OnClick'#7#14'MenuItem1Click'#0#0#0#11'TFontDialog'#11'FontDial'
+'og1'#5'Title'#6#13'Select a font'#11'PreviewText'#6#12'Preview Text'#4'left'
+#2#16#3'top'#2'H'#0#0#0
]);

2
examples/codepageconverter/viewunit.lrt
View File

@ -1,2 +0,0 @@
TVIEWFORM.CAPTION=VIEW
TMENUITEM.CAPTION=Font

41
examples/codepageconverter/viewunit.pas
View File

@ -1,41 +0,0 @@
unit viewunit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
SynHighlighterPas, SynMemo, Menus;
type
TViewForm = class(TForm)
FontDialog1: TFontDialog;
MenuItem1: TMenuItem;
PopupMenu1: TPopupMenu;
SynMemo1: TSynMemo;
SynPasSyn1: TSynPasSyn;
procedure MenuItem1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
ViewForm: TViewForm;
implementation
{ TViewForm }
procedure TViewForm.MenuItem1Click(Sender: TObject);
begin
if FontDialog1.Execute then SynMemo1.Font:=FontDialog1.Font;
end;
initialization
{$I viewunit.lrs}
end.

8
examples/codepageconverter/viewunit.po
View File

@ -1,8 +0,0 @@
#
msgid "VIEW"
msgstr ""
#
msgid "Font"
msgstr ""

1
packager/globallinks/filefindlaz-0.lpl
View File

@ -1 +0,0 @@
$(LazarusDir)/examples/codepageconverter/filefind/filefindlaz.lpk