Verfasst: 25.02.2007 17:58
Wenn wir schon dabei sind, hab ich noch ne Frage.
Wie kann ich Rechs- und Linksbündig machen?
Wie kann ich Rechs- und Linksbündig machen?
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Hat'n "bissi" gedauert aber ich musste mir den @r$ch abgoogeln um die entsprechenden Infos zu kommen. Wie auch immer, hier nen kleines Beispiel welches das Benutzen von Blocksatz in einem RichEdit Control demonstriert:Jetzt brauch ich nur ein Blocksatzfeature und dann bin ich fertig.
Code: Alles auswählen
#TO_ADVANCEDTYPOGRAPHY = 1
#TO_SIMPLELINEBREAK = 2
#TO_DISABLECUSTOMTEXTOUT = 4
#TO_ADVANCEDLAYOUT = 8
#PFA_JUSTIFY = 4
Ipsum$ = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit, "
Ipsum$ + "sed diam nonummy nibh euismod tincidunt ut laoreet dolore "
Ipsum$ + "magna aliquam erat volutpat. Ut wisi enim ad minim veniam, "
Ipsum$ + "quis nostrud exerci tation ullamcorper suscipit lobortis "
Ipsum$ + "nisl ut aliquip ex ea commodo consequat. Duis autem vel "
Ipsum$ + "eum iriure dolor in hendrerit in vulputate velit esse "
Ipsum$ + "molestie consequat, vel illum dolore eu feugiat nulla faci."
dwFlags = #WS_CHILD | #WS_VISIBLE | #ES_MULTILINE | #WS_VSCROLL | #ES_NOHIDESEL | #ES_AUTOVSCROLL
RichEditDLL = OpenLibrary(0,"RICHED32.DLL")
OpenWindow(0,0,0,290,210,"Blocksatz Demo",#WS_SYSMENU | #WS_CAPTION | 1)
*hwndEditor = CreateWindowEx_(#WS_EX_CLIENTEDGE,"RichEdit20A",0,dwFlags,5,5,280,200,WindowID(0),0,0,0)
SendMessage_(*hwndEditor,#WM_SETFONT,LoadFont(0,"Arial",10),0)
SendMessage_(*hwndEditor,#WM_SETTEXT,0,Ipsum$)
SendMessage_(*hwndEditor,#EM_SETTYPOGRAPHYOPTIONS,#TO_ADVANCEDTYPOGRAPHY,#TO_ADVANCEDTYPOGRAPHY)
pfmt.PARAFORMAT
pfmt\cbSize = SizeOf(PARAFORMAT)
pfmt\dwMask = #PFM_ALIGNMENT
pfmt\wAlignment = #PFA_JUSTIFY
SendMessage_(*hwndEditor,#EM_SETPARAFORMAT,0,pfmt)
While WaitWindowEvent() ! 16 : Wend