 ZeitGeist87 hat folgendes geschrieben: |
Hallo!
Nochmal zum Verständnis: Das Image soll auf der FORM zentriert werden?
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| function CenterImage(MyImage: TImage; MyForm: TForm): Boolean;
begin;
CenterImage:= false;
MyImage.left:= round((MyForm.width/2) - (MyImage.width/2));
MyImage.top:= round((MyForm.height/2) - (MyImage.Height/2));
CenterImage:= true;
end; |
Aufruf:
Delphi-Quelltext
1:
2:
| if not CenterImage(Image1, Form1) = true then
|
LG
Stefan |
Hab mich wohl missverständlich ausgesrückt.Wo das IMage auf der Form ist, is wurscht. Das kann ich ja auch einfach per drag&drop so hinrücken wie ich es möchte. Ich versuch mal zu prezisieren:
Mein Image ist 3000*300 Pxls. Das was darauf gezeichnet werden soll, hat aber meißtens nur ca 500 Pxls Ausdehnung, wird aber IMMER um den Mittelpunkt des Images(1500/1500) gezeichnet. Da der bereich vom Image der auf einmal angezeigt wird aber nur 800*800 Pxls groß ist (wird ja davon bestimmt wie groß die Form ist) sieht man das gezeichnete nur, wenn die 800*800 Pxl um den Mittelpnkt herum angezeigt werden.
Momentan werden die Pixel (0,0,800,800) angezeigt. D.h. ich muss dann immer erst hinscrollen um die Mitte zu sehen.
Will aber dass die Pixel (1100,1900,1100,1900) angezeigt werden.
