COLEGAS,, ALGUIEN SABRA COMO DEJAR UNA WINDOW SOLAMENTE CON LOS BOTONES MINIMIZAR, MAXIM,,, Y CERRAR...
OSEA QUITAR EL ICONO DE LA VENTANA Y EL MENU Q SE GENERA AHI;;
GRACIAS
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ALGUIEN SABRA:::
Hola:
he aqui un codigo sencillo que hace lo que pides.
no se como colocar imagenes, pero es lo que necesitas.
saludos desde Chile
he aqui un codigo sencillo que hace lo que pides.
#Include "FiveWin.Ch"
FUNCTION Main()
LOCAL oWnd, oFont, oBmp, oMan, oBar, oOut
REQUEST DBFCDX, OrdKeyNo, OrdKeyCount
RddSetDefault("DBFCDX")
SET CENTURY ON
SET DATE FRENCH
SET DELETED ON
DEFINE FONT oFont NAME "Sagoe UI" SIZE 0, -12
DEFINE CURSOR oMan RESOURCE "MANO"
DEFINE BRUSH oBrs COLOR nRGB(0,0,0)
SET _3DLOOK ON
DEFINE WINDOW oWnd TITLE "TITULO" BRUSH oBrs
DEFINE BUTTONBAR oBar SIZE 70,47 TOP 3D OF oWnd CURSOR oMan
DEFINE BUTTON RESOURCE "SALIR" OF oBar NOBORDER GROUP ;
TOOLTIP " Salir del Sistema " ACTION oWnd:End()
@ -1, 2 OUTLOOK oOut SIZE 110, oWnd:nHeight() PIXEL FONT oFont OF oWnd
DEFINE GROUP OF OUTLOOK oOut PROMPT "Procesos"
DEFINE BITMAP OF OUTLOOK oOut PROMPT "Resumen Vtas" ACTION Cierre() ;
RESOURCE 3 MESSAGE " Cierre de Ventas Sucursales " ;
TOOLTIP " Resumen de Ventas por Sucursal "
DEFINE GROUP OF OUTLOOK oOut PROMPT "..."
oWnd:oMsgBar:DateOn()
oWnd:oBar:bRClicked = { || MsgStop("NO REALIZAR ACCION") }
ACTIVATE WINDOW oWnd MAXIMIZED ON PAINT ( PalBmpDraw( hDC, ;
( oWnd:nHeight() / 2 ) - ( oBit:nHeight() / 2 ) - 50, ;
( oWnd:nWidth() / 2 ) - ( oBit:nWidth() / 2 ), oBit:hBitmap ) )
oFont:End()
DBCLOSEALL()
SET RESOURCES TO
FreeResources()
RELEASE oWnd, oFont
RETURN Nilno se como colocar imagenes, pero es lo que necesitas.
saludos desde Chile
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
Mail: armando.lagunas@gmail.com