From dd8ccf2773e07c64cf35a881ae618360d7e0788c Mon Sep 17 00:00:00 2001 From: paul Date: Mon, 30 Jul 2007 16:33:41 +0000 Subject: [PATCH] (IDE): - change poDesktopCenter to poScreenCenter (since some forms has wrong position after poDesktopCenter had been implemented in some widgetsets) git-svn-id: trunk@11677 - --- designer/designermenu.pp | 2 +- designer/menueditorform.pas | 2 +- designer/objinspext.pas | 2 +- ide/codetoolsoptions.pas | 2 +- ide/condef.lfm | 2 +- ide/condef.lrs | 4 +-- ide/procedurelist.pas | 2 +- ide/progressdlg.lfm | 2 +- ide/progressdlg.lrs | 4 +-- ideintf/frmselectprops.lfm | 2 +- ideintf/frmselectprops.lrs | 4 +-- ideintf/graphicpropedit.lfm | 2 +- ideintf/graphicpropedit.lrs | 14 ++++---- ideintf/maskpropedit.lfm | 2 +- ideintf/maskpropedit.lrs | 68 ++++++++++++++++++------------------- ideintf/propedits.pp | 2 +- 16 files changed, 56 insertions(+), 60 deletions(-) diff --git a/designer/designermenu.pp b/designer/designermenu.pp index 2687962a7a..ad83d1058f 100644 --- a/designer/designermenu.pp +++ b/designer/designermenu.pp @@ -2010,7 +2010,7 @@ begin end; Width:=520; Height:=240; - Position:=poDesktopCenter; + Position:=poScreenCenter; subitem_level:=1; diff --git a/designer/menueditorform.pas b/designer/menueditorform.pas index d3372ad966..70e16e7a75 100644 --- a/designer/menueditorform.pas +++ b/designer/menueditorform.pas @@ -189,7 +189,7 @@ begin Caption:=lisMenuEditorMenuEditor; width:=600; height:=220; - position:=poDesktopCenter; + position:=poScreenCenter; Cmp2:=TScrollBox.Create(self); with Cmp2 do diff --git a/designer/objinspext.pas b/designer/objinspext.pas index 88f7dc6fed..d8d628fc87 100644 --- a/designer/objinspext.pas +++ b/designer/objinspext.pas @@ -365,7 +365,7 @@ begin Name:='OIAddToFavouriteDlg'; Width:=300; Height:=150; - Position:=poDesktopCenter; + Position:=poScreenCenter; NoteLabel:=TLabel.Create(Self); with NoteLabel do begin diff --git a/ide/codetoolsoptions.pas b/ide/codetoolsoptions.pas index fe6947df0e..79da1fc80d 100644 --- a/ide/codetoolsoptions.pas +++ b/ide/codetoolsoptions.pas @@ -815,7 +815,7 @@ begin if LazarusResources.Find(ClassName)=nil then begin Width:=485; Height:=435; - Position:=poDesktopCenter; + Position:=poScreenCenter; IDEDialogLayoutList.ApplyLayout(Self,485,435); Caption:=dlgCodeToolsOpts; OnResize:=@CodeToolsOptsDlgResize; diff --git a/ide/condef.lfm b/ide/condef.lfm index 38735cfea0..4e958df9f9 100644 --- a/ide/condef.lfm +++ b/ide/condef.lfm @@ -13,7 +13,7 @@ object CondForm: TCondForm OnCreate = CondFormCREATE OnDestroy = FormDestroy OnShow = FormShow - Position = poDesktopCenter + Position = poScreenCenter object FirstLabel: TLabel Left = 6 Height = 17 diff --git a/ide/condef.lrs b/ide/condef.lrs index 44803a2dd0..afd53970aa 100644 --- a/ide/condef.lrs +++ b/ide/condef.lrs @@ -1,12 +1,10 @@ -{ This is an automatically generated lazarus resource file } - LazarusResources.Add('TCondForm','FORMDATA',[ 'TPF0'#9'TCondForm'#8'CondForm'#4'Left'#3'H'#1#6'Height'#3#238#0#3'Top'#3#31#1 +#5'Width'#3'J'#1#18'HorzScrollBar.Page'#3'I'#1#19'HorzScrollBar.Range'#3#186 +#0#18'VertScrollBar.Page'#3#237#0#19'VertScrollBar.Range'#3#157#0#13'ActiveC' +'ontrol'#7#7'ListBox'#7'Caption'#6#19'Conditional Defines'#7'OnClose'#7#13'C' +'ondFormCLOSE'#8'OnCreate'#7#14'CondFormCREATE'#9'OnDestroy'#7#11'FormDestro' - +'y'#6'OnShow'#7#8'FormShow'#8'Position'#7#15'poDesktopCenter'#0#6'TLabel'#10 + +'y'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#10 +'FirstLabel'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#2#5'Width'#2'K'#7'Caption'#6 +#11'&First test'#5'Color'#7#6'clNone'#12'FocusControl'#7#9'FirstTest'#11'Par' +'entColor'#8#0#0#6'TLabel'#11'SecondLabel'#21'AnchorSideTop.Control'#7#9'Fir' diff --git a/ide/procedurelist.pas b/ide/procedurelist.pas index f4acdfb335..771fb7b543 100644 --- a/ide/procedurelist.pas +++ b/ide/procedurelist.pas @@ -252,7 +252,7 @@ end; procedure TProcedureListForm.SetupGUI; begin self.KeyPreview := True; - self.Position := poDesktopCenter; + self.Position := poScreenCenter; // assign resource strings to Captions and Hints self.Caption := srkmecProcedureList; diff --git a/ide/progressdlg.lfm b/ide/progressdlg.lfm index 7c8ec4acd4..359d4e9a81 100644 --- a/ide/progressdlg.lfm +++ b/ide/progressdlg.lfm @@ -6,7 +6,7 @@ object IDEProgressDialog: TIDEProgressDialog OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 112 - Position = poDesktopCenter + Position = poScreenCenter HorzScrollBar.Page = 399 VertScrollBar.Page = 131 Left = 286 diff --git a/ide/progressdlg.lrs b/ide/progressdlg.lrs index 25104d50e9..7dd83e73ea 100644 --- a/ide/progressdlg.lrs +++ b/ide/progressdlg.lrs @@ -2,8 +2,8 @@ LazarusResources.Add('TIDEProgressDialog','FORMDATA',[ 'TPF0'#18'TIDEProgressDialog'#17'IDEProgressDialog'#13'ActiveControl'#7#11'Ab' +'ortButton'#7'Caption'#6#17'IDEProgressDialog'#12'ClientHeight'#3#132#0#11'C' +'lientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDest' - +'roy'#13'PixelsPerInch'#2'p'#8'Position'#7#15'poDesktopCenter'#18'HorzScroll' - +'Bar.Page'#3#143#1#18'VertScrollBar.Page'#3#131#0#4'Left'#3#30#1#6'Height'#3 + +'roy'#13'PixelsPerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'HorzScrollB' + +'ar.Page'#3#143#1#18'VertScrollBar.Page'#3#131#0#4'Left'#3#30#1#6'Height'#3 +#132#0#3'Top'#3#202#0#5'Width'#3#144#1#0#6'TLabel'#16'DescriptionLabel'#7'An' +'chors'#11#5'akTop'#0#8'AutoSize'#8#7'Caption'#6#16'DescriptionLabel'#5'Colo' +'r'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#4'Left'#3#152#0#6'Height'#2 diff --git a/ideintf/frmselectprops.lfm b/ideintf/frmselectprops.lfm index 3face9e0ab..867329c9b3 100644 --- a/ideintf/frmselectprops.lfm +++ b/ideintf/frmselectprops.lfm @@ -6,7 +6,7 @@ object SelectPropertiesForm: TSelectPropertiesForm OnClose = SelectPropertiesFormClose OnCreate = SelectPropertiesFormCreate PixelsPerInch = 96 - Position = poDesktopCenter + Position = poScreenCenter HorzScrollBar.Page = 484 VertScrollBar.Page = 461 Left = 411 diff --git a/ideintf/frmselectprops.lrs b/ideintf/frmselectprops.lrs index c9d34dfb49..962c463f0f 100644 --- a/ideintf/frmselectprops.lrs +++ b/ideintf/frmselectprops.lrs @@ -2,8 +2,8 @@ LazarusResources.Add('TSelectPropertiesForm','FORMDATA',[ 'TPF0'#21'TSelectPropertiesForm'#20'SelectPropertiesForm'#13'ActiveControl'#7 +#12'LBProperties'#7'Caption'#6#17'Select properties'#12'ClientHeight'#3#206#1 +#11'ClientWidth'#3#229#1#7'OnClose'#7#25'SelectPropertiesFormClose'#8'OnCrea' - +'te'#7#26'SelectPropertiesFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#15 - +'poDesktopCenter'#18'HorzScrollBar.Page'#3#228#1#18'VertScrollBar.Page'#3#205 + +'te'#7#26'SelectPropertiesFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14 + +'poScreenCenter'#18'HorzScrollBar.Page'#3#228#1#18'VertScrollBar.Page'#3#205 +#1#4'Left'#3#155#1#6'Height'#3#206#1#3'Top'#3#175#0#5'Width'#3#229#1#0#6'TPa' +'nel'#4'PTop'#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight' +#3#248#0#11'ClientWidth'#3#229#1#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height' diff --git a/ideintf/graphicpropedit.lfm b/ideintf/graphicpropedit.lfm index 84153254c9..806d2eefbd 100644 --- a/ideintf/graphicpropedit.lfm +++ b/ideintf/graphicpropedit.lfm @@ -10,7 +10,7 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm Constraints.MinHeight = 180 Constraints.MinWidth = 200 OnCreate = FormCreate - Position = poDesktopCenter + Position = poScreenCenter object GroupBox1: TGroupBox Left = 6 Height = 289 diff --git a/ideintf/graphicpropedit.lrs b/ideintf/graphicpropedit.lrs index c28d9a2593..7fd6cd6413 100644 --- a/ideintf/graphicpropedit.lrs +++ b/ideintf/graphicpropedit.lrs @@ -1,16 +1,14 @@ -{ This is an automatically generated lazarus resource file } - LazarusResources.Add('TGraphicPropertyEditorForm','FORMDATA',[ 'TPF0'#26'TGraphicPropertyEditorForm'#25'GraphicPropertyEditorForm'#4'Left'#3 +'"'#1#6'Height'#3'J'#1#3'Top'#3#153#0#5'Width'#3'r'#1#18'HorzScrollBar.Page' +#3'q'#1#18'VertScrollBar.Page'#3'I'#1#13'ActiveControl'#7#10'LoadButton'#7'C' +'aption'#6#17'Load Image Dialog'#21'Constraints.MinHeight'#3#180#0#20'Constr' - +'aints.MinWidth'#3#200#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#15'poDes' - +'ktopCenter'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#6#6'Height'#3'!'#1#3'Top' - +#2#6#5'Width'#3'f'#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7 - +'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Picture' - +#8'TabOrder'#2#0#0#7'TButton'#10'LoadButton'#4'Left'#3#19#1#6'Height'#2#25#5 - +'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Around'#2#6 + +'aints.MinWidth'#3#200#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScr' + +'eenCenter'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#6#6'Height'#3'!'#1#3'Top'#2 + +#6#5'Width'#3'f'#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak' + +'Right'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Picture'#8 + +'TabOrder'#2#0#0#7'TButton'#10'LoadButton'#4'Left'#3#19#1#6'Height'#2#25#5'W' + +'idth'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Around'#2#6 +#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4'Load'#7'OnClick'#7#15'Load' +'ButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#10'SaveButton'#4'Left'#3#19#1#6 +'Height'#2#25#3'Top'#2#31#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0 diff --git a/ideintf/maskpropedit.lfm b/ideintf/maskpropedit.lfm index 726757b50a..11b502ff03 100644 --- a/ideintf/maskpropedit.lfm +++ b/ideintf/maskpropedit.lfm @@ -5,7 +5,7 @@ object MaskEditorForm: TMaskEditorForm ClientWidth = 507 OnCreate = MaskEditorFormCreate PixelsPerInch = 96 - Position = poDesktopCenter + Position = poScreenCenter HorzScrollBar.Page = 506 VertScrollBar.Page = 238 Left = 458 diff --git a/ideintf/maskpropedit.lrs b/ideintf/maskpropedit.lrs index 081002abfb..a17b76c5a2 100644 --- a/ideintf/maskpropedit.lrs +++ b/ideintf/maskpropedit.lrs @@ -2,40 +2,40 @@ 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'`'#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'#22'BorderSpacing.OnChange'#13#7'Captio' - +'n'#6#12'&Input Mask:'#5'Color'#7#6'clNone'#12'FocusControl'#7#13'InputMaskE' - +'dit'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#8#5'Width'#2'@'#0#0#6'TLabel'#16'S' - +'ampleMasksLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'&Sample Mask' - +'s:'#5'Color'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#13#3'Top'#2#5#5'Width' - +#2'M'#0#0#6'TLabel'#24'CharactersForBlanksLabel'#22'BorderSpacing.OnChange' - +#13#7'Caption'#6#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusCont' - +'rol'#7#23'CharactersForBlanksEdit'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'>'#5 - +'Width'#2'f'#0#0#5'TEdit'#13'InputMaskEdit'#22'BorderSpacing.OnChange'#13#8 - +'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2 - +#23#3'Top'#2#24#5'Width'#3#192#0#0#0#8'TListBox'#18'SampleMasksListBox'#7'An' - +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnCh' - +'ange'#13#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#4'Left'#3 - +#208#0#6'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7'TButton'#8'OkButt' - +'on'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7 - +'Caption'#6#2'OK'#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Left'#3#7#1#6'Height' - +#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#12'CancelButton'#7'Anchors' - +#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#6'Ca' - +'ncel'#11'ModalResult'#2#2#8'TabOrder'#2#3#4'Left'#3'W'#1#6'Height'#2#25#3'T' - +'op'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#10'HelpButton'#7'Anchors'#11#7'akR' - +'ight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#5'&Help'#8'T' - +'abOrder'#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0 - +#7'TButton'#21'LoadSampleMasksButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0 - +#22'BorderSpacing.OnChange'#13#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'Loa' - +'dSampleMasksButtonClick'#8'TabOrder'#2#5#4'Left'#2#16#6'Height'#2#25#3'Top' - +#3#206#0#5'Width'#2'K'#0#0#5'TEdit'#23'CharactersForBlanksEdit'#7'Anchors'#11 - +#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#18'BorderSpac' - +'ing.Left'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'CharactersForBlankEditChang' - +'e'#8'TabOrder'#2#6#22'AnchorSideLeft.Control'#7#24'CharactersForBlanksLabel' - +#23'AnchorSideRight.Control'#7#13'InputMaskEdit'#20'AnchorSideRight.Side'#7#9 - +'asrBottom'#4'Left'#2'q'#6'Height'#2#23#3'Top'#2'8'#5'Width'#2'W'#0#0#9'TChe' - +'ckBox'#19'SaveLiteralCheckBox'#22'BorderSpacing.OnChange'#13#7'Caption'#6#24 + +'ion'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3#250#1#18'VertScrollBar.P' + +'age'#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'Caption'#6 + +#12'&Input Mask:'#5'Color'#7#6'clNone'#12'FocusControl'#7#13'InputMaskEdit'#4 + +'Left'#2#8#6'Height'#2#13#3'Top'#2#8#5'Width'#2'@'#0#0#6'TLabel'#16'SampleMa' + +'sksLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'&Sample Masks:'#5'C' + +'olor'#7#6'clNone'#4'Left'#3#208#0#6'Height'#2#13#3'Top'#2#5#5'Width'#2'M'#0 + +#0#6'TLabel'#24'CharactersForBlanksLabel'#22'BorderSpacing.OnChange'#13#7'Ca' + +'ption'#6#21'Character for Blanks:'#5'Color'#7#6'clNone'#12'FocusControl'#7 + +#23'CharactersForBlanksEdit'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'>'#5'Width' + +#2'f'#0#0#5'TEdit'#13'InputMaskEdit'#22'BorderSpacing.OnChange'#13#8'OnChang' + +'e'#7#19'InputMaskEditChange'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#23#3'T' + +'op'#2#24#5'Width'#3#192#0#0#0#8'TListBox'#18'SampleMasksListBox'#7'Anchors' + +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13 + +#7'OnClick'#7#23'SampleMasksListBoxClick'#8'TabOrder'#2#1#4'Left'#3#208#0#6 + +'Height'#3#174#0#3'Top'#2#24#5'Width'#3#31#1#0#0#7'TButton'#8'OkButton'#7'An' + +'chors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption' + +#6#2'OK'#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Left'#3#7#1#6'Height'#2#25#3 + +'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#7 + +'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#6'Cancel' + +#11'ModalResult'#2#2#8'TabOrder'#2#3#4'Left'#3'W'#1#6'Height'#2#25#3'Top'#3 + +#206#0#5'Width'#2'K'#0#0#7'TButton'#10'HelpButton'#7'Anchors'#11#7'akRight'#8 + +'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#5'&Help'#8'TabOrder' + +#2#4#4'Left'#3#167#1#6'Height'#2#25#3'Top'#3#206#0#5'Width'#2'K'#0#0#7'TButt' + +'on'#21'LoadSampleMasksButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#22'Bord' + +'erSpacing.OnChange'#13#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSample' + +'MasksButtonClick'#8'TabOrder'#2#5#4'Left'#2#16#6'Height'#2#25#3'Top'#3#206#0 + +#5'Width'#2'K'#0#0#5'TEdit'#23'CharactersForBlanksEdit'#7'Anchors'#11#5'akTo' + +'p'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Le' + +'ft'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'CharactersForBlankEditChange'#8'T' + +'abOrder'#2#6#22'AnchorSideLeft.Control'#7#24'CharactersForBlanksLabel'#23'A' + +'nchorSideRight.Control'#7#13'InputMaskEdit'#20'AnchorSideRight.Side'#7#9'as' + +'rBottom'#4'Left'#2'q'#6'Height'#2#23#3'Top'#2'8'#5'Width'#2'W'#0#0#9'TCheck' + +'Box'#19'SaveLiteralCheckBox'#22'BorderSpacing.OnChange'#13#7'Caption'#6#24 +'Save &Literal Characters'#7'OnClick'#7#24'SaveLiteralCheckBoxClick'#8'TabOr' +'der'#2#7#11'UseOnChange'#9#4'Left'#2#8#6'Height'#2#13#3'Top'#2'X'#5'Width'#3 +#138#0#0#0#6'TPanel'#14'TestInputPanel'#22'BorderSpacing.OnChange'#13#10'Bev' diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp index fc5a85edee..2c700424c7 100644 --- a/ideintf/propedits.pp +++ b/ideintf/propedits.pp @@ -4814,7 +4814,7 @@ begin Caption:='Filter editor'; Height:=295; Width:=417; - Position:=poDesktopCenter; + Position:=poScreenCenter; BorderStyle:=bsDialog; StringGrid1:=TStringGrid.Create(Self); StringGrid1.ColCount:=2;