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 <[email protected]>
Komu: Lazarus mailing list <[email protected]>
Datum: 26.11.2014 08:42
Předmět: Re: [Lazarus] OI Checkboxes
On Tuesday, November 25, 2014, Vojtěch Čihák <[email protected]
<[email protected]>> 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
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus>
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
