PureBoard

Code: Alles auswählen

EnableExplicit

Define RTFFileLength
Define *RTFMemoryID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, 0)
  ButtonGadget(2, WindowWidth(0)-210, WindowHeight(0)-30, 200, 20, "Text fett formatieren", 0)
  
  ;1. Unformatierter Text
  AddGadgetItem(1, -1, "Weit hinten, hinter den Wortbergen, fern der Länder Vokalien und Konsonantien leben die Blindtexte.")
  AddGadgetItem(1, -1, "Abgeschieden wohnen sie in Buchstabhausen an der Küste des Semantik, eines großen Sprachozeans.")
  AddGadgetItem(1, -1, "Ein kleines Bächlein namens Duden fließt durch ihren Ort und versorgt sie mit den nötigen Regelialien.")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 2
            ;2. Den speichern wir in einem RTF-Format mit einer Fett-Formatierung ab.
            If CreateFile(1, GetEnvironmentVariable("temp") + "\DeinRTFText.rtf")
              WriteString(1, "{\rtf1\b\i0" + ReplaceString(GetGadgetText(1), Chr(13), "\line") + "\b0}")
              
              CloseFile(1)
            EndIf
            
            ;3. Um zu sehen, ob es auch funktioniert hat, laden wir einfach den gespeicherten, formatierten Text.
            If ReadFile(1, GetEnvironmentVariable("temp") + "\DeinRTFText.rtf")
              RTFFileLength = Lof(1)
              *RTFMemoryID = AllocateMemory(RTFFileLength)
              If *RTFMemoryID
                ReadData(1, *RTFMemoryID, RTFFileLength) 
                SetGadgetText(1, PeekS(*RTFMemoryID))
                FreeMemory(*RTFMemoryID)
              EndIf
              
              CloseFile(1)
            EndIf
            
            ;4. Du kannst die Datei auch mit WordPad öffnen, um zu sehen, ob die Fett-Formatierung übernommen wurde.
            RunProgram("wordpad.exe", GetEnvironmentVariable("temp") + "\DeinRTFText.rtf", "")
        EndSelect  
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf