Stránka 1 z 1

Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 20:09
od 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:
Obrázek

Děkuji.

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 21:54
od 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

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 22:04
od 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.

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 22:05
od 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

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 22:16
od 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.

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 22:24
od CZechBoY
tak v tom případě jen Google, delphi neumim
http://www.delphitricks.com/source-code ... stbox.html

Re: Delphi - Scroll v ListBoxu

Napsal: 03 úno 2011 23:43
od Irox
Funguje to úplně skvěle! Děkuji mnohokrát :)