Skip to content

GitLab

Closed
Created by FPC Admin account@fpc_adminOwner

TColorListbox missed painting of crossed mark for clNone

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)