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

* Optimized setting bitmap dimension

Browse Source 
git-svn-id: trunk@15512 -
This commit is contained in:
marc 2008-06-22 18:27:48 +00:00
parent 89c5ca2c76
commit b9ed9ea932
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syncompletion.pas
View File

@ -648,8 +648,12 @@ begin
{$ENDIF}
Scroll.LargeChange := NbLinesInWindow;
{$IFDEF SYN_LAZARUS}
bitmap.SetSize(ClientWidth, ClientHeight);
{$ELSE}
bitmap.Width:=ClientWidth;
bitmap.Height:=ClientHeight;
{$ENDIF}
with bitmap do begin
{$IFNDEF SYN_LAZARUS}
canvas.pen.color := fbcolor;
@ -827,8 +831,7 @@ begin
OldWidth:=Bitmap.Width+Scroll.Width;
if (OldHeight<>Height) or (OldWidth<>Width) then begin
FNbLinesInWindow := (Height-2+(fFontHeight-1)) div fFontHeight;
Bitmap.Width := Scroll.Left;
Bitmap.Height := Height - 2;
Bitmap.SetSize(Scroll.Left, Height - 2);
Invalidate;
end;
end;