topic-44487

Board index FiveWin para Harbour/xHarbour Dos preguntas dos sobre la clase METRO

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Dos preguntas dos sobre la clase METRO
Posted: Sun May 05, 2024 06:11 PM

Amigos del foro:

Estoy picándole a la clase METRO y me surgen dos preguntas que pongo

en este foro:

1.- Donde obtener BITMAPS para la clase METRO, veo que hay algunos

en la carpeta ..\bitmaps\metro, pero me son insuficientes, y

2.- Es posible definir los BITMAPS desde recursos?

Saludos y gracias por el apoyo

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Dos preguntas dos sobre la clase METRO
Posted: Mon May 06, 2024 03:43 AM

Estimado Armando,

1. https://www.flaticon.com/
2. https://thenounproject.com/
3. https://designer.microsoft.com/
4. https://creativemarket.com/
5. https://elements.envato.com/

Este es el código de la Clase TMetro Método AddButton modificado para que soporte imágenes desde recursos:

Code (fw): Select all Collapse

METHOD AddButton( cCaption, nClrText, nClrPane, lLarge, cImgName, bAction ) CLASS TMetro

   local oBtn
   local nX := ::nOriginX + ( ::nRow * ( ::nBtnHeight + 8 ) ) 
   local nY := ::nOriginY + ( ::nCol * ( ::nBtnWidth + 8 ) )
   
   DEFAULT lLarge := .F.
   
   if File( cImgName )
      @ nX, nY BTNBMP oBtn ;
         SIZE ( ::nBtnWidth * If( lLarge, 2, 1 ) ) + If( lLarge, 8, 0 ), ::nBtnHeight ;
         OF ::oWnd PROMPT cCaption NOBORDER FILENAME cImgName
   else
      @ nX, nY BTNBMP oBtn ;
         SIZE ( ::nBtnWidth * If( lLarge, 2, 1 ) ) + If( lLarge, 8, 0 ), ::nBtnHeight ;
         OF ::oWnd PROMPT cCaption NOBORDER RESOURCE cImgName
   endif
      
   oBtn:bAction = bAction   
      
   oBtn:SetColor( nClrText, nClrPane )    
   
   AAdd( ::aButtons, oBtn )
   
   ::nCol++
   if lLarge
      ::nCol++
   endif   
   if ( ATail( ::aButtons ):nLeft + ATail( ::aButtons ):nWidth ) > ( ::nOriginY * 4 ) + 50 
      ::nRow++
      ::nCol = 0
   endif   
   
return nil

Incluimos esta modificación para el próximo build de FWH :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Dos preguntas dos sobre la clase METRO
Posted: Mon May 06, 2024 03:58 AM

Master Antonio:

Muy agradecido.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion