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

IDEIntf: improved layout of file dialog filter property dialog

Browse Source 
git-svn-id: trunk@16034 -
This commit is contained in:
mattias 2008-08-12 12:57:28 +00:00
parent 6c5d67e54c
commit 5014375f11
2 changed files with 32 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/objinspstrconsts.pas
View File

@ -359,6 +359,8 @@ resourcestring
oisTheMethodIsIncompatibleToThisEventPressCancelToUnd = 'The method %s%s%s '
+'is incompatible to this event (%s).%sPress Cancel to undo,%spress '
+'Ignore to force it.';
peFilterName = 'Filter name';
peFilter = 'Filter';
implementation

53
ideintf/propedits.pp
View File

@ -4987,6 +4987,8 @@ begin
end;
constructor TFileFilterPropertyEditorForm.Create(AOwner: TComponent);
var
BtnPanel: TPanel;
begin
inherited Create(AOwner);
Caption:='Filter editor';
@ -4994,37 +4996,42 @@ begin
Width:=417;
Position:=poScreenCenter;
BorderStyle:=bsDialog;
StringGrid1:=TStringGrid.Create(Self);
StringGrid1.ColCount:=2;
StringGrid1.DefaultColWidth:=190;
StringGrid1.Options:=StringGrid1.Options + [goEditing, goAlwaysShowEditor];
StringGrid1.RowCount:= 100;
StringGrid1.Left:= 8;
StringGrid1.Height := 248;
StringGrid1.Top := 8;
StringGrid1.Width := 408;
StringGrid1.Parent:=Self;
StringGrid1.FixedCols := 0;
BtnPanel:=TPanel.Create(Self);
with BtnPanel do begin
Name:='BtnPanel';
Caption:='';
BevelOuter:=bvNone;
Align:=alBottom;
AutoSize:=true;
Parent:=Self;
end;
with TBitBtn.Create(Self) do
begin
Parent:=Self;
BorderSpacing.Around:=6;
Kind := bkOK;
Left := 256;
Height := 25;
Top := 264;
Width := 75;
Align:=alRight;
Parent:=BtnPanel;
end;
with TBitBtn.Create(Self) do
begin
Parent:=Self;
BorderSpacing.Around:=6;
Kind := bkCancel;
Left := 341;
Height := 25;
Top := 264;
Width := 75;
Align:=alRight;
Parent:=BtnPanel;
end;
StringGrid1:=TStringGrid.Create(Self);
with StringGrid1 do begin
BorderSpacing.Around:=6;
ColCount:=2;
DefaultColWidth:=190;
Options:=StringGrid1.Options + [goEditing, goAlwaysShowEditor];
RowCount:= 100;
FixedCols := 0;
Align:=alClient;
Parent:=Self;
Cells[0, 0]:=peFilterName;
Cells[1, 0]:=peFilter;
end;
StringGrid1.Cells[0,0]:='Filter name';
StringGrid1.Cells[1,0]:='Filter';
end;
{ TFileDlgFilterProperty }