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

fixed value synedit heights in codetools defines editor

Browse Source 
git-svn-id: trunk@5938 -
This commit is contained in:
mattias 2004-09-07 12:34:04 +00:00
parent 0aac112e5b
commit de212d1f9b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codetoolsdefines.pas
View File

@ -1026,23 +1026,21 @@ begin
end; end;
procedure TCodeToolsDefinesEditor.ValueNoteBookResize(Sender: TObject); procedure TCodeToolsDefinesEditor.ValueNoteBookResize(Sender: TObject);
var ValNoteBookMaxX, ValNoteBookMaxY: integer; var
ValNoteBookMaxX: integer;
begin begin
//ValNoteBookMaxX:=ValueNoteBook.ClientWidth-10;//ValueAsTextSynEdit.Parent.ClientWidth; //ValNoteBookMaxX:=ValueNoteBook.ClientWidth-10;//ValueAsTextSynEdit.Parent.ClientWidth;
//ValNoteBookMaxY:=ValueNoteBook.ClientHeight-30;//ValueAsTextSynEdit.Parent.ClientHeight; //ValNoteBookMaxY:=ValueNoteBook.ClientHeight-30;//ValueAsTextSynEdit.Parent.ClientHeight;
ValNoteBookMaxX:=ValueAsTextSynEdit.Parent.ClientWidth; ValNoteBookMaxX:=ValueAsTextSynEdit.Parent.ClientWidth;
ValNoteBookMaxY:=ValueAsTextSynEdit.Parent.ClientHeight;
with ValueAsTextSynEdit do begin with ValueAsTextSynEdit do begin
Left:=0; Left:=0;
Top:=0; Top:=0;
Width:=ValNoteBookMaxX; Width:=ValNoteBookMaxX;
Height:=ValNoteBookMaxY;
end; end;
with ValueAsFilePathsSynEdit do begin with ValueAsFilePathsSynEdit do begin
Left:=0; Left:=0;
Top:=0; Top:=0;
Width:=ValNoteBookMaxX-80; Width:=ValNoteBookMaxX-80;
Height:=ValNoteBookMaxY;
end; end;
with MoveFilePathUpBitBtn do begin with MoveFilePathUpBitBtn do begin
Left:=ValNoteBookMaxX-75; Left:=ValNoteBookMaxX-75;
@ -1518,12 +1516,14 @@ begin
ValueAsTextSynEdit.Gutter.Visible:=false; ValueAsTextSynEdit.Gutter.Visible:=false;
ValueAsTextSynEdit.Align:=alClient; ValueAsTextSynEdit.Align:=alClient;
ValueAsTextSynEdit.Scrollbars:=ssBoth; ValueAsTextSynEdit.Scrollbars:=ssBoth;
ValueAsTextSynEdit.Align:=alLeft;
CreateWinControl(ValueAsFilePathsSynEdit,TSynEdit,'ValueAsFilePathsSynEdit', CreateWinControl(ValueAsFilePathsSynEdit,TSynEdit,'ValueAsFilePathsSynEdit',
ValueNoteBook.Page[1]); ValueNoteBook.Page[1]);
ValueAsFilePathsSynEdit.Options:=ValueAsTextSynEdit.Options; ValueAsFilePathsSynEdit.Options:=ValueAsTextSynEdit.Options;
ValueAsFilePathsSynEdit.Gutter.Visible:=false; ValueAsFilePathsSynEdit.Gutter.Visible:=false;
ValueAsFilePathsSynEdit.Scrollbars:=ssBoth; ValueAsFilePathsSynEdit.Scrollbars:=ssBoth;
ValueAsFilePathsSynEdit.Align:=alLeft;
CreateWinControl(MoveFilePathUpBitBtn,TBitBtn,'MoveFilePathUpBitBtn', CreateWinControl(MoveFilePathUpBitBtn,TBitBtn,'MoveFilePathUpBitBtn',
ValueNoteBook.Page[1]); ValueNoteBook.Page[1]);