Dialog com Imagem congela controles

[jhilbert]

Olá Colegas,

Bom está de volta....

Coloquei um picture no RESOURCE (pelles) .res, e a image está fincando na frente dos controles (radio,get), mesmo colocando na ordem a imagem primeiro. Alguém saberia o que pode está acontecendo....

 

DEFINE DIALOG oDlgMan RESOURCE "TELATRA3X" COLORS CLR_LGREEN,CLR_LWHITE
  oDlgMan:Cargo:=.F.
  oDlgMan:cCaption:= Iif(cOrig="V","Venda","Orçamento")+" de Produtos"
    SET FONT OF oDlgMan TO oFont15b
    ***
    REDEFINE IMAGE oImage ID 102 OF oDlgMan transparent FILE cPdv 
        REDEFINE COMBOBOX oCbxMan VAR cVenNome ITEMS PEGA(cVennome,"vendedor","vennome");
    ID 4012 OF oDlgMan;
    ON CHANGE ( cVenNome2:= cVenNome, oCbxMan:Refresh() ) ;
    VALID ( If( ! oCbxMan:Find( oCbxMan:oGet:GetText() ),;
            oCbxMan:Add( oCbxMan:oGet:GetText() ),), .t. ) WHEN cStage="0" .OR. cOrig="P"
  REDEFINE VGET oCodBusca VAR cCodBusca PICTURE iif(cEBusca=1, '9999999999999', iif(cEBusca=2, '99999999','@!')) ID 4008 OF oDlgMan color get_Iler,get_Fler font oFont20b  WHEN (!Empty(cVenNome) .AND. (cStage="1" .OR. cStage="0") ) FileAction "Lupa" Action BuscaPro("2",oDlgMan,oLbxMan,1) VALID (Empty(cCodBusca) .OR. (Achapro(iif(cEBusca=3,cCodBusca,STRZERO(VAL(cCodBusca),nBusca)),"2",oDlgMan,oLbxMan,1))) Vista
  REDEFINE GROUP ID 4020 OF oDlgMan color CLR_AZULXP,CLR_LAZUL FONT oFont14
    REDEFINE RADIO oRad VAR cRadop ID 4009,4010,4011 OF oDlgMan on change MudaRadio() COLOR CLR_BLACK,CLR_LAZUL WHEN iif(cOrig="P",(cStage="1" .AND. cOrig="P"),cStage#"5")

 

[aferra]

Se entendi. teria que usar o botão Order control do pellesc que é o quarto botão depois que abre a dialog.

[jhilbert]

Exatamente, já fiz isso, como quero a imagem sendo fundo da tela, coloquei -a na ordem sendo a 1...  e depois os outros controles Get, text, rádio .... aí não consegue acessar os controles (vê) mas não acessa...

[kapiaba]

Verifique o tamanho da imagem. Teste com outra para ver.

[kapiaba]

Teste ai,

 

#include "FiveWin.ch" 
	function Main() 
	   local oDlg, oHand, oBmp1
	   DEFINE CURSOR oHand HAND
	   DEFINE DIALOG oDlg RESOURCE "Test" 
	   REDEFINE IMAGE oBmp1 ID 110 OF oDlg FILENAME "c:\fwh..\bitmaps\olga1.jpg"
	   oBmp1:oCursor = oHand
   
   ACTIVATE DIALOG oDlg CENTERED 
	return nil 
	function GetColor( nRow, nCol, oDlg )
	   local hDC  := CreateCompatibleDC( oDlg:GetDC() )
   local oImg := TImage()
   local dummy := oImg:LoadImage( , "..\bitmaps\olga2.jpg" )
   local hBmp  := oImg:hBitmap
   local hOldBmp   := SelectObject( hDC, hBmp )
   local nRGBColor := GetPixel( hDC, nCol, nRow )   
	   SelectObject( hDC, hOldBmp )
   DeleteObject( hBmp )
   DeleteDC( hDC )
   oDlg:ReleaseDC()
   
return nRGBColor
	function GetArea( nRGBColor )
	   do case 
      case nRGBColor == 5091363
           return "Nariz"
           
      case nRGBColor == 2366445
           return "Ojos"  
           
      case nRGBColor == 2523134
           return "Boca"     
           
      case nRGBColor == 10832034
           return "Oido"     
	      otherwise
           return Str( nRGBColor ) + ", no definido aun en la funcion GetArea()"       
      
   endcase
   
return nil
	/*
test DIALOG 17, 36, 235, 260 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU 
CAPTION "Testimage" 
FONT 8, "MS Sans Serif" 
{ 
  CONTROL "", 110, "TImage", WS_CHILD | WS_VISIBLE, 0, 0, 235, 300
}
*/

[jhilbert]

Na imagem anexo, os ccontroles só ativam (e parecem) quando passo o mouse sobre o controle||

 

Tem outra forma de colocar um imagem de fundo em uma DIALOG...?? 

[Jmsilva]

Pelos testes que fiz, obedece a ordem colocado no Pelles, não consegui fazer a mudança via código. No Pelles tem que colocar a imagem primeiro e depois os label, texto, combo, etc

 

[jhilbert]

Refiz a DIALOG colocando primeiro a Imagem, e depois os outros controles. Alguns ficam na frente (get, text), outros(radio, combo) se escondem atras da imagem, mesmo colocando esse controles apos a imagem e colocando o order control a imagem primeiro.