Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Ränder in RichEdit festlegen
Autor: Thomas Freier (---.dip0.t-ipconnect.de)
Datum:   28.08.21 17:40

Hilft das weiter?
window 50,50-500,500
 
 $H Windows.ph
 $H Messages.ph
 $H RichEdit.ph
 
 var RtfDll&=usedll("RichEd20.dll")
 var RichEdit&=control("RichEdit20A","",$54005004,10,10,300,200,%hwnd,5000,0)
 
 declare rtf#
 dim rtf#,156
 
 proc rtf-SetOffsetIndent'-------ein- (neg. Wert) / austücken (pos. Wert)
 parameters a%
 clear rtf#
 long rtf#,0=156
 long rtf#,4= $80000000'---PFM_OFFSETINDENT
 long rtf#,12=a%*10
 sendmessage(Edit&,$447,0,rtf#)'-EM_SETPARAFORMAT
 endproc'------------------------------------------------------------------------
 
 proc rtfRightIndent'----------------------------------------------------------RightIntend
 parameters a%
 clear rtf#
 long rtf#,0=156
 long rtf#,4=~PFM_RIGHTINDENT
 long rtf#,16=a%
 sendmessage(RichEdit&,~EM_SETPARAFORMAT,0,rtf#)
 endproc'----------------------------------------------------------------------
 
 proc rtfLeftIndent'------------------------------------------------------------LeftIntend
 parameters a%
 clear rtf#
 long rtf#,0=156
 long rtf#,4=~PFM_STARTINDENT
 long rtf#,12=a%
 sendmessage(RichEdit&,~EM_SETPARAFORMAT,0,rtf#)
 endproc'-----------------------------------------------------------------------
 
 rtfLeftIndent 300'---Einheit: "TWIPS"
 
 rtfRightIndent 300
 
 settext RichEdit&,"LabererLaberLaberLaberLaberLaberLabererLaberLaberLaberLaberLaber"
 
 while 1
    waitinput
    case %key=2:break
 endwhile
 
 destroywindow(RichEdit&)
 freedll RtfDll&
 




Nachricht bearbeitet (28.08.21 17:41)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Ränder in RichEdit festlegen  Neu
Michael Hettner 28.08.21 13:58 
 Re: Ränder in RichEdit festlegen  Neu
Thomas Freier 28.08.21 17:40 
 Re: Ränder in RichEdit festlegen  Neu
Michael Hettner 28.08.21 17:53 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org