About Window / Requester ?

[ts-soft]

Nächste Frage: gibt es eine Methode, um Text in einem EditorGadget zu centern ?

Mit oder ohne WinAPI?
Ohne WinAPI ist das glaube ich nicht möglich. Vielleicht irgendwann mal.

Mit LinuxAPI? (sollte auch entsprechende API unter MacOS geben):

Code: Alles auswählen

EnableExplicit

OpenWindow(0, #PB_Ignore, #PB_Ignore, 800, 150, "Zentrierter Text")

EditorGadget(0, 10, 10, 780, 130)
SetGadgetText(0, "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor " +
                  "invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et " +
                  "accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata " +
                  "sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing " +
                  "elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, " +
                  "sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita " +
                  "kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet")

gtk_text_view_set_wrap_mode_(GadgetID(0), #GTK_WRAP_WORD)
gtk_text_view_set_justification_(GadgetID(0), #GTK_JUSTIFY_CENTER)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Gruß
Thomas

[Burstnibbler]

Hi,

wenn Du keine Probleme mit WinAPI hast und für dich WinXP kein Thema mehr ist, dann gibt es noch eine weitere Möglichkeit: Task Dialog.
Das ist wie eine Messagerequester mit Text, Grafik, Buttons, Progressbar und Hyperlinks.

Microsoft: https://msdn.microsoft.com/en-us/librar ... s.85).aspx
Und hier die PB-Umsetzung: http://www.purebasic.fr/english/viewtop ... 12&t=30801

Mfg
Burstnibbler

[Andesdaf]

Nächste Frage: gibt es eine Methode, um Text in einem EditorGadget zu centern ?

Das EditorGadget unterstützt Formatierungen nach RTF, demnach wäre also folgendes möglich:

Code: Alles auswählen

EnableExplicit

Define sText.s

If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 8, 8, 306, 133)
  
  sText = "{\rtf1\ansi\deff0\qc " +
          "Dies ist die erste Zeile zentrierter Text\line " +
          "Dies ist eine weitere zentrierte Zeile " + 
          "\par\ql\line " +
          "Diese Zeile ist wieder linksbündig." + 
          "}"
  SetGadgetText(0, sText)
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[TWELVE]

Ich wollte mich verspätet für Euren Input bedanken, ich bin immer nur sehr sporadisch hier, da ich auch nur sehr sporadisch
an meinen PureBasic -Projekten arbeite Bitte nicht als Unhöflichkeit werten, wenn ich dann nicht mehr geantwortet habe,
entweder ich hatte das Problem durch Eure Tipps gelöst oder ich mußte mich mal um etwas anderes kümmern