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

synedit: clean up

Browse Source 
git-svn-id: trunk@15520 -
This commit is contained in:
mattias 2008-06-22 22:57:31 +00:00
parent 29ceac9d9b
commit 4c0ed780bf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syncompletion.pas
View File

@ -831,7 +831,6 @@ begin
OldWidth:=Bitmap.Width+Scroll.Width; OldWidth:=Bitmap.Width+Scroll.Width;
if (OldHeight<>Height) or (OldWidth<>Width) then begin if (OldHeight<>Height) or (OldWidth<>Width) then begin
FNbLinesInWindow := (Height-2+(fFontHeight-1)) div fFontHeight; FNbLinesInWindow := (Height-2+(fFontHeight-1)) div fFontHeight;
Bitmap.SetSize(Scroll.Left, Height - 2);
Invalidate; Invalidate;
end; end;
end; end;
@ -866,9 +865,10 @@ begin
Scroll.Top := 1; Scroll.Top := 1;
Scroll.Left := ClientWidth - Scroll.Width - 1; Scroll.Left := ClientWidth - Scroll.Width - 1;
Scroll.Height := Height - 2; Scroll.Height := Height - 2;
{$ENDIF} {$ELSE}
Bitmap.Width := Scroll.Left; Bitmap.Width := Scroll.Left;
Bitmap.Height := Height - 2; Bitmap.Height := Height - 2;
{$ENDIF}
end; end;
procedure TSynBaseCompletionForm.SetPosition(const Value: Integer); procedure TSynBaseCompletionForm.SetPosition(const Value: Integer);