FiveTech Software tech support forums

... DEFINE DIALOG oDlg RESOURCE "MIDIALOGO" TITLE cTitulo FONT oFont1 ICON "ICONO1" .......... Para usar un BITMAP REDEFINE BTNBMP oBitmap RESOURCE "BITMAP1","BITMAP2" ID 102 OF oDlg; ACTION oDlg:End() NOBORDER ............. Para usar un CURSOR DEFINE CURSOR ...

... ( the Function uses Gradient or Color ) -----------//--- for Color : nVcolor and nBcolor are the same -------------------FUNCTION DRAW_TITLE( oBitmap, hDC, lDirect,nVColor, ;   nBColor, nMove, nLeft, oFont, nTColor, cTitle ) LOCAL aGrad := { { nMove, nVColor, nBColor }, ...

... can paint a VTitle and save it with a defined Size. Optional : hBmp = ResizeImg( aBmpPal[ 1 ], nWidth, nHeight ) DeleteObject( aBmpPal[ 1 ] ) or : oBitmap:SetSize( nHORZ, nVERT ) As well I could use it for the Browser-Previews. For the moment, I capture the Screen and cut off the no needed area. ...

... RESOURCE "Black" OF oDlg ; ON CLICK ReplaceBMP ( oBMP1, "Red.bmp" ) // ------------ Replace ------------ FUNCTION ReplaceBMP( oBitmap, cBitmap) Local oImage DEFINE IMAGE oImage FILENAME cBitmap aRect := GETCLIENTRECT( oBitmap:hWnd ) PalBmpDraw( oBitmap:GETDC(), 0, 0, oImage:hBitmap, ...

... about that. But for FWH-users it will be something like one more parameter, I guess - that's why we all like to work with FWH :D Please try this: oBitmap:lTransparent = .F. - sorry, no changes. For a quick solution I change the first pixel of the bitmap... Dietmar

... defined TRANSPARENT the BITMAP is always painted transparent regardless if defined TRANSPARENT or not. Can this be changed? > Please try this: oBitmap:lTransparent = .F.

... they bitmaps ? Yes ! I added Images to usercontrol, about 3 images for each one tab : 1. ImageLeft 2. ImageCenter 3. ImageRight FWH can do it with oBitmap ( ABPaint ) :D then for check MouseEvent, I used Label FWH can do it with oSay :D Please post the VB code here or email it to me, and we will ...

No, i use the standard "@ 5,5 BITMAP..... and oBitmap:ltransparent := .T. " and i see in source, that transbmp() is used in this class.
This is the picture to show:

I use a bitmap with a white pixel in 0,0. But when i use oBitmap:ltransparent := .T. all the white pixels are black and not transparent! Any solution?

oBitmap:SetSize( nWidth, nHeight )

o

oBitmap:Zoom( nZoom )

depende de si quieres variar el tamano del control o hacer zoom

... need : nWIDTH = aRect[4], nHEIGHT = aRect[3] // Image-Size in Dialog-resource // --------------------------------------- aRect := GETCLIENTRECT( oBitmap:hWnd ) hDC := oBitmap:GETDC() Regards Uwe :lol:

... libres, ocupadas, reservadas... etc...) La duda es: El plano de alzada del aforo lo puedo representar con un BMP, pero ¿como puedo asignar varios "obitmap:bLDblClick" en ese mismo BMP.? Debo asignar un obitmap:bLDblClick a cada sector/zona dentro del BMP ¿ Podría hacerse de otra manera ? mil gracias ...

... libres, ocupadas, reservadas... etc...) La duda es: El plano de alzada del aforo lo puedo representar con un BMP, pero ¿como puedo asignar varios "obitmap:bLDblClick" en ese mismo BMP.? Debo asignar un obitmap:bLDblClick a cada sector/zona dentro del BMP ¿ Podría hacerse de otra manera ? mil gracias ...

In fact, it should be used from the ON PAINT, to properly refresh:

ACTIVATE DIALOG oDlg ;
ON PAINT oBitmap:Say( 2, 2, "Cadastro Plano de Contas",,,,, .T. )

Julio,

You have to do that call from the ON INIT of the dialog:

ACTIVATE DIALOG oDlg ;
ON INIT oBitmap:Say( 2, 2, "Cadastro Plano de Contas",,,,, .T. )