Tuesday, July 25, 2006

Předpokládejme,

že máte například někde na hlavním formuláři aktuální adresář uložen v běžně používané komponentě Label. Lépe řečeno, řetězec s celou cestou aktuálního adresáře potřebujete vměstnat do Labelu. Nejprve nastavte jeho vlastnost Autosize na False a poté ručně zvolte vhodnou maximální délku. Nyní již zbývá jen upravit samotný řetězec, který poté necháme Label zobrazit. Ten upravíme tímto jedním řádkem:
Label1.Caption:=MinimizeName(Cesta, Label1.Canvas,Label1.Width);
Proměnná Cesta je typu String a obsahuje původní celou a nezkrácenou cestu. Ve výsledném Labelu se již zobrazí výsledný zkrácený řetězec.