paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 01:04:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

added resourcestrings for property editor of TMaskEdit

Browse Source 
git-svn-id: trunk@7577 -
This commit is contained in:
mattias 2005-08-27 13:05:37 +00:00
parent 7bccdc9896
commit 7d6ed9e626
4 changed files with 64 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ideintf/maskpropedit.lfm
View File

@ -13,7 +13,6 @@ object MaskEditorForm: TMaskEditorForm
Top = 248 Top = 248
Width = 507 Width = 507
object InputMaskLabel: TLabel object InputMaskLabel: TLabel
BorderSpacing.OnChange = nil
Caption = '&Input Mask:' Caption = '&Input Mask:'
Color = clNone Color = clNone
FocusControl = InputMaskEdit FocusControl = InputMaskEdit
@ -23,7 +22,6 @@ object MaskEditorForm: TMaskEditorForm
Width = 65 Width = 65
end end
object SampleMasksLabel: TLabel object SampleMasksLabel: TLabel
BorderSpacing.OnChange = nil
Caption = '&Sample Masks:' Caption = '&Sample Masks:'
Color = clNone Color = clNone
Left = 208 Left = 208
@ -32,7 +30,6 @@ object MaskEditorForm: TMaskEditorForm
Width = 192 Width = 192
end end
object CharactersForBlanksLabel: TLabel object CharactersForBlanksLabel: TLabel
BorderSpacing.OnChange = nil
Caption = 'Character for Blanks:' Caption = 'Character for Blanks:'
Color = clNone Color = clNone
FocusControl = CharactersForBlanksEdit FocusControl = CharactersForBlanksEdit
@ -42,7 +39,6 @@ object MaskEditorForm: TMaskEditorForm
Width = 118 Width = 118
end end
object InputMaskEdit: TEdit object InputMaskEdit: TEdit
BorderSpacing.OnChange = nil
OnChange = InputMaskEditChange OnChange = InputMaskEditChange
TabOrder = 0 TabOrder = 0
Left = 8 Left = 8
@ -52,7 +48,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object SampleMasksListBox: TListBox object SampleMasksListBox: TListBox
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
OnClick = SampleMasksListBoxClick OnClick = SampleMasksListBoxClick
TabOrder = 1 TabOrder = 1
TopIndex = -1 TopIndex = -1
@ -63,7 +58,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object OkButton: TButton object OkButton: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = 'OK' Caption = 'OK'
ModalResult = 1 ModalResult = 1
TabOrder = 2 TabOrder = 2
@ -74,7 +68,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object CancelButton: TButton object CancelButton: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 3 TabOrder = 3
@ -85,7 +78,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object HelpButton: TButton object HelpButton: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = '&Help' Caption = '&Help'
TabOrder = 4 TabOrder = 4
Left = 423 Left = 423
@ -95,7 +87,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object LoadSampleMasksButton: TButton object LoadSampleMasksButton: TButton
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.OnChange = nil
Caption = '&Masks...' Caption = '&Masks...'
OnClick = LoadSampleMasksButtonClick OnClick = LoadSampleMasksButtonClick
TabOrder = 5 TabOrder = 5
@ -106,7 +97,6 @@ object MaskEditorForm: TMaskEditorForm
end end
object CharactersForBlanksEdit: TEdit object CharactersForBlanksEdit: TEdit
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
BorderSpacing.Left = 3 BorderSpacing.Left = 3
MaxLength = 1 MaxLength = 1
OnChange = CharactersForBlankEditChange OnChange = CharactersForBlankEditChange
@ -120,7 +110,6 @@ object MaskEditorForm: TMaskEditorForm
Width = 71 Width = 71
end end
object SaveLiteralCheckBox: TCheckBox object SaveLiteralCheckBox: TCheckBox
BorderSpacing.OnChange = nil
Caption = 'Save &Literal Characters' Caption = 'Save &Literal Characters'
OnClick = SaveLiteralCheckBoxClick OnClick = SaveLiteralCheckBoxClick
TabOrder = 7 TabOrder = 7
@ -130,8 +119,7 @@ object MaskEditorForm: TMaskEditorForm
Top = 88 Top = 88
Width = 194 Width = 194
end end
object Panel1: TPanel object TestInputPanel: TPanel
BorderSpacing.OnChange = nil
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 66 ClientHeight = 66
@ -143,7 +131,6 @@ object MaskEditorForm: TMaskEditorForm
Top = 118 Top = 118
Width = 192 Width = 192
object TestInputLabel: TLabel object TestInputLabel: TLabel
BorderSpacing.OnChange = nil
Caption = '&Test Input:' Caption = '&Test Input:'
Color = clNone Color = clNone
Left = 8 Left = 8
@ -152,7 +139,6 @@ object MaskEditorForm: TMaskEditorForm
Width = 65 Width = 65
end end
object TestMaskEdit: TMaskEdit object TestMaskEdit: TMaskEdit
BorderSpacing.OnChange = nil
TabOrder = 0 TabOrder = 0
Left = 8 Left = 8
Height = 23 Height = 23

