Label senkrecht schreiben?

arnydaniel · Beiträge: 80 hoffentlich bald Linux Delphi 6

Hi,

ist es möglich dass ich eine Label senkrecht schreibe?
Also nicht "hallo", sondern
"h
a
l
l
o"?

Gruß

_________________
Wenn jeder nur an sich denkt, wird an jeden gedacht.

Gausi · Verfasst: Di 20.09.05 19:52

So:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

label1.caption := 
    'H' + #13#10+ 
    'a' + #13#10+ 
    'l' + #13#10+ 
    'l' + #13#10+ 
    'o';

gf. Die Größe des Labels entsprechend anpassen, z.B. Autosize auf True

_________________
We are, we were and will not be.

matze.de · Verfasst: Mi 21.09.05 11:46

Würde aber allgemeiner machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure SetVerticalCaption(ALabel: TLabel; AText: String);
var i: integer;
begin
    ALabel.Caption := '';
    for i := 1 to Length(AText) do
        ALabel.Caption := ALabel.Caption + AText[i] + #13#10;
end;

mfg matze

_________________
si tacuisses, philosophus mansisses.

BenBE · Verfasst: Mi 21.09.05 11:57

Man kann aber auch direkt anweisen, den Text zu drehen: www.swissdelphicente...showcode.php?id=1596

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

uall@ogc · Verfasst: Mi 21.09.05 12:00

BenBe dann stehen die Buchstaben aber nicht mehr untereinander. die sind dann wirlkich um 90° gedreht.
ich weiß ja nicht was der threadersteller eher haben will

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme