TColorListbox problem with clNone - mark is not crossed

[AlexTP]

Gtk2 and Win32.
Color marks for clNone are Not crossed. They must. LCL has code to cross clNone items:

colorbox.pas

Code: Pascal  [Select][+][-]

1.   if NewColor = clNone then
2.   begin
3.     NewColor := NoneColorColor;
4.     noFill := true;
5.   end
6. ..
7.  
8.   Canvas.Brush.Color := NewColor;
9.   Canvas.Pen.Color := clBlack;
10.  
11. ..
12.   if noFill then
13.   begin
14.     Canvas.Line(r.Left, r.Top, r.Right-1, r.Bottom-1);
15.     Canvas.Line(r.Left, r.Bottom-1, r.Right-1, r.Top);
16.   end;
17.  

Example app: it has ColorListbox and OnCreate event:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   List.Items.Clear;
4.   List.Items.AddObject('test clNone', TObject(clNone));
5.   List.Items.AddObject('test yellow', TObject(clYellow));
6. end;
7.  

property NoneColorColor set to white.

[AlexTP]

Added patch for this. same as TColorBox does. same code.

[lucamar]

Maybe you should add this (both the first post and the patch) to the bug tracker. Just saying.