FiveTech Software tech support forums

... "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oDlg, oFont, oBmp   FW_SetUnicode( .f. )   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-20   DEFINE DIALOG oDlg RESOURCE "Test" TITLE FWVERSION ...

Carlos, Me parece que este código: IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0       oBmp:LoadFromMemory( cJpg )    EndIf deberías ejecutarlo desde el ON INIT del diálogo, ya que antes el control no tiene un handle válido y además, está ...

Carlos, Me parece que este código: IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0       oBmp:LoadFromMemory( cJpg )    EndIf deberías ejecutarlo desde el ON INIT del diálogo, ya que antes el control no tiene un handle válido ...

... en que contexto lo haces? Hay un valor que cambia en el transcurso del programa y queres actualizar la imagen? Prueba recargando la imagen con oBmp:LoadImage("bmp2.bmp") #include "FiveWin.ch"function Main()                  ...

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT (pASSWORD(),INDEXA1()) ;
ON PAINT DrawBitmap( hDC, oBmp:hBitmap, ;
( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ), ;
( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ),0,0 );
VALID MsgYesNo(oemtoansi( "¨ Desea Salir ?"),"Salida del Sistema ")

What is oBmp (relative to the button in the RibbonBar) ?

Marc Venken wrote:Thanks.. The ruler works..

The class : I have to explore...

you can use also a tbitmap class and insert that two data
if you see genteport.prg you can show a obmp white and on it the rulers

... el menú, es esta: https://i.postimg.cc/N0pc6013/buttonsownd.jpg Sé que para poner un logo se usa la función: [code]@ 4, 16 BITMAP oBmp FILENAME CURDRIVE() +":"+"\COMPARTIDO\REGSAT\WINSAT\BITMAPS\LOGOGVA.png" NOBORDER OF oWnd ; ON CLICK( oBmp:lStretch := ! oBmp:lStretch, ...

... inside the slider must be the same like inside the image :!: the column-position is a given value Pickvalues := PICK_COLOR( nSlidPos * 22, 8, oBmp ), because the bitmap is painted is that needed :?: ( save and restore ) oBmp:SaveToBmp( "Picker.bmp" ) hBmp := ReadBitmap( 0, "Picker.Bmp" ...

... I tested saving and loading the basic-gradientbitmap next using the nrow position from the slider to get the color FUNCTION GETCOLOR( nRow, nCol, oBmp ) LOCAL hDC := CreateCompatibleDC( oBmp:GetDC() ) LOCAL hBmp := ReadBitmap( 0, "Picker.bmp" ) // the basic gradient bmp LOCAL hOldBmp ...

There is a function ABPaint( hDC := GetWindowDC( hWnd ), nLeft, nTop, oBmp:hBitmap ) sample testab.prg DEFINE BITMAP oBmp FILENAME "..\bitmaps\AlphaBmp\Trash.bmp" ... ... ACTIVATE WINDOW oWnd ; ON PAINT ABPaint( hDC, 10, 10, oBmp:hBitmap, 220 ) // ...

... first problem the image is a ng and is not transparent , why ? https://i.postimg.cc/G3QvRLF3/d.png nRow+=2 @ nRow,180 XIMAGE oBmp ; RESOURCE "CLIP_OFF"; NOBORDER ; SIZE 30,30 PIXEL; OF oFolder:adialogs[1] ; UPDATE oBmp:bRClicked := {||NIL } oBmp:ltransparent:=.t. ...

The simpliest way to add a new field to an existing dbf is as follows: local cgroep := space( 17 ) local oBrush, oBar, oBmp local cOldBmp := GetProfString( "Desktop", "WallPaper" ) local oPrn, fntArial1, nRow, fntArial2, cName, cLoca, cPost local nRecNo := RecNo() ...

... disponibles: [152] "ese numero variará cada 5 minutos" lo que requiero es que se vean de forma "Transparente", como lo hace: oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, CLR_BLACK ),; TextOut( oBmp:hDC, 20, 540, "Numero de Clientes:" ) ...

... texto Fijo transparente pero también necesito colocar una variable que deberá actualizarse cada determinado tiempo por ejemplo: @ 5, 5 BITMAP oBmp2 FILENAME "c:\conteo\logo.bmp" SIZE 500, 400 OF oWnd NOBORDER oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, ...