fixed title of Open masks file dialog

git-svn-id: trunk@7922 -

ideintf/maskpropedit.lfm

@@ -4,7 +4,7 @@ object MaskEditorForm: TMaskEditorForm
   ClientHeight = 239
   ClientWidth = 507
   OnCreate = MaskEditorFormCreate
-  PixelsPerInch = 112
+  PixelsPerInch = 96
   Position = poDesktopCenter
   HorzScrollBar.Page = 506
   VertScrollBar.Page = 238
@@ -13,32 +13,36 @@ object MaskEditorForm: TMaskEditorForm
   Top = 248
   Width = 507
   object InputMaskLabel: TLabel
+    BorderSpacing.OnChange = nil
     Caption = '&Input Mask:'
     Color = clNone
     FocusControl = InputMaskEdit
     Left = 8
-    Height = 17
+    Height = 13
     Top = 8
-    Width = 65
+    Width = 64
   end
   object SampleMasksLabel: TLabel
+    BorderSpacing.OnChange = nil
     Caption = '&Sample Masks:'
     Color = clNone
     Left = 208
-    Height = 17
+    Height = 13
     Top = 5
-    Width = 192
+    Width = 77
   end
   object CharactersForBlanksLabel: TLabel
+    BorderSpacing.OnChange = nil
     Caption = 'Character for Blanks:'
     Color = clNone
     FocusControl = CharactersForBlanksEdit
     Left = 8
-    Height = 17
+    Height = 13
     Top = 62
-    Width = 118
+    Width = 102
   end
   object InputMaskEdit: TEdit
+    BorderSpacing.OnChange = nil
     OnChange = InputMaskEditChange
     TabOrder = 0
     Left = 8
@@ -48,9 +52,9 @@ object MaskEditorForm: TMaskEditorForm
   end
   object SampleMasksListBox: TListBox
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.OnChange = nil
     OnClick = SampleMasksListBoxClick
     TabOrder = 1
-    TopIndex = -1
     Left = 208
     Height = 174
     Top = 24
@@ -58,6 +62,8 @@ object MaskEditorForm: TMaskEditorForm
   end
   object OkButton: TButton
     Anchors = [akRight, akBottom]
+    BorderSpacing.OnChange = nil
+    BorderSpacing.InnerBorder = 2
     Caption = 'OK'
     ModalResult = 1
     TabOrder = 2
@@ -68,6 +74,8 @@ object MaskEditorForm: TMaskEditorForm
   end
   object CancelButton: TButton
     Anchors = [akRight, akBottom]
+    BorderSpacing.OnChange = nil
+    BorderSpacing.InnerBorder = 2
     Caption = 'Cancel'
     ModalResult = 2
     TabOrder = 3
@@ -78,6 +86,8 @@ object MaskEditorForm: TMaskEditorForm
   end
   object HelpButton: TButton
     Anchors = [akRight, akBottom]
+    BorderSpacing.OnChange = nil
+    BorderSpacing.InnerBorder = 2
     Caption = '&Help'
     TabOrder = 4
     Left = 423
@@ -87,6 +97,8 @@ object MaskEditorForm: TMaskEditorForm
   end
   object LoadSampleMasksButton: TButton
     Anchors = [akLeft, akBottom]
+    BorderSpacing.OnChange = nil
+    BorderSpacing.InnerBorder = 2
     Caption = '&Masks...'
     OnClick = LoadSampleMasksButtonClick
     TabOrder = 5
@@ -97,6 +109,7 @@ object MaskEditorForm: TMaskEditorForm
   end
   object CharactersForBlanksEdit: TEdit
     Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.OnChange = nil
     BorderSpacing.Left = 3
     MaxLength = 1
     OnChange = CharactersForBlankEditChange
@@ -104,22 +117,24 @@ object MaskEditorForm: TMaskEditorForm
     AnchorSideLeft.Control = CharactersForBlanksLabel
     AnchorSideRight.Control = InputMaskEdit
     AnchorSideRight.Side = asrBottom
-    Left = 129
+    Left = 113
     Height = 23
     Top = 56
-    Width = 71
+    Width = 87
   end
   object SaveLiteralCheckBox: TCheckBox
