Delphi - Scroll v ListBoxu

[Irox]

Zdravím,

mám komponentu ListBox, do které se mi zapisují cesty k souborům. Když ale cesta (text jedné položky) je delší než šířka Lbx, ořízne se a není žádná možnost ho nějak posunout a Lbx ani neumí horizontální posuvník. Potřebuju, aby v případě nutnosti bylo možné si celou cestu prohlédnout, ale to jen tím způsobem, že někde bude vypsaná a celou jí uvidim pouze za pomocí scrollu. Neporadil by prosím někdo, jak tento problém vyřešit? Potřebuju seznamovou komponentu, takže Lbx je ideální, ale bohůžel právě bez možnosti posunutí do prava či do leva. A bohůžel musí mít menší rozměry.

screen:


Děkuji.

[Reklama]

[CZechBoY]

zjisti si šířku toho listBoxu a pak počítej počet písmen, plus minus by to mohlo jít, sice je to amatérský ale se správným ratiem docílíš toho že se ti to vejde celý :-) pokud si s tim pohraješ a třeba krátký znaky(třeba lomítka, tečky atd.) spočítáš a zase odečteš tak to bdueš mít úplně přesný

doufám že chápeš co myslím

[Irox]

Nejsem si úplně jistý, jestli jsem to pochopil - formát textu? Vypočítat znaky tak, aby to na šířku Lbx vycházelo? Jde právě o to, že bych tam chtěl mít cestu celou - nepřeformátovanou. Úplně by mě stačil jen ten horizontální posuvník, ale právě nemůžu najít komponentu, která by to uměla a v základu by byla stejná jako Lbx. Nebo jsem to pochopil špatně?

Díky za odpovědi.

[CZechBoY]

aha ty chceš posuvník, já zase myslel že vždy když přidáš tu cestu tak spočítáš počet znaků, vynásobíš nějakým ratiem(abys dostal pixely) a srovnáš to s šířkou ListBoxu, pak když je větší než šířka ListBoxu tak šířkaListboxu=početPísmen*ratio

[Irox]

To by šlo také, ale jde právě o to, že ten Lbx chci mít s fixní velikostí. Proto jsem se chtěl zeptat, jestli někdo nemá nějaký nápad, jak tohle vyřešit. Jestli neexistuje nějaká komponenta, která by byla stejná jako lbx a stejně fungovala, ale měla navíc ten posuvník nebo nějaké jiné řešení, jak vidět v každé řádce celý text.
Každopádně díky za nápad.

[CZechBoY]

tak v tom případě jen Google, delphi neumim
http://www.delphitricks.com/source-code ... stbox.html

[Irox]

Funguje to úplně skvěle! Děkuji mnohokrát :)