Delphi THTMLISTBOX Vertical align ?

[drama22]

i want to show selected item and all other items in middle position i currently do this to center the item

Delphi-Quellcode:

<p align="center">' + item +
    '</p>'

thats centered it but how to get it in middle when Like vertical align

i tested vertical-align but did not work any suggestion ?

i tried to put it in <ul> Tag its kinda working but i dont need the dot beside the name i try to remove it as basic html like

Delphi-Quellcode:

'<ul><li type="none"><p align="center">' + item +
    '</p></li></ul><BR>'

but there is huge height between each item how to control on the item height ?

[Volker Z.]

Hello,

Zitat:

[...] any suggestion ?

have you tried it with a blind (transparent) image?

1. create a transparent gif or png (size 1 x 1 pixel)
2. put a THTMListBox, TButton and a TPictureContainer component on a form
3. add your transparent image to the picture container and rename it to "blind_1x1" (not really necessary)
4. add an OnClick event to your button control
5. try the following code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : string;
begin
  for i := 0 to 6 do
    begin
      s := IntToStr (HTMListBox1.ItemHeight + 2 * (i + 1));
      HTMListBox1.Items.Add ('<p align="center"><img src="blind_1x1" width="1" height="' + s + '" align="middle">Test ' + s + '</p>')
    end
end;

Maybe it helps.

Greetings

[drama22]

Zitat von Volker Z.:

Hello,

Zitat:

[...] any suggestion ?

have you tried it with a blind (transparent) image?

1. create a transparent gif or png (size 1 x 1 pixel)
2. put a THTMListBox, TButton and a TPictureContainer component on a form
3. add your transparent image to the picture container and rename it to "blind_1x1" (not really necessary)
4. add an OnClick event to your button control
5. try the following code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : string;
begin
  for i := 0 to 6 do
    begin
      s := IntToStr (HTMListBox1.ItemHeight + 2 * (i + 1));
      HTMListBox1.Items.Add ('<p align="center"><img src="blind_1x1" width="1" height="' + s + '" align="middle">Test ' + s + '</p>')
    end
end;

Maybe it helps.

Greetings

i dont know why THTMLISBOX does not load any image inside it i do as you said but its not working

[Volker Z.]

Hello,

Zitat:

[...] i do as you said but its not working

is your PictureContainer property set (sorry, I forgot to mention)? Check it in the object inspector.

Greetings

[drama22]

Zitat von Volker Z.:

Hello,

Zitat:

[...] i do as you said but its not working

is your PictureContainer property set (sorry, I forgot to mention)? Check it in the object inspector.

Greetings

oh yeah i got it i set picture container and added gif and jpeg and png in my uses Thanks it works but another thing why my animated image does not shows as animated ? in THTMLISTBOX i load the animated images from picture container