paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 02:59:21 +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; procedure DiskDiffsDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
procedure DiskDiffsDlgResize(Sender: TObject); procedure DiskDiffsDlgResize(Sender: TObject);
procedure MainGroupBoxResize(Sender: TObject);
private private
FUnitList: TList; FUnitList: TList;
procedure FillFilesListBox; procedure FillFilesListBox;
@ -93,11 +94,6 @@ begin
Height:=Self.ClientHeight-50-Top; Height:=Self.ClientHeight-50-Top;
end; end;
with DiffSynEdit do begin
Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top;
end;
with RevertAllButton do begin with RevertAllButton do begin
Top:=Self.ClientHeight-40; Top:=Self.ClientHeight-40;
end; end;
@ -108,6 +104,14 @@ begin
end; end;
end; end;
procedure TDiskDiffsDlg.MainGroupBoxResize(Sender: TObject);
begin
with DiffSynEdit do begin
Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top;
end;
end;
procedure TDiskDiffsDlg.FillFilesListBox; procedure TDiskDiffsDlg.FillFilesListBox;
var i: integer; var i: integer;
begin begin
@ -143,6 +147,7 @@ begin
Height:=Self.ClientHeight-50-Top; Height:=Self.ClientHeight-50-Top;
Caption:='Changed files:'; Caption:='Changed files:';
Visible:=true; Visible:=true;
OnResize:=@MainGroupBoxResize;
end; end;
FilesListBox:=TListBox.Create(Self); FilesListBox:=TListBox.Create(Self);
@ -164,7 +169,7 @@ begin
Top:=FilesListBox.Height+2; Top:=FilesListBox.Height+2;
Width:=MainGroupBox.ClientWidth; Width:=MainGroupBox.ClientWidth;
Height:=MainGroupBox.ClientHeight-Top; Height:=MainGroupBox.ClientHeight-Top;
Lines.Text:='Diff not implemented yet.'; Lines.Text:='The Diff View is not implemented yet.';
Visible:=true; Visible:=true;
end; end;