TColorListbox missed painting of crossed mark for clNone
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
TColorBox has painting of crossed mark, if color value clNone.
I copied this to TColorListbox too.
Search for "noFill" word in colorbox.pas.
Before it painted only filled rect for clNone.
Steps to reproduce:
To check it: new app, place ColorListbox, OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
List.Items.Clear;
List.Items.AddObject('test clNone', TObject(clNone));
//List.Items.AddObject('test yellow', TObject(clYellow));
end;
Mantis conversion info:
- Mantis ID: 34632
- Version: 2.1 (SVN)
- Fixed in revision: r59807 (#7f45a8a1)