Aida, eso son funciones mías que puedes quitar del código sin problemas. oApp() es una función que devuelve la clase de la aplicación, es una manera de tener una clase global. La otra función edita un registro de la tabla Li.
Una nueva entrada en Harbour Magazine explicando como hacer una galería de imágenes: https://medium.com/harbour-magazine/c%C3%B3mo-crear-una-galer%C3%ADa-de-im%C3%A1genes-con-fwh-b8d88652ee27 Saludos, Hola me gusto mucho como lo dejaste :D compile tu código LiGaleria pero me salieron errore...
... en internet ) luego la conexión IF !CONECTA(cCADENA) ? "ERROR DE CONEXION" ELSE ? 'CONEXION OK' ENDIF FUNCTION CONECTA(cCADENA) TRY oApp:= TOleAuto():new("adodb.connection") CATCH oERRX RETURN(.F.) END oApp:ConnectionString:= cCADENA TRY oApp:Open() CATCH oERRX RETURN(.F.) ...
Yes Sorry, but I tried with no success oApp():oGrid:bOnAdjust := <|| local oBtn,oCbx1 local cFilter1:= val(alistini[1][1]) local nrow:= 05 local ncol:= 05 @ nrow,ncol COMBOBOX oCbx1 VAR cFilter1 ITEMS ArrTranspose( aListini )[ 1] ; SIZE 120,400 ...
Yo tampoco utilizo ni Public ni Private, pero si tengo una Public oApp Sí, también es una práctica muy habitual, en la que existe una clase TApp o algo asi En ese caso, lo lógico es convertir a DATAs cada una de esas variables públicas y obtenerlas a partir ...
I create a button on ribbonbar type SAYBUTTON @ 7,5 ADD BUTTON oSelected ; PROMPT " N."+str(ncella) ; SIZE 100,85 ; BITMAP cImagebar ; OF oApp():oGrSelected MOSTLEFT SAYBUTTON oSelected:DISABLE() How I can to change the font of text ? on include ( ribbon.ch) I cannot insert Font How it ...
I found the error the Panel is not trasparent then I made oApp:oSpiaggia:lTransparent :=.t. and then I saw the problem all btnbmp are not transparent ( look at your email)
Antonio, I use it for a Panel I made oApp:oSpiaggia:bPainted:= {|hDC, cPS| ; SetDlgGradient( { { 0.1, CLR_CYAN, CLR_CYAN }, { 0.9, COLORE_SABBIA, COLORE_SABBIA } } ); } then on this tPanel I use btnbmp and ( on top ) the objects Ximage the ...
I use a brush to colorize a dialog DEFINE BRUSH oBrush1 COLOR COLORE_MIO oApp:oMyDialog:SetBrush(oBrush1) for reasons that I am not here to list now I would need to know if I can color a two-color dialog i.e. having a light blue color for two fingers above and ...
on one record there is this string .\images\quattr~1.png to save the image I do: cPathMask := oApp:cImgPath+UrlImage(cSeimage) cImage:= RelativePath( cPathMask ) + UrlImage(cPathMask) how can I avoid saving with the ~ symbol ? I have on field 120 cr to save any solution ...