[Lazarus] customdrawn typo

Bernd prof7bit at gmail.com
Sun Sep 7 16:54:00 CEST 2014


svn diff customdrawn_common.pas
Index: customdrawn_common.pas
===================================================================
--- customdrawn_common.pas      (Revision 46149)
+++ customdrawn_common.pas      (Arbeitskopie)
@@ -699,7 +699,7 @@
   ADest.Line(ASize.cx - 1, ASize.cy - 1, ASize.cx - 1, -1);
   ADest.Pen.FPColor := TColorToFPColor($0099A8AC);
   ADest.Line(1, ASize.cy - 2, ASize.cx - 2, ASize.cy - 2);
-  ADest.Line(ASize.cx - 2, ASize.cx - 2, ASize.cx - 2, 0);
+  ADest.Line(ASize.cx - 2, ASize.cy - 2, ASize.cx - 2, 0);
   ADest.Pen.FPColor := TColorToFPColor($00E2EFF1);
   ADest.Line(1, 1, ASize.cx - 2, 1);
   ADest.Line(1, 1, 1, ASize.cy - 2);



This is responsible for a small 2 pixel sized irregularitity at the
lower right corner of a customdrawn button. I noticed it when trying
to change the border colors to something less bright, then it becomes
even more obvious.

I needed to write this down quickly before I forget it again, so I'm
posting it here.

Bernd.




More information about the Lazarus mailing list