Iconos en windows/Dialogos - SOLUCIONADO (NO TANTO)

[El Loco]

Buenos dias a todos.
Quisiera saber si es posible cambiar los iconos de cerrar/maximizar/minimizar en ventanas y/o dialogos mas alla de la version de Windows que estemos utilizando
Desde ya muchisima gracias
Abrazos

FWH 32/64 14.04 - PellesC

[karinha]

Lo siento. No comprendo.

Regards, saludos.

[Antonio Linares]

Estimado Miguel Angel,

En FWH\samples tienes dos ejemplos que muestran como cambiar el "skin" de Windows y asi poder usar el diseño que más te convenga:

skin1.prg y skin2.prg

Es un gran trabajo realizado por Lailton!

[El Loco]

Estimado Miguel Angel,

En FWH\samples tienes dos ejemplos que muestran como cambiar el "skin" de Windows y asi poder usar el diseño que más te convenga:

skin1.prg y skin2.prg

Es un gran trabajo realizado por Lailton!

Gracias Antonio.
Ahora me fijo
Abrazo

[El Loco]

Lo siento. No comprendo.

Regards, saludos.

Lo que quiero reemplazar es esto:


por esto:

[El Loco]

Estimado Miguel Angel,

En FWH\samples tienes dos ejemplos que muestran como cambiar el "skin" de Windows y asi poder usar el diseño que más te convenga:

skin1.prg y skin2.prg

Es un gran trabajo realizado por Lailton!

Estoy estudiando la clase TSkin para ver como funciona.... porque en los ejemplos (Skin1.prg y Skin2.prg) no logro hacerlos funcionar.
Te tengo al tanto

FWH 32/64 14.04 - PellesC

[El Loco]

Antonio mañana que estoy en casa seguro lo veo mas tranquilo como se utiliza la TSkin porque a cada a rato tengo que cortar y sinceramente no engancho como se utiliza.
Abrazo

[El Loco]

Solo necesitaba llegar a casa. Funciona de maravillas. Gracias Lailton y Antonio.
Solo una pregunta, es posible que los bmp esten cargados en recursos ?
Abrazo

[El Loco]

Adjunto imagen

[El Loco]

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