Paintbox NUllpunkt

[r3p47]

Ich weiss, das Thema wurde hier und auch in anderen Foren schon besprochen, ich komm nur irgendwie nicht mehr weiter.

Ich will mit

Code:

SetViewportOrgEx(paintbox1.Canvas.Handle, 200, 200, nil);

den Nullpunkt meiner Paintbox1, welche 400x400 gross ist, festsetzen.
Dies funktioniert aber nicht.
Wenn ich z.B. schreibe

Code:

var
  bla:longbool;
begin
  bla := SetViewportOrgEx(paintbox1.Canvas.Handle, 200, 200, nil);
  if  bla=true then
  begin
    showmessage('True');
  end
  else
    showmessage('False');
end;

dann kommt true dabei raus.
Aber er nimmt bei den x/y Koordinaten nicht die der Paintbox sonder die des Forms.
Warum weiss ich nicht, auf jeden Fall nervt das, weil ich dann mit dem was in der Paintbox gemalt ist, die Form überschreibe.

Kann mir hier jmd weiterhelfen?

mfg
r3p47

[sniper_w]

TPaintBox nuzt (IMO) TForm.Canvas zum Zeichnen.

[r3p47]

Uhm...nee, Painbox hat ne eigene Canvas.
Na egal, ich habs grad eben rausgefunden.

Wenn jmd das gleiche Problem hat:

Delphi-Quellcode:

  //KoSys umdrehen
  SetMapMode(paintbox1.Canvas.Handle, MM_LOENGLISH);

{     | +y
      |
-x --------> +x
      |
      | -y

}

  //Nullpunkt in die Mitte setzen
  SetViewPortOrgEx(Paintbox1.Canvas.Handle, (Paintbox1.Width div 2) + Paintbox1.Left, (Paintbox1.Height div 2) + Paintbox1.Top, nil);