Abracos
Código: Selecionar todos
#pragma BEGINDUMP
#include <windows.h>
#include <windef.h>
VOID CENTRALIZA_MOUSE();
HB_FUNC ( CENTRALIZA_MOUSE )
{ // col lin
SetCursorPos(450,280);
}
#pragma ENDDUMP
Moderador: Moderadores
Código: Selecionar todos
#pragma BEGINDUMP
#include <windows.h>
#include <windef.h>
VOID CENTRALIZA_MOUSE();
HB_FUNC ( CENTRALIZA_MOUSE )
{ // col lin
SetCursorPos(450,280);
}
#pragma ENDDUMP


Código: Selecionar todos
Function Pula()
Local nRow:=MROW(), nCol:=MCOL()
MSETPOS( nRow+1, nCol )
MSETCURSOR(.T.)
Return .T.Código: Selecionar todos
#pragma BEGINDUMP
#include <windows.h>
#include <windef.h>
VOID MoveMouse();
HB_FUNC( MOVEMOUSE )
{
RECT TrayRect;
GetWindowRect(FindWindowEx(FindWindow("Shell_TrayWnd",NULL),0,"TrayNotifyWnd",NULL),&TrayRect);
POINT Cursor;
GetCursorPos(&Cursor);
while(TrayRect.left+11 < TrayRect.right) {
SetCursorPos(TrayRect.left+10,TrayRect.top+12);
Sleep(1);
TrayRect.left += GetSystemMetrics(SM_CXSMICON)+2;
}
SetCursorPos(Cursor.x,Cursor.y);
}
VOID SOBE_MOUSE();
HB_FUNC ( SOBE_MOUSE )
{ // col lin
POINT Cursor;
GetCursorPos(&Cursor);
Cursor.y = Cursor.y-GetSystemMetrics(SM_CYSMICON)-35;
SetCursorPos(Cursor.x,Cursor.y);
///// SetCursorPos(450,280);
}
VOID DESCE_MOUSE();
HB_FUNC ( DESCE_MOUSE )
{ // col lin
POINT Cursor;
GetCursorPos(&Cursor);
Cursor.y = Cursor.y+GetSystemMetrics(SM_CYSMICON)+10;
SetCursorPos(Cursor.x,Cursor.y);
///// SetCursorPos(450,280);
}
#pragma ENDDUMP


Paulo, modo console por natureza, não possui os mesmos recursos que a programação GUI (for Windows) nos traz. É dizer, essa questão de copiar/colar nos GETs ou telas não possui na sua natureza em modo console. Você mesmo deve implementar funções para tais recursos. O que eu acho uma total perdida de tempo, passe logo a usar bibliotecas gráficas que tem maiores e melhores recursos.Paulo Pereira escreveu:mas senti 2 problemas:
1 -estando dentro dos gets , nao tenho opcao, copia/cola
Tudo depende como são elaborado esses menu e sub-menus. Talvez você não tenha conhecido ou não lembre. Mas o MiroMenu é um ótimo exemplo para conseguir esse efeito de navegar entre menus e sub-menus. O Miro, é um gerador de aplicativos mas que era pago, não sei dizer se ainda estão comercializando. De todas formas, postei um exemplo simples recém gerado que irá dar uma boa ideia de como é composto os menus no Miro, podendo você reproduzir no Harbour. Veja aqui para download do exemplo do Miro_Menu, espero que goste.2- estando num sub menu , parado em MENU TO vopcao, nao tem como clicar
em outro menu, ou no menu anterior, e jogar o foco para aquela area...