91
ideintf/maskpropedit.lrs
View File

@ -6,52 +6,47 @@ LazarusResources.Add('TMaskEditorForm','FORMDATA',[
+#251#1#8'OnCreate'#7#20'MaskEditorFormCreate'#13'PixelsPerInch'#2'p'#8'Posit' +#251#1#8'OnCreate'#7#20'MaskEditorFormCreate'#13'PixelsPerInch'#2'p'#8'Posit'
+'ion'#7#15'poDesktopCenter'#18'HorzScrollBar.Page'#3#250#1#18'VertScrollBar.' +'ion'#7#15'poDesktopCenter'#18'HorzScrollBar.Page'#3#250#1#18'VertScrollBar.'
+'Page'#3#238#0#4'Left'#3#202#1#6'Height'#3#239#0#3'Top'#3#248#0#5'Width'#3 +'Page'#3#238#0#4'Left'#3#202#1#6'Height'#3#239#0#3'Top'#3#248#0#5'Width'#3
+#251#1#0#6'TLabel'#14'InputMaskLabel'#22'BorderSpacing.OnChange'#13#7'Captio' +#251#1#0#6'TLabel'#14'InputMaskLabel'#7'Caption'#6#12'&Input Mask:'#5'Color'
+'n'#6#12'&Input Mask:'#5'Color'#7#6'clNone'#12'FocusControl'#7#13'InputMaskE' +#7#6'clNone'#12'FocusControl'#7#13'InputMaskEdit'#4'Left'#2#8#6'Height'#2#17
+'dit'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#8#5'Width'#2'A'#0#0#6'TLabel'#16'S' +#3'Top'#2#8#5'Width'#2'A'#0#0#6'TLabel'#16'SampleMasksLabel'#7'Caption'#6#14
+'ampleMasksLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'&Sample Mask' +'&Sample Masks:'#5'Color'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#17#3'Top'#2
+'s:'#5'Color'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#17#3'Top'#2#5#5'Width' +#5#5'Width'#3#192#0#0#0#6'TLabel'#24'CharactersForBlanksLabel'#7'Caption'#6
+#3#192#0#0#0#6'TLabel'#24'CharactersForBlanksLabel'#22'BorderSpacing.OnChang' +#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusControl'#7#23'Charac'
+'e'#13#7'Caption'#6#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusC' +'tersForBlanksEdit'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'>'#5'Width'#2'v'#0#0
+'ontrol'#7#23'CharactersForBlanksEdit'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'>' +#5'TEdit'#13'InputMaskEdit'#8'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'
+#5'Width'#2'v'#0#0#5'TEdit'#13'InputMaskEdit'#22'BorderSpacing.OnChange'#13#8 +#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5'Width'#3#192#0#0#0#8'TListBox'
+'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2 +#18'SampleMasksListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBott'
+#23#3'Top'#2#24#5'Width'#3#192#0#0#0#8'TListBox'#18'SampleMasksListBox'#7'An' +'om'#0#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#8'TopIndex'#2
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnCh' +#255#4'Left'#3#208#0#6'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7'TBu'
+'ange'#13#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#8'TopInde' +'tton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'OK'
+'x'#2#255#4'Left'#3#208#0#6'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7 +#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Left'#3#7#1#6'Height'#2#25#3'Top'#3
+'TButton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacin' +#206#0#5'Width'#2'K'#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#7'akRight'
+'g.OnChange'#13#7'Caption'#6#2'OK'#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Lef' +#8'akBottom'#0#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#4
+'t'#3#7#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#12'Canc' +'Left'#3'W'#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#10
+'elButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange' +'HelpButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'&Help'#8
+#13#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#4'Left'#3'W'#1 +'TabOrder'#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0
+#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#10'HelpButton'#7 +#0#7'TButton'#21'LoadSampleMasksButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
+'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Captio' +#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSampleMasksButtonClick'#8'Tab'
+'n'#6#5'&Help'#8'TabOrder'#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'#3#206#0 +'Order'#2#5#4'Left'#2#16#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#5'T'
+#5'Width'#2'K'#0#0#7'TButton'#21'LoadSampleMasksButton'#7'Anchors'#11#6'akLe' +'Edit'#23'CharactersForBlanksEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'ft'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#9'&Masks...'#7 +'t'#0#18'BorderSpacing.Left'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'Character'
+'OnClick'#7#26'LoadSampleMasksButtonClick'#8'TabOrder'#2#5#4'Left'#2#16#6'He' +'sForBlankEditChange'#8'TabOrder'#2#6#22'AnchorSideLeft.Control'#7#24'Charac'
+'ight'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#5'TEdit'#23'CharactersForBlanks' +'tersForBlanksLabel'#23'AnchorSideRight.Control'#7#13'InputMaskEdit'#20'Anch'
+'Edit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChan' +'orSideRight.Side'#7#9'asrBottom'#4'Left'#3#129#0#6'Height'#2#23#3'Top'#2'8'
+'ge'#13#18'BorderSpacing.Left'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'Charact' +#5'Width'#2'G'#0#0#9'TCheckBox'#19'SaveLiteralCheckBox'#7'Caption'#6#24'Save'
+'ersForBlankEditChange'#8'TabOrder'#2#6#22'AnchorSideLeft.Control'#7#24'Char' +' &Literal Characters'#7'OnClick'#7#24'SaveLiteralCheckBoxClick'#8'TabOrder'
+'actersForBlanksLabel'#23'AnchorSideRight.Control'#7#13'InputMaskEdit'#20'An' +#2#7#11'UseOnChange'#9#4'Left'#2#8#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#194
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3#129#0#6'Height'#2#23#3'Top'#2 +#0#0#0#6'TPanel'#14'TestInputPanel'#10'BevelInner'#7#8'bvRaised'#10'BevelOut'
+'8'#5'Width'#2'G'#0#0#9'TCheckBox'#19'SaveLiteralCheckBox'#22'BorderSpacing.' +'er'#7#9'bvLowered'#12'ClientHeight'#2'B'#11'ClientWidth'#3#192#0#11'FullRep'
+'OnChange'#13#7'Caption'#6#24'Save &Literal Characters'#7'OnClick'#7#24'Save' +'aint'#8#8'TabOrder'#2#8#4'Left'#2#8#6'Height'#2'B'#3'Top'#2'v'#5'Width'#3
+'LiteralCheckBoxClick'#8'TabOrder'#2#7#11'UseOnChange'#9#4'Left'#2#8#6'Heigh' +#192#0#0#6'TLabel'#14'TestInputLabel'#7'Caption'#6#12'&Test Input:'#5'Color'
+'t'#2#23#3'Top'#2'X'#5'Width'#3#194#0#0#0#6'TPanel'#6'Panel1'#22'BorderSpaci' +#7#6'clNone'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#6#5'Width'#2'A'#0#0#9'TMask'
+'ng.OnChange'#13#10'BevelInner'#7#8'bvRaised'#10'BevelOuter'#7#9'bvLowered' +'Edit'#12'TestMaskEdit'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'#2
+#12'ClientHeight'#2'B'#11'ClientWidth'#3#192#0#11'FullRepaint'#8#8'TabOrder' +#26#5'Width'#3#176#0#0#0#0#11'TOpenDialog'#11'OpenDialog1'#7'Options'#11#13
+#2#8#4'Left'#2#8#6'Height'#2'B'#3'Top'#2'v'#5'Width'#3#192#0#0#6'TLabel'#14 +'ofNoChangeDir'#14'ofEnableSizing'#12'ofViewDetail'#0#5'Title'#6#25#206#242
+'TestInputLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#12'&Test Input:' +#234#240#251#242#252' '#241#243#249#229#241#242#226#243#254#249#232#233' '
+#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#6#5'Width'#2'A'#0#0 +#244#224#233#235#10'DefaultExt'#6#4'.dem'#6'Filter'#6',Edit Masks (*.dem)|*.'
+#9'TMaskEdit'#12'TestMaskEdit'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#0 +'dem|All Files (*.*)|*.*'#11'FilterIndex'#2#0#5'Title'#6#25#206#242#234#240
+#4'Left'#2#8#6'Height'#2#23#3'Top'#2#26#5'Width'#3#176#0#0#0#0#11'TOpenDialo' +#251#242#252' '#241#243#249#229#241#242#226#243#254#249#232#233' '#244#224
+'g'#11'OpenDialog1'#7'Options'#11#13'ofNoChangeDir'#14'ofEnableSizing'#12'of' +#233#235#4'left'#2'0'#3'top'#3#240#0#0#0#0
+'ViewDetail'#0#5'Title'#6#25#206#242#234#240#251#242#252' '#241#243#249#229
+#241#242#226#243#254#249#232#233' '#244#224#233#235#10'DefaultExt'#6#4'.dem'
+#6'Filter'#6',Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'#11'FilterIndex'#2
+#0#5'Title'#6#25#206#242#234#240#251#242#252' '#241#243#249#229#241#242#226
+#243#254#249#232#233' '#244#224#233#235#4'left'#2'0'#3'top'#3#240#0#0#0#0
]); ]);

