Page 1 of 1
Colocar una imagen en el titulo de un dialogo.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Sep 07, 2023 2:47 pm
by José Camilo
Buenos dias!!!
Necesito colocar una imágen o varias (bmp, jpg, ... ) dentro del titulo de un dialogo.
Se Puede realizar?
Como?
Gracias
Re: Colocar una imagen en el titulo de un dialogo.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Sep 07, 2023 4:59 pm
by 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.
Re: Colocar una imagen en el titulo de un dialogo.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Sep 07, 2023 6:35 pm
by 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
Re: Colocar una imagen en el titulo de un dialogo.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 08, 2023 4:40 pm
by karinha
José Camilo wrote: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.
Re: Colocar una imagen en el titulo de un dialogo.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 08, 2023 11:05 pm
by 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