lese meinen Text aus dem GetGadgetText(Editorgadget) und zeichne ihn anschliessend in ein Bild!
Code: Alles auswählen
;-- [FKT] TEXT ins Image zeichnen
; --------------------------
Global Corner_ZeilenZeiger = 199
Global Dim Corner_ZeilenString$(Corner_ZeilenZeiger)
Global Corner_Max_Zeilen = 0
Global Corner_Anzahl_ZeilenY = 40
Global Corner_Notiz_String$ = ""
; --------------------------
; "1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
; ********************************************************************
; Corner_Notiz_String$ + "Surbraten: Surfleisch ist gebeiztes nicht geräuchertes Fleisch. Da dieses Fleisch schon gewürzt ist, braucht man es nur mehr bei 150° ca. 2h braten." + #CRLF$
; Corner_Notiz_String$ + "Einfach in eine feuerfeste Form geben und ab und an mal mit etwas Wasser untergießen. * 80 dag Surfleisch/Surbraten vom Schweinsschlögel- oder karree."
; ********************************************************************
; Corner_Notiz_String$ + "Wirkung - Der schwarze Obsidian löst besonders gut Blockaden, Schock, Ängste und Traumata. Er hilft dabei, sich mit vergangenen Erfahrungen auseinander - zusetzen und damit verbundene Schmerzen zu lösen. ... "
; Corner_Notiz_String$ + #CRLF$
; Corner_Notiz_String$ + "Der schwarze Obsidian fördert zudem ungenutzte Fähigkeiten und verbessert die Wahrnehmung."
; ; --------------------------
; Corner_Notiz_String$ + #CRLF$
; Corner_Notiz_String$ + "Surbraten: Surfleisch ist gebeiztes nicht geräuchertes Fleisch. Da dieses Fleisch schon gewürzt ist, braucht man es nur mehr bei 150° ca. 2h braten." + #CRLF$
; Corner_Notiz_String$ + "Einfach in eine feuerfeste Form geben und ab und an mal mit etwas Wasser untergießen. * 80 dag Surfleisch/Surbraten vom Schweinsschlögel- oder karree."
; Corner_Notiz_String$ + #CRLF$
; Corner_Notiz_String$ + "Wirkung - Der schwarze Obsidian löst besonders gut Blockaden, Schock, Ängste und Traumata. Er hilft dabei, sich mit vergangenen Erfahrungen auseinander - zusetzen und damit verbundene Schmerzen zu lösen. ... "
; Corner_Notiz_String$ + #CRLF$
; Corner_Notiz_String$ + "Der schwarze Obsidian fördert zudem ungenutzte Fähigkeiten und verbessert die Wahrnehmung."
; ; --------------------------
; Corner_Notiz_String$ + #CRLF$
; Corner_Notiz_String$ + "Surbraten: Surfleisch ist gebeiztes nicht geräuchertes Fleisch. Da dieses Fleisch schon gewürzt ist, braucht man es nur mehr bei 150° ca. 2h braten." + #CRLF$
; Corner_Notiz_String$ + "Einfach in eine feuerfeste Form geben und ab und an mal mit etwas Wasser untergießen. * 80 dag Surfleisch/Surbraten vom Schweinsschlögel- oder karree."
; ********************************************************************
Corner_Notiz_String$ + "Romell Broom wurde zum Tode verurteilt. 18 Hinrichtungsversuche blieben jedoch ohne Erfolg. Schließlich verstarb der US-Amerikaner an Covid-19."
Corner_Notiz_String$ + "Romell Broom war 24 Jahre lang in der Todeszelle im US-Bundesstaat Ohio, bevor er 2009 hingerichtet werden sollte. Beamten konnten aber keine Vene finden, die die tödliche Injektion aufnehmen würde."
Corner_Notiz_String$ + "Romell Broom entkommt 18 Mal seiner Hinrichtung - Romell Brooms Hinrichtung war für den 15. September 2009 geplant. Als er auf die tödliche Injektion vorbereitet werden sollte, wurde Broom an einen Tisch geschnallt und die Beamten versuchten, eine geeignete Vene zu finden, um ihm die tödliche Mischung aus Pancuroniumbromid, Kaliumchlorid und Midazolam zu verabreichen."
Corner_Notiz_String$ + "Broom versuchte sogar zu helfen, indem er seinen Arm und seine Finger auf und ab bewegte - doch ohne Erfolg. Nach zwei Stunden und 18 Versuchen wurde beschlossen, die Hinrichtung zu verlegen."
Corner_Notiz_String$ + "'Covid Probable List'"
Corner_Notiz_String$ + "Die zweite Hinrichtung von Broom wurde nach langem Hin und Her auf den 16. März 2022 verschoben. Doch dazu kam es nicht, wie unter anderem der Mirror berichtet."
Corner_Notiz_String$ + "Romell Broom verstarb am 28. Dezember 2020. Er war 64 Jahre alt. Die Ärzte haben ihn auf die 'Covid Probable List' der Gefangenen gesetzt, bei denen der Verdacht besteht, dass sie am Coronavirus gestorben sind."
Corner_Notiz_String$ + "Die Verurteilung"
Corner_Notiz_String$ + "Broom hatte 24 Jahre in der Todeszelle von Ohio verbracht, nachdem er wegen Entführung, Vergewaltigung und Ermordung der 14-jährigen Tryna Middleton verurteilt worden war. Er hat immer seine Unschuld beteuert und 2003 einen DNA-Test durchgeführt, bei dem er seine Unschuld jedoch nicht beweisen konnte."
Corner_Notiz_String$ + "Abb. Elektrischer Stuhl"
; ********************************************************************
;}
Global Font_DRW_Corner_Folder
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-- [FKT] Corner_Image_Text
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Procedure Corner_Image_Text(Corner_String$,Corner_Schleife)
Protected Corner_CharacterAnzahl = 40
Protected Corner_StartPosition = Corner_CharacterAnzahl - 7
Protected Corner_SuchString$ = Chr(32)
Protected Corner_Position = 0
Protected Corner_CharPos = 0
Protected Corner_Zeiger
Protected Ergebnis$ = " "
Protected Ergebnis_Zeiger = 0
Corner_String$ = ReplaceString(Corner_String$,#CRLF$,#CR$,1)
For Corner_Zeiger = 0 To Corner_Schleife
Corner_Position = FindString(Corner_String$,Corner_SuchString$, Corner_StartPosition, #PB_String_NoCase)
Ergebnis$ = Mid(Corner_String$, 1, Corner_Position)
Corner_CharPos = 0
Corner_CharPos = FindString(Ergebnis$, #CR$ , 0 , #PB_String_NoCase)
; Debug "Corner_CharPos= "+Corner_CharPos
If Corner_CharPos > 0
; Debug "Corner_CharPos CR = "+Corner_CharPos
Ergebnis$ = Mid(Ergebnis$, 1 , Corner_CharPos - 1)
Corner_ZeilenString$(Ergebnis_Zeiger) = Ergebnis$
Ergebnis_Zeiger = Ergebnis_Zeiger+1
Corner_ZeilenString$(Ergebnis_Zeiger) = " "
Ergebnis_Zeiger = Ergebnis_Zeiger+1
Corner_String$ = Mid(Corner_String$, Corner_CharPos +1 , Len(Corner_String$) - 1)
Corner_CharPos = 0
Else
Corner_ZeilenString$(Ergebnis_Zeiger) = Ergebnis$
Ergebnis_Zeiger = Ergebnis_Zeiger+1
Corner_String$ = Mid(Corner_String$, Corner_Position +1 , Len(Corner_String$))
If Len(Corner_String$) < Corner_CharacterAnzahl
Corner_ZeilenString$(Ergebnis_Zeiger+1) = Corner_String$
Corner_Max_Zeilen = Ergebnis_Zeiger + 1
Break
EndIf
Corner_CharPos = 0
EndIf
Next
EndProcedure
;}
; ResizeGadget(Zoom_I_Bild,Btn_13_GrapXY,SZ_22,Btn_Zoom_Area_GrapXY,Btn_Zoom_Area_GrapXY)
; Corner_Image_Text(Corner_Notiz_String$,Corner_Anzahl_ZeilenY)
Corner_Image_Text(Corner_Notiz_String$,Corner_ZeilenZeiger)
For Corner_Zeiger = 0 To Corner_Max_Zeilen
Debug "=> "+"xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx"
Debug "=> " + Corner_ZeilenString$(Corner_Zeiger)
Next
Debug "********************************************************************"
Debug "Corner_Max_Zeilen"+Corner_Max_Zeilen
Debug "********************************************************************"
Gruss ... Velindos!
Komme einfach nicht weiter, jemand vielleicht eine Idee?