Danke für die überaus nette Antwort und die Bemerkungen.
Wie im Betreff zu sehen, war es keine Feststellung sondern ein mit ?-Fragezeichen versehender Beitrag.
Neu im PBoard und noch vielleicht nicht an der richtigen Stelle gestellt, sorry.
Anfänger, kann schon sein, aber dennoch sind sie auch nur Menschen und sollte die Frage auch noch so unprofesionell sein,
haben sie doch ein Recht auf einen sachlichen Kommentar.
OK, Beispiel soll sein, hier ist es.
Code: Alles auswählen
'########################################################################
Enumeration
#Window_1
#Image
EndEnumeration
If CreateImage(#Image,1000,700)
DC = StartDrawing(ImageOutput(#Image))
Box(0,0,1000,700, RGB(255,255,255))
DrawingMode(1)
FrontColor(RGB(0,0,0))
Text.s = "Normaler Text......."
DrawText(300,600,Text)
;<---API Commando--------------------------------------------------
Define hFont.l
Define hfHeight.l = 30
Define hfWidth.l = 20
Define hfWeight.l = 0
Define Escapement.l = 90 * 10
Define Orientation.l = 0
Define Italic = #False ;Geneigt
Define Underline = #False ;Unterstrichenen
Define StrikeOut = #False ;Durchgetrichen
Define CharSet.l = #ANSI_CHARSET
Define OutputPrecision.l = #OUT_TT_PRECIS
Define ClipPrecision.l = #CLIP_LH_ANGLES
Define Quality.l = #PROOF_QUALITY
Define PitchAndFamily.l = #DEFAULT_PITCH|#FF_DONTCARE
Define lpszFace.s = "Impact"
hFont = CreateFont_(hfHeight, hfWidth, Escapement, Orientation, hfWeight, Italic, Underline, StrikeOut, CharSet, OutputPrecision, ClipPrecision, Quality, PitchAndFamily, lpszFace.s)
DrawingFont(hFont)
FrontColor(RGB(255,0,0))
Text.s = "Gedrehter Text......!"
DrawText(300,500,Text)
DeleteObject_(hFont)
;<---API Commando--------------------------------------------------
StopDrawing()
SetClipboardImage(#Image)
EndIf
;-------- Open Window -------------------------------------------------------------------
WdPart1.s = " -> "
WdPart2.s = ""
Windowdescription.s = WdPart1 + Space(50) + WdPart2
If OpenWindow(#Window_1, 100, 100, 1000, 700, Windowdescription, #PB_Window_MinimizeGadget)
Repeat
Repeat : EventID.l = WaitWindowEvent() : Until EventID <> 0
If EventID = #PB_Event_Repaint
GetClipboardImage(#Image)
If StartDrawing(WindowOutput(#Window_1))
DrawImage(ImageID(#Image),0,0)
StopDrawing()
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow
Else
MessageRequester("Error", "Can't open Window", 0)
End
EndIf
End
'########################################################################
