Thema: Delphi Paintbox NUllpunkt

Einzelnen Beitrag anzeigen

r3p47

Registriert seit: 4. Sep 2005
Ort: /home
5 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Paintbox NUllpunkt

  Alt 30. Nov 2005, 20:53
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);
  Mit Zitat antworten Zitat