Plano de fundo

[ederxc]

Amigos , como in serir um plano de fundo na tela principal window main

[ederxc]

...Quando digom plano de fundo quero dizer inserir uma imagem qualquer no fundo da janela principal , sendo ela MDI ou MAIN ...

[sygecom]

Segue abaixo um exemplo:

Código: Selecionar todos

#include "hwgui.ch"

Function Main()
  Local oBmp:=HBITMAP():ADDFILE("tela.bmp")
		Private oTelaPrincipal, oFont

 	PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
  INIT WINDOW oTelaPrincipal TITLE "Tela Inicial";
  AT 0,0 BACKGROUND BITMAP oBmp

		MENU OF oTelaPrincipal
   		MENUITEM "&Teste"    ACTION Nada()
		ENDMENU

	ACTIVATE WINDOW oTelaPrincipal MAXIMIZED

Return NIL

Function Nada()
Return NIL

Se serve como conselho, fique longe da imgens de plano de fundo, se vc for usar seu sistema pelo Terminal Service via Internet...seu sistema leva 5x mais o tempo só para abrir....mas para uso Local...vai que é um dogge.

Abraços
Leonardo Machado

[ederxc]

Beleza , vlw !