Paintbox NUllpunkt

[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);