Colocar una imagen en el titulo de un dialogo.

[José Camilo]

Buenos dias!!!
Necesito colocar una imágen o varias (bmp, jpg, ... ) dentro del titulo de un dialogo.
Se Puede realizar?
Como?

Gracias

[karinha]

No que yo sepa. Solo puede poner un ICONE.

Code: Select all  Expand view

// ---------------------------------------------------------------------//
// MNUNEW05.PRG
// Prueba de nuevas caracteristicas en menus
//
//
// ---------------------------------------------------------------------//

#include "Fivewin.ch"

#define MF_BYPOSITION 1024 // 0x0400
#define MF_DISABLED     2

Static oWnd
Static oFontMenu
Static oBr

Function Main()

   Local cFont   := "Segoe UI Symbol"
   Local cFontH  := -14  
   Local oBar
   Local cTitle
   Local oIcon
   Local cVar1    := "???"
   Local nHt      := 0

   Fw_SetUnicode( .T. )

   SetResDebug( .T. )

   if !IsWin8() .and. !IsWindows10()
      cFont   := "Calibri"
   endif

   DEFINE FONT oFontMenu NAME cFont SIZE 0, cFontH
   DEFINE ICON oIcon FILE "..\icons\menu.ico"

   cTitle := " Pruebas de Menus:  Font - " + if( !Empty( oFontMenu ), oFontMenu:cFaceName, "" ) +;
      if( !Empty( oFontMenu ), Str( oFontMenu:nHeight ), "" ) + "   -  Redefine SYSMENU  -  5"


   DEFINE DIALOG oWnd FROM 3,6 TO 30, 100 ;
      TITLE cTitle COLOR CLR_WHITE, METRO_OLIVE

   oWnd:SetIcon( oIcon )

   ACTIVATE DIALOG oWnd CENTERED ON INIT ( DisableX( oWnd, .T.) , BuildMnu0() )

   if !Empty( oFontMenu )

      While oFontMenu:nCount > 0
         oFontMenu:End()
      Enddo

   endif

   // RELEASE BRUSH oBr

   oIcon:End()
   
   if File( "checkres.txt" )

      FErase( "checkres.txt" )

   endif

   CheckRes()

Return nil

// ---------------------------------------------------------------------//

Function BuildMnu0()
   
   local oMnu

   REDEFINE SYSMENU oMnu OF oWnd FONT oFontMenu
    SEPARATOR
    MENUITEM "SubMenu"        CHARICON 57605
    MENU 2007
      MENUITEM "Segundo Item" CHARICON 57696
      SEPARATOR
      MENUITEM "Tercer Item"  CHARICON 57736
    ENDMENU

    SEPARATOR
    MENUITEM "????? (India)"
         MENU
          MENUITEM "FIVEDIT" SEPARATOR BOLD
          MENUITEM "Methods" HSYSBITMAP 32761
          MENUITEM "Datas" HSYSBITMAP 32760
          MENUITEM "Messages" HSYSBITMAP 32744
          MENUITEM "Messages" HSYSBITMAP 32743
          MENUITEM "ClassData" CHARICON "M"

          MENUITEM "SCINTILLA" SEPARATOR BREAK BOLD
          MENUITEM "Methods de Object" CHECKED
          MENUITEM "Datas Values" HSYSBITMAP 32739
          MENUITEM "Messages Data" CHARICON 57731
          MENUITEM "Messages Method" HSYSBITMAP 32741
          MENUITEM "ClassData Object" HSYSBITMAP 32742
         ENDMENU

    SEPARATOR
    MENUITEM "??? (China)" CHECKED

    SEPARATOR
    MENUITEM "&Reset Menu"  ACTION oMnu:Reset()

   ENDSYSMENU

Return oMnu

// ---------------------------------------------------------------------//

FUNCTION DisableX(oWin, lDisable)

   LOCAL hMenu  := 0
   LOCAL nCount := 0
   
   DEFAULT lDisable := .T.
   
   IF lDisable

      hMenu  = GetSystemMenu(oWin:hWnd, .F.)
      nCount = GetMItemCount(hMenu)

      ? nCount
   
      IF oWin:ClassName() = "TDIALOG"
         RemoveMenu(hMenu, 0, nOR( MF_BYPOSITION, 0 ) )
         RemoveMenu(hMenu, 0, nOR( MF_BYPOSITION, 0 ) )
      ELSE
         RemoveMenu(hMenu, nCount - 1, nOR( MF_BYPOSITION, MF_DISABLED) )
         RemoveMenu(hMenu, nCount - 2, nOR( MF_BYPOSITION, MF_DISABLED) )
      ENDIF
   
   ELSE
      GetSystemMenu( oWin:hWnd, .T. )
   ENDIF
   
RETURN nil
 

Ahora, en el DIALOGO si, se puede.

Regards, saludos.

[José Camilo]

Gracias Joao, por tu tiempo.
lo que buscaba era poner un titulo y algun (os) bmp o jpg.
Por ejemplo. "Propiedades "+un tilde de forma grafica.
Tambien podria haber sido un pequeño btnbmp o un checbox.

Gracias

[karinha]

Gracias Joao, por tu tiempo.
lo que buscaba era poner un titulo y algun (os) bmp o jpg.
Por ejemplo. "Propiedades "+un tilde de forma grafica.
Tambien podria haber sido un pequeño btnbmp o un checbox.

Gracias

¿En el TÍTULO (Caption) del DIÁLOGO? Nunca he visto algo parecido en ningún lenguaje de programación. Lo que haría sería crear una BARRA DE BOTONES EN LA PARTE SUPERIOR DEL DIÁLOGO y luego sí, pondría todo lo que dijiste.

Salu2.

[José Camilo]

Gracias Joao.
Yo tampoco lo vi, solo imagine que si se podia colocar un texto y al definirlo se le pueden poner o quitar los botones de ayuda, minimizar y salida, se podia hacer algo como lo preguntado.
Muchas gracias por tu tiempo.

José Camilo