... +subs(xcui,11,3)+subs(xcui,15,1) nDocTipo:="80" DEFINE CLIPBOARD oClp FORMAT TEXT oClp:SetText( cJason ) @ 233,073 PRINT TO oPrn TEXT cJason AS BARCODE TYPE "QR-CODE" SIZE 24,24 MM // 250,165 ENDPAGE ENDPRINT return nil /----------------------------------------------------------------- ...
... IIF(aFont[LF_WEIGHT]=700,.t.,.f.) ,; lItalic:= aFont[LF_ITALIC],; lUnderline:=aFont[LF_UNDERLINE],; lStrikeout:=aFont[ LF_STRIKEOUT ],; aGet[15]:settext(cFontName),; aGet[16]:settext(str(nFontSize)),; aGet[15]:refresh(),; aGet[16]:refresh()) First run ok then On modify the choosefont not take ...
... in the window method ::handleEvent() describing the processing of a unique event. For example: if valtype(nMsg)="C" oDlg:AControls[1]:SetText(msg) return endif ::Super... From the application with the button we find the handle of the window with TSAY hWn:=FindWindow() and send him ...
Hola, estoy pasanto una variable al richedit ACTIVATE WINDOW oWndR on init oRTF:SetText( crtf ) Funciona perfecto, una ves que termine de modificar el texto como hago para recuperarlo en la variable.
... clausula ON INIT del dialogo, ya lo hacía cuando usaba la clase RICHEDIT y funcionaba bien con todas estas condiciones: oRtf:LoadAsRTF(cRtf) oRtf:SetText(cRtf) oRtf:SetFontName("Ms Sans Serif") oRtf:SetFontSize(10) oRtf:bChange:={ || IF( oRtf:IsModify(), cRtf:=oRtf:SaveAsRTF(), ) } Eval( ...
Asignale el nuevo valor con el métod SetText() *** FUNCTION PARA ASIGNAR DATOS A LAS VARIABLES Nom_Pacien4:=Trim(Nom_Pac)+Spac(3)+Trim(Ape_Pac) Rut_Pac4:=Rut_Pac ...
... you'll see the progress at right the text on the msgitem Do While !::oDbf:Eof() .... ::oBarProgress:SetPos( ::oBarProgress:nPos + 1 ) ::oTabItem1:SetText( tran(::oBarProgress:nPos,'999999')+" di "+; tran(::oDbf:KeyCount(),'999999')) ::oWinTabellone:oMsgBar:Refresh() ::oDbf:Skip(-1) Enddo ...