Grafik zentrieren

[ferby]

Hallo,

Ich habe mit Timage einen Grafik eingefügt, gibt es eine möglichkeit das diese Grafik immer in der mitte ist? Nur vertikal (left), die höhe (height) ist vorgegeben.

danke für hilfe

[Nothine]

Delphi-Quellcode:

Image.AutoSize := True;
Image.Left := Form1.Width div 2;
Image.Height := Form1.Height div 2;

hattest du an sowas gedacht?

[dizzy]

Eher wohl an sowas:

Delphi-Quellcode:

Image.Left := (Form1.Width  div 2) - (Image.Width  div 2);
Image.Top  := (Form1.Height div 2) - (Image.Height div 2);

Und wenn die Höhe konstant ist, halt die zweite Zeile überlesen...

[Nothine]

Zitat von dizzy:

Eher wohl an sowas:

Delphi-Quellcode:

Image.Left := (Form1.Width  div 2) - (Image.Width  div 2);
Image.Top  := (Form1.Height div 2) - (Image.Height div 2);

sorry, kleiner (form- bzw.) kunstfehler

[SirThornberry]

ich dachte eher so (spaart einmal "div" und sollte somit auch performanter sein):

Delphi-Quellcode:

Image.Left := (Form1.Width - Image1.Width) div 2;
Image.Top := (Form1.Height - Image1.Height) div 2;

[ferby]

Hallo,

Danke für eure Antworten, an sowas dachte ich schon aber ich dachtew auch das es eine EInstellung z.B: im Objektinspector für sowas gibt.

[dizzy]

Dann halt gleich so:
(Den möglichen 1 Pixel Unterscheid merkt ja eh keiner)

Delphi-Quellcode:

Image.Left := (Form1.Width  - Image1.Width)  shr 1;
Image.Top  := (Form1.Height - Image1.Height) shr 1;

Sollte dann noch schneller sein

\\edit: Im OI dürfte es soetwas nicht geben, aber du könntest ja von TImage ableiten, und die sowas selber dazubauen - den Parent kennt TImage ja, so dass du da an die Width und Height dran kommst.

[Dax]

Oder er nimmt ein TImage, Align = [alClient] und setzt die Center-Property auf true.

[dizzy]

das geht echt? Ooops.