[BuzzLeclaire]

Hello all,

I have in a Form two listesbox, one with the skin activated on and the other is not activated

(Not activated –> Skin = UNKNOW)

Then I try to change the font name or the font size or on the background the tslistbox (in execution), but never changed. (idem with classic TlistBox)

Who to make free listbox ?

Thx

Sorry, I'm the wrong forum, I've just seen. You can move it?

[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