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

improved autosizing of project inspector

Browse Source 
git-svn-id: trunk@7340 -
This commit is contained in:
mattias 2005-07-13 07:41:05 +00:00
parent 384a57a132
commit cb4bbdbc39
2 changed files with 26 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
ide/projectinspector.pas
View File

@ -155,37 +155,7 @@ implementation
{ TProjectInspectorForm }
procedure TProjectInspectorForm.ProjectInspectorFormResize(Sender: TObject);
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
x:=0;
y:=0;
w:=(ClientWidth div 4);
h:=25;
with OptionsBitBtn do
SetBounds(x,y,w,h);
inc(x,w);
with OpenBitBtn do
SetBounds(x,y,w,h);
inc(x,w);
with AddBitBtn do
SetBounds(x,y,w,h);
inc(x,w);
w:=ClientWidth-x;
with RemoveBitBtn do
SetBounds(x,y,w,h);
inc(x,w);
x:=0;
inc(y,h);
with ItemsTreeView do
SetBounds(x,y,Parent.ClientWidth,Parent.ClientHeight-y);
end;
procedure TProjectInspectorForm.ItemsTreeViewDblClick(Sender: TObject);
@ -445,6 +415,8 @@ begin
Parent:=Self;
Caption:=lisMenuOpen;
OnClick:=@OpenBitBtnClick;
AutoSize:=true;
SetBounds(0,0,Width,Height);
end;
AddBitBtn:=TBitBtn.Create(Self);
@ -453,14 +425,9 @@ begin
Parent:=Self;
Caption:=lisCodeTemplAdd;
OnClick:=@AddBitBtnClick;
end;
OptionsBitBtn:=TBitBtn.Create(Self);
with OptionsBitBtn do begin
Name:='OptionsBitBtn';
Parent:=Self;
Caption:=dlgFROpts;
OnClick:=@OptionsBitBtnClick;
AutoSize:=true;
AnchorToNeighbour(akLeft,0,OpenBitBtn);
Top:=0;
end;
RemoveBitBtn:=TBitBtn.Create(Self);
@ -469,6 +436,21 @@ begin
Parent:=Self;
Caption:=lisExtToolRemove;
OnClick:=@RemoveBitBtnClick;
AutoSize:=true;
AnchorToNeighbour(akLeft,0,AddBitBtn);
Top:=0;
end;
OptionsBitBtn:=TBitBtn.Create(Self);
with OptionsBitBtn do begin
Name:='OptionsBitBtn';
Parent:=Self;
Caption:=dlgFROpts;
OnClick:=@OptionsBitBtnClick;
AutoSize:=true;
AnchorToNeighbour(akLeft,0,RemoveBitBtn);
AnchorParallel(akRight,0,Parent);
Top:=0;
end;
ItemsTreeView:=TTreeView.Create(Self);
@ -486,6 +468,8 @@ begin
DependenciesNode.ImageIndex:=ImageIndexRequired;
DependenciesNode.SelectedIndex:=DependenciesNode.ImageIndex;
PopupMenu:=ItemsPopupMenu;
Align:=alBottom;
AnchorToNeighbour(akTop,0,OptionsBitBtn);
end;
end;

5
lcl/include/wincontrol.inc
View File

@ -3704,7 +3704,7 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.WMChar(var Message: TLMChar);
begin
debugln('TWinControl.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode));
//debugln('TWinControl.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode));
if DoRemainingKeyPress(Message) then
Message.Result := 1;
Assert(False, Format('Trace:[TWinControl.WMChar] %s', [ClassName]));
@ -4579,6 +4579,9 @@ end;
{ =============================================================================
$Log$
Revision 1.337 2005/07/13 07:41:05 mattias
improved autosizing of project inspector
Revision 1.336 2005/07/09 16:20:50 mattias
TSplitter can now also work with Align=alNone and AnchorSide