+    BorderSpacing.OnChange = nil
     Caption = 'Save &Literal Characters'
     OnClick = SaveLiteralCheckBoxClick
     TabOrder = 7
     UseOnChange = True
     Left = 8
-    Height = 23
+    Height = 13
     Top = 88
-    Width = 194
+    Width = 138
   end
   object TestInputPanel: TPanel
+    BorderSpacing.OnChange = nil
     BevelInner = bvRaised
     BevelOuter = bvLowered
     ClientHeight = 66
@@ -131,6 +146,7 @@ object MaskEditorForm: TMaskEditorForm
     Top = 118
     Width = 192
     object TestInputLabel: TLabel
+      BorderSpacing.OnChange = nil
       Caption = '&Test Input:'
       Color = clNone
       Left = 8
@@ -139,6 +155,7 @@ object MaskEditorForm: TMaskEditorForm
       Width = 65
     end
     object TestMaskEdit: TMaskEdit
+      BorderSpacing.OnChange = nil
       TabOrder = 0
       Left = 8
       Height = 23
@@ -148,11 +165,11 @@ object MaskEditorForm: TMaskEditorForm
   end
   object OpenDialog1: TOpenDialog
     Options = [ofNoChangeDir, ofEnableSizing, ofViewDetail]
-    Title = 'Îòêðûòü ñóùåñòâóþùèé ôàéë'
+    Title = 'Open mask file (*.dem)'
     DefaultExt = '.dem'
     Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
     FilterIndex = 0
-    Title = 'Îòêðûòü ñóùåñòâóþùèé ôàéë'
+    Title = 'Open mask file (*.dem)'
     left = 48
     top = 240
   end

ideintf/maskpropedit.lrs

