MessageBox (coordenadas) para xHarbour

[clodoaldomonteiro]

Boas,

Compilo minha aplicações com o xHarbour 1.0 + GTWVW e queria saber dos amigos se tem como eu colocar um MessageBox gráfico em uma determinada posição da tela?

Desde já agradeço a ajuda.

[JoséQuintas]

O original do Windows não, porque não tem parâmetro pra isso.
Mas se usa GTWVW, só fazer uma janela em GTWVW.

[clodoaldomonteiro]

Obrigado Quintas.
Tem até a função wvw_messagebox() da lib GTWVW, mas nào tem parâmetros para definir a localização, sempre mostra ao centro.
A idéia que vc deu já tinha feito. Uma janelinha com um PROMPT, mas queria algo como as janelinhas do Windows.
Não sei também se a hbwin.lib tem.

[JoséQuintas]

Nos exemplos do Clipper tem uma interessante, senão é fazer com LIB gráfica.

source\tbrow\sprdsht

[Claudio Soto]

Es posible cambiar la posición de las cajas de diálogo de Windows, pero requiere algún trabajo extra porque hay que crear un hook de msg de los diálogos e interceptar los msg, tal cual como lo hice para HMG oficial, ver info de la doc:

SET DIALOGBOX POSITION
Sets the Position of the Dialog Boxes in the Screen
(FindTextDialog, GetColor, GetFile, GetFolder, GetFont, MessageBoxTimeout, MsgXXX, PutFile, ReplaceTextDialog, SELECT PRINTER, etc.)
 
 
 
 
Syntax:
 
        SET DIALOGBOX [ POSITION ] ROW <nRow>|<CodeBlockRow>|<NIL> COL <nCol>|<CodeBlockCol>|<NIL>
 
        SET DIALOGBOX [ POSITION ] CENTER OF PARENT
 
        SET DIALOGBOX [ POSITION ] CENTER OF <hWnd>
 
        SET DIALOGBOX [ POSITION ] CENTER OF DESKTOP
 
        SET DIALOGBOX [ POSITION ] DISABLE
 
 
 
Example:
 
 
   #include "hmg.ch"
 
   FUNCTION Main()
 
      DEFINE WINDOW Form_1 ;
         AT 0,0 ;
         WIDTH  300 ;
         HEIGHT 200 ;
         MAIN;
         TITLE "Move This Window"
 
         @ 50,100 BUTTON Button_1 CAPTION "Click Here" ACTION MsgInfo ("Hello")
 
         // These CodeBlock puts the dialog box always in the same Row and Col of Form_1
         cbRow1 := {|| Form_1.Row }
         cbCol1 := {|| Form_1.Col }
 
         // These CodeBlock puts the dialog box always in the same Row and Col of Button_1
         cbRow2 := {|| ClientToScreenRow ( Form_1.HANDLE , Form_1.Button_1.Row ) }
         cbCol2 := {|| ClientToScreenCol ( Form_1.HANDLE , Form_1.Button_1.Col ) }
 
         SET DIALOGBOX ROW cbRow2 COL cbCol2
 
      END WINDOW
 
      CENTER WINDOW Form_1
 
      ACTIVATE WINDOW Form_1
 
   RETURN NIL
 
 

[clodoaldomonteiro]

Olá Claudio,

Pode-se usar suas sugestões com o xHarbour + GTWVW?