15
ideintf/maskpropedit.pas
View File

@ -25,7 +25,8 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ExtCtrls, FileUtil, MaskEdit, LazIDEIntf, PropEdits, TypInfo; Buttons, ExtCtrls, FileUtil, MaskEdit, LazIDEIntf, PropEdits,
ObjInspStrConsts;
type type
@ -46,7 +47,7 @@ type
SampleMasksListBox: TListBox; SampleMasksListBox: TListBox;
TestMaskEdit: TMaskEdit; TestMaskEdit: TMaskEdit;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
Panel1: TPanel; TestInputPanel: TPanel;
procedure LoadSampleMasksButtonClick(Sender: TObject); procedure LoadSampleMasksButtonClick(Sender: TObject);
procedure SaveLiteralCheckBoxClick(Sender: TObject); procedure SaveLiteralCheckBoxClick(Sender: TObject);
procedure InputMaskEditChange(Sender: TObject); procedure InputMaskEditChange(Sender: TObject);
@ -132,6 +133,16 @@ procedure TMaskEditorForm.MaskEditorFormCreate(Sender: TObject);
var var
aDemFile:string; aDemFile:string;
begin begin
OkButton.Caption:=oisOk2;
CancelButton.Caption:=oiStdActDataSetCancel1Hint;
HelpButton.Caption:=cActionListEditorHelpCategory;
LoadSampleMasksButton.Caption:=oisMasks;
SaveLiteralCheckBox.Caption:=oisSaveLiteralCharacters;
InputMaskLabel.Caption:=oisInputMask;
SampleMasksLabel.Caption:=oisSampleMasks;
CharactersForBlanksLabel.Caption:=oisCharactersForBlanks;
TestInputLabel.Caption:=oisTestInput;
if LazarusIDE<>nil then if LazarusIDE<>nil then
aDemFile:=LazarusIDE.GetPrimaryConfigPath aDemFile:=LazarusIDE.GetPrimaryConfigPath
else else

