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

Editoropts/Color: Fix dropdown for frame edges

Browse Source 
git-svn-id: trunk@34911 -
This commit is contained in:
martin 2012-01-24 21:35:56 +00:00
parent c476451318
commit 3f6ce14ac5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/editor_color_options.pas
View File

@ -550,12 +550,12 @@ begin
pen.Color := PCol;
Pen.Style := psSolid;
case Index of
0: Rectangle(r);
1: begin
ord(sfeAround): Rectangle(r);
ord(sfeBottom): begin
MoveTo(r.Left, r.Bottom);
LineTo(r.Right-1, r.Bottom);
end;
2: begin
ord(sfeLeft): begin
MoveTo(r.Left, r.Top);
LineTo(r.Left, r.Bottom-1);
end;