FiveTech Software tech support forums

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... nStart + 20 + nWidth - 15 },; nOr( DT_LEFT, DT_VCENTER ) ) */ // esto modifica la ubicacion vertical del BMP if ::nOrientation <= OR_BOTTOM TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( hBmp ), /* RGB( 255, 0, 255 ) */ nZeroZeroClr, ::hDC,; nStart + 12, If( ::nOrientation == OR_TOP, 8, ...

... TScintila new data nMnuStyle * Enhancement: Font object can now be created from hFont. Eg: oFont := TFont():New( hFont ) * Enhancement: Usage of TransBmp() simplified. It is not necessary to call SetBkColor(), SetTextColor() etc and not necessary to provide zerozeroclr before calling TransBmp() ...

... (default .t. )], [lStretch/nResizeMode], [nAlpha/lAlpha],[lGray] ) paints the image using the appropriate painting function eg. ABPaint(), TransBmp(),PalBmpDraw() For the sample you sent me, I suggest using FWH methods like this: function magicbmp()   local oDlg, aBmp  ...

... ) else DEFAULT aBitmap[ BITMAP_ZEROCLR ] := GetZeroZeroClr( hDC, aBitmap[ BITMAP_HANDLE ] ) SetBkColor( hDC, nRGB( 255, 255, 255 ) ) TransBmp( aBitmap[ BITMAP_HANDLE ], aBitmap[ BITMAP_WIDTH ], aBitmap[ BITMAP_HEIGHT ],; aBitmap[ BITMAP_ZEROCLR ], hDC, nBmpCol, nBmpRow, nBmpWidth( ...

Cristobal, Mas sencillo: Añade esta función a tu aplicación y dime si afecta a como se ve la ribbonbar: function TransBmp() return nil Antonio Asi funciona mucho mejor y falla mucho menos que antes. Gracias de nuevo por tu tiempo Saludos So it works much better and gives a lot ...

Cristobal,

Mas sencillo: Añade esta función a tu aplicación y dime si afecta a como se ve la ribbonbar:

function TransBmp()

return nil

Bayron,

Por favor, prueba a cambiar esta línea asi:

static void TransBmp( HBITMAP hBitmap, unsigned int iXsize, unsigned int iYsize,

Yes, in my opinion it is connected with Transbmp function.

Or maybe there is a leak in Fivewin´s internals, I don´t know.

The function that paints the bitmaps on the buttons is TransBmp(). In fact if you add this function to your main PRG you will see no bitmaps in the buttons: function TransBmp()return nil Ok, so now here you have a modified version of TransBmp() ...

Please, see this post:
viewtopic.php?f=3&t=21662&hilit=transbmp&start=60

... when trying to build samples\skin1.prg or skin2.prg). Code works fine most of the times. So it is a question of runtime, related to resources or transbmp. Please, see http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21662 Carlos Vargas, Maurizio and Enrico confirmed the error also.

... oWnd:Move( , , 800, 800 ) ), sysrefresh() ) of oWnd this test is finished after 7 hours without problem.... i'm using TransBmp provided by Fivetech... is really important you provide a sample...

Daniel, Thanks for helping. ukservice wrote: Who is the author of TransBmp?. I mean the person. I am afraid it can´t be traced just with a timer :roll: The sequence of Transbmp is ok?. What the bitmap can´t be created?. MessageBox( 0, "(2) Can't ...

ukservice wrote:Who is the author of TransBmp?.

fivetech

ukservice wrote:But also it is required to work with the program, click on buttons, open dialogs, treport, etc.

it's really a hard test... i added a sysrefresh too, after 1:30 (more) continue stable the sample