[BuzzLeclaire]

Precision :

I use it as

Code:

// it works
procedure TFGestionDesVues.sColBoxFondSelect(Sender: TObject);
begin
if TsColorBox(Sender).Itemindex = -1 then exit;
sLBoxAfficher.Color := StringToColor(TsColorBox(Sender).Items[TsColorBox(Sender).Itemindex]);
end;
…

//it does not work
procedure TFGestionDesVues.sBtnPoliceClick(Sender: TObject);
begin
if FontDialog1.Execute then
begin
sLBoxAfficher.Font := FontDialog1.Font;
end;
end;

sLBoxAfficher is a TslistBox, skins = None

Thx

[Support]

Hello

The problem is solved?

[BuzzLeclaire]

Hello,

Yes my problems is solved.

I simply removed my TListBox (I didn 't used sTlistBox), then I replaced, and it works like magic.

thank you.

[Author]

Posts