' gr ... Grafik, die gedreht werden soll ' cx, cy ... Koordinaten ' angle ... Drehwinkel Private Sub RotateAt(ByVal gr As Graphics, ByVal cx As Integer, ByVal cy As Integer, ByVal angle As Single) gr.ResetTransform() gr.TranslateTransform(-cx, -cy, Drawing2D.MatrixOrder.Append) gr.RotateTransform(angle, Drawing2D.MatrixOrder.Append) gr.TranslateTransform(cx, cy, Drawing2D.MatrixOrder.Append) End Sub
Kategorien
-
Neueste Beiträge
- [ABAP] Workflow: Workitems zu Objekt
- [RAP] Excel-Upload in Fiori-Apps
- [ABAP] OLE2-Objekt ‚SAPINFO‘ aufrufen
- [ABAP] Excel-Daten mit XCO API (xco_cp_xlsx) lesen
- [ABAP] Daten einer internen Tabelle als Excel-Datei speichern (xco_cp_xlsx)
- [ABAP] JSON -> ABAP (xco_cp_json)
- [ABAP] ABAP -> JSON (xco_cp_json)
- [ABAP] String nach SYMSG-Struktur konvertieren
- [ABAP] Unix-Timestamp erzeugen
- [ABAP] SALV-Grid: Eventhandler für Doppelklick auf eine Zelle (double_click)