7
ideintf/objinspstrconsts.pas
View File

@ -116,6 +116,12 @@ resourcestring
cActionListEditorAllCategory = '(All)'; cActionListEditorAllCategory = '(All)';
cActionListEditorEditCategory = 'Edit'; cActionListEditorEditCategory = 'Edit';
cActionListEditorHelpCategory = 'Help'; cActionListEditorHelpCategory = 'Help';
oisMasks = 'Masks...';
oisSaveLiteralCharacters = 'Save Literal Characters';
oisInputMask = 'Input Mask:';
oisSampleMasks = 'Sample Masks:';
oisCharactersForBlanks = 'Characters for Blanks';
oisTestInput = 'Test Input';
cActionListEditorDialogCategory = 'Dialog'; cActionListEditorDialogCategory = 'Dialog';
cActionListEditorFileCategory = 'File'; cActionListEditorFileCategory = 'File';
cActionListEditorDatabaseCategory = 'Database'; cActionListEditorDatabaseCategory = 'Database';
@ -242,6 +248,7 @@ resourcestring
oisClear = 'C&lear'; oisClear = 'C&lear';
oisErrorLoadingImage = 'Error loading image'; oisErrorLoadingImage = 'Error loading image';
oisErrorLoadingImage2 = 'Error loading image %s%s%s:%s%s'; oisErrorLoadingImage2 = 'Error loading image %s%s%s:%s%s';
oisOk2 = 'Ok';
implementation implementation