Iconos en windows/Dialogos - SOLUCIONADO (NO TANTO)

Iconos en windows/Dialogos - SOLUCIONADO (NO TANTO)

Postby El Loco » Wed Aug 31, 2022 12:07 pm

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
Last edited by El Loco on Thu Sep 01, 2022 12:34 am, edited 2 times in total.
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos

Postby karinha » Wed Aug 31, 2022 3:06 pm

Lo siento. No comprendo.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Iconos en windows/Dialogos

Postby Antonio Linares » Wed Aug 31, 2022 3:12 pm

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! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Iconos en windows/Dialogos

Postby El Loco » Wed Aug 31, 2022 3:37 pm

Antonio Linares wrote: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
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos

Postby El Loco » Wed Aug 31, 2022 4:41 pm

karinha wrote:Lo siento. No comprendo.

Regards, saludos.

Lo que quiero reemplazar es esto:
Image

por esto:
Image
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos

Postby El Loco » Wed Aug 31, 2022 4:43 pm

Antonio Linares wrote: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
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos

Postby El Loco » Wed Aug 31, 2022 7:39 pm

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
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos - SOLUCIONADO

Postby El Loco » Wed Aug 31, 2022 8:04 pm

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
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos - SOLUCIONADO (NO TANTO)

Postby El Loco » Wed Aug 31, 2022 8:17 pm

Adjunto imagen

Image
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina

Re: Iconos en windows/Dialogos - SOLUCIONADO (NO TANTO)

Postby El Loco » Thu Sep 01, 2022 12:40 am

Quisiera saber si alguno tiene idea porque cuando sale por primera vez el dialogo sale cortado o mas bien no termina de pintarse
Image

... pero despues de maximizar o icononizar cuando se restable nuevamente lo pinta perfecto
Image

Adjunto el cogido de ..\samples\skin2.prg de Fivewin
Code: Select all  Expand view  RUN
/*
    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
FWH 32/64 14.04
Harbour 3.2.0 (r1306211258)
PellesC
El Loco
 
Posts: 328
Joined: Fri May 19, 2006 4:08 pm
Location: Buenos Aires - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 100 guests