paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 16:37:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

synedit: TSynBaseCompletionForm: paint background not on scrollbar area

Browse Source 
git-svn-id: trunk@38847 -
This commit is contained in:
mattias 2012-09-26 11:19:08 +00:00
parent 99f009f39d
commit 4eb36e3724
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/syncompletion.pas
View File

@ -814,6 +814,7 @@ end;
procedure TSynBaseCompletionForm.Paint;
var
i: integer;
PaintWidth: Integer;
function Min(a, b: integer): integer;
begin
@ -842,6 +843,8 @@ begin
Scroll.Max := 0;
end;
PaintWidth:=Width-Scroll.Width;
//DebugLn(['TSynBaseCompletionForm.Paint NbLinesInWindow=',NbLinesInWindow,' ItemList.Count=',ItemList.Count]);
for i := 0 to min(NbLinesInWindow - 1, ItemList.Count - Scroll.Position - 1) do
begin
@ -850,7 +853,8 @@ begin
Canvas.Brush.Color := clSelect;
Canvas.Pen.Color := clSelect;
Canvas.Rectangle(DrawBorderWidth, DrawBorderWidth+(FFontHeight * i),
Width-2*DrawBorderWidth, (FFontHeight * (i + 1))+1);
PaintWidth-2*DrawBorderWidth,
(FFontHeight * (i + 1))+1);
Canvas.Pen.Color := clBlack;
Canvas.Font.Color := TextSelectedColor;
Hint := ItemList[Position];
@ -860,7 +864,8 @@ begin
Canvas.Brush.Color := BackgroundColor;
Canvas.Font.Color := TextColor;
Canvas.FillRect(Rect(DrawBorderWidth, DrawBorderWidth+(FFontHeight * i),
Width-2*DrawBorderWidth, (FFontHeight * (i + 1))+1));
PaintWidth-2*DrawBorderWidth,
(FFontHeight * (i + 1))+1));
end;
//DebugLn(['TSynBaseCompletionForm.Paint ',i,' ',ItemList[Scroll.Position + i]]);
@ -878,7 +883,7 @@ begin
begin
Canvas.brush.color := color;
i:=(FFontHeight * ItemList.Count)+1;
Canvas.FillRect(Rect(0, i, Width, Height));
Canvas.FillRect(Rect(0, i, PaintWidth, Height));
end;
// draw a rectangle around the window
if DrawBorderWidth > 0 then begin