danke für den Tipp. Das mit dem "Textgadget" bekomme ich hin, aber wie verarbeite ich das weiter? Mit einem Imagegadget kann ich ein Bild anzeigen bzw. mit RotateSprite3D drehen?Hroudtwolf hat geschrieben: Mach dir einfach selber ein Textgadget. Indem du ein Imagegadget nimmst.
Da ist dann sowas möglich. Indem du dann das Image mit deinem text drehst.
Code: Alles auswählen
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1354&highlight=
; Author: Andreas
; Date: 14. June 2003
Procedure DrawRText(DC.l,X,y,text.s,fFont.s,fangle.l,fHeight)
Font = CreateFont_(fHeight,0,fangle*10,0,0,0,0,0,0,0,0,0,0,fFont)
GetWindowRect_(WindowID(),r.RECT)
oldFont = SelectObject_(DC,Font)
SetTextAlign_(DC,#TA_BASELINE)
SetBkMode_(DC,#TRANSPARENT)
ExtTextOut_(DC, X,y,0 ,r,text,Len(text),0 )
SelectObject_(DC,oldFont)
DeleteObject_(Font)
EndProcedure
If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "Fonts")
DC = StartDrawing(WindowOutput())
FrontColor(0,0,0)
DrawRText(DC,100,200,"Testtext","Arial",90,40)
;Parameter
;1 = DeviceContext
;2 = StartX
;3 = StartY
;4 = Text$
;5 = Font$
;6 = Angle
;7 = FontHeight
StopDrawing()
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
End 