Justificar RichText usando USER32
Publicado: 18 Mar 2013 16:05
Buenas amigos de AMSSpecialist os traigo una pequeña función para justificar RichText usando user32, nada del otro mundo... la encontré mirando en mi ya habitual foro de ru-board, aquí os dejo un pequeño ejemplo que he echo y el script, espero que lo disfrutéis!
Script:
Descarga:
RichText PFA_JUSTIFY.apz
Script:
local WM_USER = 0x400;
local EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
local TO_ADVANCEDTYPOGRAPHY = 1;
local hWnd = RichText.GetProperties("RichText1").WindowHandle;
DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..EM_SETTYPOGRAPHYOPTIONS..","..TO_ADVANCEDTYPOGRAPHY..","..TO_ADVANCEDTYPOGRAPHY, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
RichText.SetParagraphFormat("RichText1", {Alignment = PFA_JUSTIFY});RichText PFA_JUSTIFY.apz
