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

MG: fixed initial resize

Browse Source 
git-svn-id: trunk@1812 -
This commit is contained in:
lazarus 2002-08-02 07:24:39 +00:00
parent 420a1c441d
commit cf6c1918db
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/diskdiffsdialog.pas
View File

@ -46,6 +46,7 @@ type
procedure DiskDiffsDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DiskDiffsDlgResize(Sender: TObject);
procedure MainGroupBoxResize(Sender: TObject);
private
FUnitList: TList;
procedure FillFilesListBox;
@ -93,11 +94,6 @@ begin
Height:=Self.ClientHeight-50-Top;
end;
with DiffSynEdit do begin
Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top;
end;
with RevertAllButton do begin
Top:=Self.ClientHeight-40;
end;
@ -108,6 +104,14 @@ begin
end;
end;
procedure TDiskDiffsDlg.MainGroupBoxResize(Sender: TObject);
begin
with DiffSynEdit do begin
Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top;
end;
end;
procedure TDiskDiffsDlg.FillFilesListBox;
var i: integer;
begin
@ -143,6 +147,7 @@ begin
Height:=Self.ClientHeight-50-Top;
Caption:='Changed files:';
Visible:=true;
OnResize:=@MainGroupBoxResize;
end;
FilesListBox:=TListBox.Create(Self);
@ -164,7 +169,7 @@ begin
Top:=FilesListBox.Height+2;
Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top;
Lines.Text:='Diff not implemented yet.';
Lines.Text:='The Diff View is not implemented yet.';
Visible:=true;
end;