@@ -3,50 +3,55 @@
 LazarusResources.Add('TMaskEditorForm','FORMDATA',[
   'TPF0'#15'TMaskEditorForm'#14'MaskEditorForm'#11'BorderStyle'#7#8'bsDialog'#7
   +'Caption'#6#17'Input Mask Editor'#12'ClientHeight'#3#239#0#11'ClientWidth'#3
-  +#251#1#8'OnCreate'#7#20'MaskEditorFormCreate'#13'PixelsPerInch'#2'p'#8'Posit'
+  +#251#1#8'OnCreate'#7#20'MaskEditorFormCreate'#13'PixelsPerInch'#2'`'#8'Posit'
   +'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
-  +#251#1#0#6'TLabel'#14'InputMaskLabel'#7'Caption'#6#12'&Input Mask:'#5'Color'
+  +#251#1#0#6'TLabel'#14'InputMaskLabel'#22'BorderSpacing.OnChange'#13#7'Captio'
-  +#7#6'clNone'#12'FocusControl'#7#13'InputMaskEdit'#4'Left'#2#8#6'Height'#2#17
+  +'n'#6#12'&Input Mask:'#5'Color'#7#6'clNone'#12'FocusControl'#7#13'InputMaskE'
-  +#3'Top'#2#8#5'Width'#2'A'#0#0#6'TLabel'#16'SampleMasksLabel'#7'Caption'#6#14
+  +'dit'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#8#5'Width'#2'@'#0#0#6'TLabel'#16'S'
-  +'&Sample Masks:'#5'Color'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#17#3'Top'#2
+  +'ampleMasksLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'&Sample Mask'
-  +#5#5'Width'#3#192#0#0#0#6'TLabel'#24'CharactersForBlanksLabel'#7'Caption'#6
+  +'s:'#5'Color'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#13#3'Top'#2#5#5'Width'
-  +#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusControl'#7#23'Charac'
+  +#2'M'#0#0#6'TLabel'#24'CharactersForBlanksLabel'#22'BorderSpacing.OnChange'
-  +'tersForBlanksEdit'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'>'#5'Width'#2'v'#0#0
+  +#13#7'Caption'#6#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusCont'
-  +#5'TEdit'#13'InputMaskEdit'#8'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'
+  +'rol'#7#23'CharactersForBlanksEdit'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'>'#5
-  +#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5'Width'#3#192#0#0#0#8'TListBox'
+  +'Width'#2'f'#0#0#5'TEdit'#13'InputMaskEdit'#22'BorderSpacing.OnChange'#13#8
-  +#18'SampleMasksListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBott'
+  +'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2
-  +'om'#0#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#8'TopIndex'#2
+  +#23#3'Top'#2#24#5'Width'#3#192#0#0#0#8'TListBox'#18'SampleMasksListBox'#7'An'
-  +#255#4'Left'#3#208#0#6'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7'TBu'
+  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnCh'
-  +'tton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'OK'
+  +'ange'#13#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#4'Left'#3
-  +#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Left'#3#7#1#6'Height'#2#25#3'Top'#3
+  +#208#0#6'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7'TButton'#8'OkButt'
-  +#206#0#5'Width'#2'K'#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#7'akRight'
+  +'on'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#25
-  +#8'akBottom'#0#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#4
+  +'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'OK'#11'ModalResult'#2#1#8'Tab'
-  +'Left'#3'W'#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#10
+  +'Order'#2#2#4'Left'#3#7#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7
-  +'HelpButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'&Help'#8
+  +'TButton'#12'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderS'
-  +'TabOrder'#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0
+  +'pacing.OnChange'#13#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'
-  +#0#7'TButton'#21'LoadSampleMasksButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
+  +#11'ModalResult'#2#2#8'TabOrder'#2#3#4'Left'#3'W'#1#6'Height'#2#25#3'Top'#3
-  +#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSampleMasksButtonClick'#8'Tab'
+  +#206#0#5'Width'#2'K'#0#0#7'TButton'#10'HelpButton'#7'Anchors'#11#7'akRight'#8
-  +'Order'#2#5#4'Left'#2#16#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#5'T'
+  +'akBottom'#0#22'BorderSpacing.OnChange'#13#25'BorderSpacing.InnerBorder'#2#2
-  +'Edit'#23'CharactersForBlanksEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+  +#7'Caption'#6#5'&Help'#8'TabOrder'#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'
-  +'t'#0#18'BorderSpacing.Left'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'Character'
+  +#3#206#0#5'Width'#2'K'#0#0#7'TButton'#21'LoadSampleMasksButton'#7'Anchors'#11
-  +'sForBlankEditChange'#8'TabOrder'#2#6#22'AnchorSideLeft.Control'#7#24'Charac'
+  +#6'akLeft'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#25'BorderSpacing.Inne'
-  +'tersForBlanksLabel'#23'AnchorSideRight.Control'#7#13'InputMaskEdit'#20'Anch'
+  +'rBorder'#2#2#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSampleMasksButto'
-  +'orSideRight.Side'#7#9'asrBottom'#4'Left'#3#129#0#6'Height'#2#23#3'Top'#2'8'
+  +'nClick'#8'TabOrder'#2#5#4'Left'#2#16#6'Height'#2#25#3'Top'#3#206#0#5'Width'
-  +#5'Width'#2'G'#0#0#9'TCheckBox'#19'SaveLiteralCheckBox'#7'Caption'#6#24'Save'
+  +#2'K'#0#0#5'TEdit'#23'CharactersForBlanksEdit'#7'Anchors'#11#5'akTop'#6'akLe'
-  +' &Literal Characters'#7'OnClick'#7#24'SaveLiteralCheckBoxClick'#8'TabOrder'
+  +'ft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Left'#2#3#9
-  +#2#7#11'UseOnChange'#9#4'Left'#2#8#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#194
+  +'MaxLength'#2#1#8'OnChange'#7#28'CharactersForBlankEditChange'#8'TabOrder'#2
-  +#0#0#0#6'TPanel'#14'TestInputPanel'#10'BevelInner'#7#8'bvRaised'#10'BevelOut'
+  +#6#22'AnchorSideLeft.Control'#7#24'CharactersForBlanksLabel'#23'AnchorSideRi'
-  +'er'#7#9'bvLowered'#12'ClientHeight'#2'B'#11'ClientWidth'#3#192#0#11'FullRep'
+  +'ght.Control'#7#13'InputMaskEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'aint'#8#8'TabOrder'#2#8#4'Left'#2#8#6'Height'#2'B'#3'Top'#2'v'#5'Width'#3
+  +'Left'#2'q'#6'Height'#2#23#3'Top'#2'8'#5'Width'#2'W'#0#0#9'TCheckBox'#19'Sav'
-  +#192#0#0#6'TLabel'#14'TestInputLabel'#7'Caption'#6#12'&Test Input:'#5'Color'
+  +'eLiteralCheckBox'#22'BorderSpacing.OnChange'#13#7'Caption'#6#24'Save &Liter'
-  +#7#6'clNone'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#6#5'Width'#2'A'#0#0#9'TMask'
+  +'al Characters'#7'OnClick'#7#24'SaveLiteralCheckBoxClick'#8'TabOrder'#2#7#11
-  +'Edit'#12'TestMaskEdit'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'#2
+  +'UseOnChange'#9#4'Left'#2#8#6'Height'#2#13#3'Top'#2'X'#5'Width'#3#138#0#0#0#6
-  +#26#5'Width'#3#176#0#0#0#0#11'TOpenDialog'#11'OpenDialog1'#7'Options'#11#13
+  +'TPanel'#14'TestInputPanel'#22'BorderSpacing.OnChange'#13#10'BevelInner'#7#8
-  +'ofNoChangeDir'#14'ofEnableSizing'#12'ofViewDetail'#0#5'Title'#6#25#206#242
+  +'bvRaised'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'B'#11'ClientWidt'
-  +#234#240#251#242#252' '#241#243#249#229#241#242#226#243#254#249#232#233' '
+  +'h'#3#192#0#11'FullRepaint'#8#8'TabOrder'#2#8#4'Left'#2#8#6'Height'#2'B'#3'T'
-  +#244#224#233#235#10'DefaultExt'#6#4'.dem'#6'Filter'#6',Edit Masks (*.dem)|*.'
+  +'op'#2'v'#5'Width'#3#192#0#0#6'TLabel'#14'TestInputLabel'#22'BorderSpacing.O'
-  +'dem|All Files (*.*)|*.*'#11'FilterIndex'#2#0#5'Title'#6#25#206#242#234#240
+  +'nChange'#13#7'Caption'#6#12'&Test Input:'#5'Color'#7#6'clNone'#4'Left'#2#8#6
-  +#251#242#252' '#241#243#249#229#241#242#226#243#254#249#232#233' '#244#224
+  +'Height'#2#17#3'Top'#2#6#5'Width'#2'A'#0#0#9'TMaskEdit'#12'TestMaskEdit'#22
-  +#233#235#4'left'#2'0'#3'top'#3#240#0#0#0#0
+  +'BorderSpacing.OnChange'#13#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'
+  +#2#26#5'Width'#3#176#0#0#0#0#11'TOpenDialog'#11'OpenDialog1'#7'Options'#11#13
+  +'ofNoChangeDir'#14'ofEnableSizing'#12'ofViewDetail'#0#5'Title'#6#22'Open mas'
+  +'k file (*.dem)'#10'DefaultExt'#6#4'.dem'#6'Filter'#6',Edit Masks (*.dem)|*.'
+  +'dem|All Files (*.*)|*.*'#11'FilterIndex'#2#0#5'Title'#6#22'Open mask file ('
+  +'*.dem)'#4'left'#2'0'#3'top'#3#240#0#0#0#0
 ]);

ideintf/objinspstrconsts.pas

@@ -122,6 +122,7 @@ resourcestring
   oisSampleMasks = 'Sample Masks:';
   oisCharactersForBlanks = 'Characters for Blanks';
   oisTestInput = 'Test Input';
+  oisOpenMaskFile = 'Open masks file (*.dem)';
   cActionListEditorDialogCategory = 'Dialog';
   cActionListEditorFileCategory = 'File';
   cActionListEditorDatabaseCategory = 'Database';

lcl/lcltype.pp

@@ -139,10 +139,6 @@ type
 
   PHKEY = ^HKEY;
 
-// from Delphis sysutils.pas
-  PByteArray = ^TByteArray;
-  TByteArray = array[0..32767] of Byte;
-
 var
   hInstance: HINST;