Quisiera saber si alguno tiene idea porque cuando sale por primera vez el dialogo sale cortado o mas bien no termina de pintarse
... pero despues de maximizar o icononizar cuando se restable nuevamente lo pinta perfecto
Adjunto el cogido de ..\samples\skin2.prg de Fivewin
- Code: Select all Expand view
/*
Exemplo de uso TSkin
Por: Lailton Fernando Mariano
*/
#include "Fivewin.ch"
#include "Slider.ch"
Function main()
local oDlg, oSkin
local nHue := 0, oSHue
local nTrans:= 255, oTrans
local oGeta, oGetb
local nGeta := space(50), nGetb := Space( 50 )
local oSaya, cSaya:="Cadastro de Produtos"
local oSayb, cSayb:="Transparencia da tela"
local oBtna, oBtnb
DEFINE dialog oDlg PIXEL STYLE WS_POPUP RESOURCE "SAMPLE2" TITLE "Class TSkin - By Redstarsoft ^^"
REDEFINE TRACKBAR oSHue POS nHue MIN -100 MAX 100 OF oDlg FREQUENCY 1 ID 1001 ON CHANGE( changeColor( oSkin , oSHUE:GetPos()) )
REDEFINE TRACKBAR oTrans POS nTrans MIN 0 MAX 255 OF oDlg FREQUENCY 1 ID 4006 ON CHANGE( oSkin:Transparent( oTrans:GetPos() ) )
REDEFINE SAY oSaya VAR cSaya ID 4001 of oDlg TRANSPARENT
REDEFINE SAY oSayb VAR cSayb ID 4007 of oDlg TRANSPARENT
REDEFINE GET oGeta VAR nGeta ID 4002 of odlg
REDEFINE GET oGetb VAR nGetb ID 4003 of odlg
REDEFINE BUTTON oBtna ID 4004 of oDlg Action Msginfo("OK","Informação !")
REDEFINE BUTTON oBtnb ID 4005 of oDlg Action Msginfo("Cancelar","Informação !")
oDlg:bStart := {|| oSkin := Skin( oDlg, "Black_skin" ) }
ACTIVATE dialog oDlg CENTERED ;
ON INIT oDlg:Shadow()
oSkin:end() // Finaliza Skin
Return nil
/*
A função abaixo faz com que altere a cor do skin, ajustando o HUE e Saturation das
Imagem do skin. ( Logico que nem tudo fica bom, mais é essa a finalidade dela. )
*/
Function changeColor( o, nH )
local i
for i = 1 to len(o:this)
ApplySetFilter( o:this[i], DuplicateBitmap( o:this[i]:hBitmap ),,0,0,nH)
next i
o:update()
return nil
Desde ya muchisimas gracias
Abrazo
FWH 32/64 14.04 - PellesC
Posted: Wed Aug 31, 2022 12:07 pm
