paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 06:58:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Editor-Color-Opts: enhance edges dropdown

Browse Source 
git-svn-id: trunk@27692 -
This commit is contained in:
martin 2010-10-13 22:52:50 +00:00
parent a232a31041
commit 3f3ca48abb
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/frames/editor_color_options.pas
View File

@ -519,6 +519,7 @@ procedure TEditorColorOptionsFrame.FrameEdgesBoxDrawItem(Control: TWinControl; I
ARect: TRect; State: TOwnerDrawState);
var
r: TRect;
PCol: Integer;
begin
if Index < 0 then exit;;
@ -530,16 +531,23 @@ begin
with TCustomComboBox(Control).Canvas do
begin
FillRect(ARect);
Pen.Width := 1;
PCol := pen.Color;
pen.Color := clGray;
Pen.Style := psDot;
Rectangle(r);
Pen.Width := 2;
pen.Color := PCol;
Pen.Style := psSolid;
case Index of
0: Rectangle(r);
1: begin
MoveTo(r.Left, r.Bottom);
LineTo(r.Right, r.Bottom);
LineTo(r.Right-1, r.Bottom);
end;
2: begin
MoveTo(r.Left, r.Top);
LineTo(r.Left, r.Bottom);
LineTo(r.Left, r.Bottom-1);
end;
end;
end;