mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 15:03:35 +02:00
IDE: clean up
git-svn-id: trunk@25943 -
This commit is contained in:
parent
a760ac7f88
commit
02573ad6a6
@ -94,7 +94,6 @@ begin
|
|||||||
inherited Create(TheOwner);
|
inherited Create(TheOwner);
|
||||||
|
|
||||||
Caption := lisKMEvaluateModify;
|
Caption := lisKMEvaluateModify;
|
||||||
IDEDialogLayoutList.ApplyLayout(Self, 400, 290);
|
|
||||||
cmbExpression.Items.Assign(InputHistories.HistoryLists.GetList(ClassName, True));
|
cmbExpression.Items.Assign(InputHistories.HistoryLists.GetList(ClassName, True));
|
||||||
|
|
||||||
tbEvaluate.Caption := lisEvaluate;
|
tbEvaluate.Caption := lisEvaluate;
|
||||||
|
@ -371,7 +371,6 @@ begin
|
|||||||
FMethodsGrid := NewGrid('MethodsGrid', MethodsPage, FMethodsGridHook);
|
FMethodsGrid := NewGrid('MethodsGrid', MethodsPage, FMethodsGridHook);
|
||||||
|
|
||||||
Localize;
|
Localize;
|
||||||
IDEDialogLayoutList.ApplyLayout(Self, 260, 400);
|
|
||||||
|
|
||||||
FGridData:=TStringGrid.Create(DataPage);
|
FGridData:=TStringGrid.Create(DataPage);
|
||||||
DataPage.InsertControl(FGridData);
|
DataPage.InsertControl(FGridData);
|
||||||
|
@ -31,7 +31,8 @@ type
|
|||||||
|
|
||||||
TIDEDialogLayoutList = class;
|
TIDEDialogLayoutList = class;
|
||||||
|
|
||||||
{ TIDEDialogLayout }
|
{ TIDEDialogLayout - for modal forms
|
||||||
|
For non modal forms see TIDEWindowCreator below }
|
||||||
|
|
||||||
TIDEDialogLayout = class
|
TIDEDialogLayout = class
|
||||||
private
|
private
|
||||||
@ -57,7 +58,7 @@ type
|
|||||||
end;
|
end;
|
||||||
TIDEDialogLayoutClass = class of TIDEDialogLayout;
|
TIDEDialogLayoutClass = class of TIDEDialogLayout;
|
||||||
|
|
||||||
{ TIDEDialogLayoutList }
|
{ TIDEDialogLayoutList - for modal forms }
|
||||||
|
|
||||||
TIDEDialogLayoutList = class
|
TIDEDialogLayoutList = class
|
||||||
private
|
private
|
||||||
|
Loading…
Reference in New Issue
Block a user