I considered other solution. Create a new simple visual component
(TCheckBoxThemed or so). It will have class method:
class procedure PaintSelf(ACanvas: TCanvas; AChecked: Boolean);
used for non-selected rows and it will behave like normal checkbox in selected
rows.
I will guarantee the same look without bunch of {$IFDEF}s.
The component would be TCustomControl derived, with very basic functionality
(click, keydown, bidimode, property Checked).
I guess 300 lines incl. declaration.
______________________________________________________________
Od: Juha Manninen <juha.mannine...@gmail.com>
Komu: Lazarus mailing list <lazarus@lists.lazarus.freepascal.org>
Datum: 26.11.2014 08:42
Předmět: Re: [Lazarus] OI Checkboxes
On Tuesday, November 25, 2014, Vojtěch Čihák <vojtech.ci...@atlas.cz
<vojtech.ci...@atlas.cz>> wrote:
If so, then it will never work properly.
It may never be perfect but it can be very close.I wrapped my mind around this
issue last night and improved it a lot.Please test.Juha
----------
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus>
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
