luisduque wrote:Maestro Antonio
La versión 16.11 solo en 32 bits presenta de vez en cuando al entrar a ventanas con BtnBmp muestra imagen diferente todas iguales y distorsionadas.
Decirle un ejemplo en especifico estoy revisando porque es a veces, En 64bits parece normal
#include "fivewin.ch"
function main()
local oDlg, aBtn[ 6 ], n, nCol
local aBmp := { ;
"..\bitmaps\32x32\attach.bmp", ;
"..\bitmaps\32x32\browse.bmp", ;
"..\bitmaps\alphabmp\ichat.bmp", ;
"..\bitmaps\pngs\image5.png", ;
"..\icons\hires\avalon 1.ico", ;
"..\icons\hires\calc.ico" }
DEFINE DIALOG oDlg SIZE 600,250 PIXEL TRUEPIXEL ;
TITLE FWVERSION
nCol := 4
for n := 1 to 6
@ 150,nCol BTNBMP aBtn[ n ] SIZE 96,96 PIXEL OF oDlg ;
FILE aBmp[ n ] TOP ;
PROMPT cFileNoPath( aBmp[ n ] ) 2007
nCol += 98
next
ACTIVATE DIALOG oDlg CENTERED
return nil
#include "FiveWin.ch"
STATIC lOk := .f.
FUNCTION Main()
LOCAL oDlg, oBtn1, oBtn2, oBrush
SkinButtons()
DEFINE BRUSH oBrush FILENAME "../bitmaps/Backgrnd/RED.bmp"
DEFINE DIALOG oDlg SIZE 370, 400 BRUSH oBrush TRANSPARENT
oDlg:lHelpIcon := .F.
@ 11, 138 BTNBMP oBtn1 OF oDlg SIZE 40, 15 PIXEL 2007 NOBORDER ;
PROMPT " &Ok" LEFT FILENAME "..\bitmaps\16x16\help.bmp" ;
ACTION (lOk:=.t., oDlg:End())
// oBtn1:lTransparent = .F.
oDlg:aControls[ 1 ]:lTransparent = .F.
@ 179, 2 BTNBMP oBtn2 OF oDlg SIZE 180, 18 PIXEL 2007 NOBORDER ;
PROMPT " I LOVE FIVEWIN THE BEST..." ;
LEFT FILENAME "..\bitmaps\16x16\help.bmp"
// oBtn2:lTransparent = .F.
oDlg:aControls[ 2 ]:lTransparent = .F.
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
RETURN NIL
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 55 guests