Desabilitar o X da janela

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 09 Out 2019 14:18

Não estou conseguindo desabilitar o X.

Meu programinha está sendo fechado pelo X da janela, e isso arrebenta os meus NTX.

A minha versao é Harbour 3.2.0dev (r1812311432)

compilo com .bat hbmk2 MTESTE.HBP

Mensagem por **JoséQuintas** » 09 Out 2019 19:44

Marcelo Baliza escreveu:Meu programinha está sendo fechado pelo X da janela, e isso arrebenta os meus NTX.

Ainda console?
Solução rápida: GTWVG, ela transforma o X em ESC.

Faça um teste:
hbmk2 mteste.hbp gtwvg.hbc

Se não incluiu nada proposital impedindo gtwvg, é só isso que precisa e nada mais.

Mensagem por **JoséQuintas** » 09 Out 2019 21:26

E sobre o assunto do tópico, apesar de antigo sobre janela invisível, GTWVG só tem janela se criar.
E GTWVG é gráfico encima da WVT, mas... neste caso somente Windows.

isto fica invisível

Código: Selecionar todos

PROCEDURE Main

USE arquivo
dbEval( .... )
USE

isto não

Código: Selecionar todos

PROCEDURE Main
CLS

Como a maioria usa GUI Windows... adicionando GTWVG dá pra criar recursos que as vezes as LIBs GUI não tem.
Não sei dizer sobre a WVT porque não faço uso prático dela.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 10 Out 2019 13:53

Código: Selecionar todos

#include "inkey.ch"
#include "hbgtinfo.ch"
SET WRAP ON
SET ESCAPE ON
SET SAFETY OFF
SET STATUS OFF
SET TALK OFF
SET CONSOLE OFF
SET SCOREBOARD OFF
SET INTENSITY ON
**************************VIRADA DO MILENIO******
set epoc to 2000
**************************VIRADA DO MILENIO******
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN_DEFAULT

*   HB_CDPSELECT('PT850')
   HB_LANGSELECT('PT')
   HB_SETCODEPAGE('PT850')


MAIN()


*****************************************************************************************************
	/*
	 * $Id: gtkeys.prg 16507 2011-03-26 02:32:52Z druzus $
	 */
	 
	/*
	 * Harbour Project source code:
	 *    demonstration/test code for GT keyboard input
	 *
	 * Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
	 * www - http://harbour-project.org
	 *
	 */
	 
	#include "inkey.ch"
	#ifdef __HARBOUR__
	#include "hbgtinfo.ch"
	#endif
	 
	function main()
	local k, i, s
	local aKeys := { ;
	 { "K_UP",               5, "Up arrow, Ctrl-E"                }, ;
	 { "K_DOWN",            24, "Down arrow, Ctrl-X"              }, ;
	 { "K_LEFT",            19, "Left arrow, Ctrl-S"              }, ;
	 { "K_RIGHT",            4, "Right arrow, Ctrl-D"             }, ;
	 { "K_HOME",             1, "Home, Ctrl-A"                    }, ;
	 { "K_END",              6, "End, Ctrl-F"                     }, ;
	 { "K_PGUP",            18, "PgUp, Ctrl-R"                    }, ;
	 { "K_PGDN",             3, "PgDn, Ctrl-C"                    }, ;
	 { "K_CTRL_UP",        397, "Ctrl-Up arrow"                   }, ;
	 { "K_CTRL_DOWN",      401, "Ctrl-Down arrow"                 }, ;
	 { "K_CTRL_LEFT",       26, "Ctrl-Left arrow, Ctrl-Z"         }, ;
	 { "K_CTRL_RIGHT",       2, "Ctrl-Right arrow, Ctrl-B"        }, ;
	 { "K_CTRL_HOME",       29, "Ctrl-Home, Ctrl-]"               }, ;
	 { "K_CTRL_END",        23, "Ctrl-End, Ctrl-W"                }, ;
	 { "K_CTRL_PGUP",       31, "Ctrl-PgUp, Ctrl-Hyphen"          }, ;
	 { "K_CTRL_PGDN",       30, "Ctrl-PgDn, Ctrl-^"               }, ;
	 { "K_ALT_UP",         408, "Alt-Up arrow"                    }, ;
	 { "K_ALT_DOWN",       416, "Alt-Down arrow"                  }, ;
	 { "K_ALT_LEFT",       411, "Alt-Left arrow"                  }, ;
	 { "K_ALT_RIGHT",      413, "Alt-Right arrow"                 }, ;
	 { "K_ALT_HOME",       407, "Alt-Home"                        }, ;
	 { "K_ALT_END",        415, "Alt-End"                         }, ;
	 { "K_ALT_PGUP",       409, "Alt-PgUp"                        }, ;
	 { "K_ALT_PGDN",       417, "Alt-PgDn"                        }, ;
	 { "K_ENTER",           13, "Enter, Ctrl-M"                   }, ;
	 { "K_RETURN",          13, "Return, Ctrl-M"                  }, ;
	 { "K_SPACE",           32, "Space bar"                       }, ;
	 { "K_ESC",             27, "Esc, Ctrl-["                     }, ;
	 { "K_CTRL_ENTER",      10, "Ctrl-Enter"                      }, ;
	 { "K_CTRL_RETURN",     10, "Ctrl-Return"                     }, ;
	 { "K_CTRL_RET",        10, "Ctrl-Return (Compat.)"           }, ;
	 { "K_CTRL_PRTSCR",    379, "Ctrl-Print Screen"               }, ;
	 { "K_CTRL_QUESTION",  309, "Ctrl-?"                          }, ;
	 { "K_ALT_ENTER",      284, "Alt-Enter"                       }, ;
	 { "K_ALT_RETURN",     284, "Alt-Return"                      }, ;
	 { "K_ALT_EQUALS",     387, "Alt-Equals"                      }, ;
	 { "K_ALT_ESC",        257, "Alt-Esc"                         }, ;
	 { "KP_CENTER",        332, "Keypad CENTER (5)"               }, ;
	 { "KP_ALT_ENTER",     422, "Keypad Alt-Enter"                }, ;
	 { "KP_CTRL_5",        399, "Keypad Ctrl-5"                   }, ;
	 { "KP_CTRL_SLASH",    405, "Keypad Ctrl-/"                   }, ;
	 { "KP_CTRL_ASTERISK", 406, "Keypad Ctrl-*"                   }, ;
	 { "KP_CTRL_MINUS",    398, "Keypad Ctrl--"                   }, ;
	 { "KP_CTRL_PLUS",     400, "Keypad Ctrl-+"                   }, ;
	 { "KP_ALT_5",           5, "Keypad Alt-5"                    }, ;
	 { "KP_ALT_SLASH",     420, "Keypad Alt-/"                    }, ;
	 { "KP_ALT_ASTERISK",  311, "Keypad Alt-*"                    }, ;
	 { "KP_ALT_MINUS",     330, "Keypad Alt--"                    }, ;
	 { "KP_ALT_PLUS",      334, "Keypad Alt-+"                    }, ;
	 { "K_INS",             22, "Ins, Ctrl-V"                     }, ;
	 { "K_DEL",              7, "Del, Ctrl-G"                     }, ;
	 { "K_BS",               8, "Backspace, Ctrl-H"               }, ;
	 { "K_TAB",              9, "Tab, Ctrl-I"                     }, ;
	 { "K_SH_TAB",         271, "Shift-Tab"                       }, ;
	 { "K_CTRL_INS",       402, "Ctrl-Ins"                        }, ;
	 { "K_CTRL_DEL",       403, "Ctrl-Del"                        }, ;
	 { "K_CTRL_BS",        127, "Ctrl-Backspace"                  }, ;
	 { "K_CTRL_TAB",       404, "Ctrl-Tab"                        }, ;
	 { "K_ALT_INS",        418, "Alt-Ins"                         }, ;
	 { "K_ALT_DEL",        419, "Alt-Del"                         }, ;
	 { "K_ALT_BS",         270, "Alt-Backspace"                   }, ;
	 { "K_ALT_TAB",        421, "Alt-Tab"                         }, ;
	 { "K_CTRL_A",           1, "Ctrl-A, Home"                    }, ;
	 { "K_CTRL_B",           2, "Ctrl-B, Ctrl-Right arrow"        }, ;
	 { "K_CTRL_C",           3, "Ctrl-C, PgDn, Ctrl-ScrollLock"   }, ;
	 { "K_CTRL_D",           4, "Ctrl-D, Right arrow"             }, ;
	 { "K_CTRL_E",           5, "Ctrl-E, Up arrow"                }, ;
	 { "K_CTRL_F",           6, "Ctrl-F, End"                     }, ;
	 { "K_CTRL_G",           7, "Ctrl-G, Del"                     }, ;
	 { "K_CTRL_H",           8, "Ctrl-H, Backspace"               }, ;
         { "K_CTRL_I",           9, "Ctrl-I, Tab"                     }, ;
	 { "K_CTRL_J",          10, "Ctrl-J"                          }, ;
	 { "K_CTRL_K",          11, "Ctrl-K"                          }, ;
	 { "K_CTRL_L",          12, "Ctrl-L"                          }, ;
	 { "K_CTRL_M",          13, "Ctrl-M, Return"                  }, ;
	 { "K_CTRL_N",          14, "Ctrl-N"                          }, ;
	 { "K_CTRL_O",          15, "Ctrl-O"                          }, ;
	 { "K_CTRL_P",          16, "Ctrl-P"                          }, ;
	 { "K_CTRL_Q",          17, "Ctrl-Q"                          }, ;
	 { "K_CTRL_R",          18, "Ctrl-R, PgUp"                    }, ;
	 { "K_CTRL_S",          19, "Ctrl-S, Left arrow"              }, ;
	 { "K_CTRL_T",          20, "Ctrl-T"                          }, ;
	 { "K_CTRL_U",          21, "Ctrl-U"                          }, ;
	 { "K_CTRL_V",          22, "Ctrl-V, Ins"                     }, ;
	 { "K_CTRL_W",          23, "Ctrl-W, Ctrl-End"                }, ;
	 { "K_CTRL_X",          24, "Ctrl-X, Down arrow"              }, ;
	 { "K_CTRL_Y",          25, "Ctrl-Y"                          }, ;
	 { "K_CTRL_Z",          26, "Ctrl-Z, Ctrl-Left arrow"         } }
	aadd(aKeys, { "K_ALT_A",          286, "Alt-A"                          }  )
	aadd(aKeys, { "K_ALT_B",          304, "Alt-B"                          }  )
	aadd(aKeys, { "K_ALT_C",          302, "Alt-C"                          }  )
	aadd(aKeys, { "K_ALT_D",          288, "Alt-D"                          }  )
	aadd(aKeys, { "K_ALT_E",          274, "Alt-E"                          }  )
	aadd(aKeys, { "K_ALT_F",          289, "Alt-F"                          }  )
	aadd(aKeys, { "K_ALT_G",          290, "Alt-G"                          }  )
	aadd(aKeys, { "K_ALT_H",          291, "Alt-H"                          }  )
	aadd(aKeys, { "K_ALT_I",          279, "Alt-I"                          }  )
	aadd(aKeys, { "K_ALT_J",          292, "Alt-J"                          }  )
	aadd(aKeys, { "K_ALT_K",          293, "Alt-K"                          }  )
	aadd(aKeys, { "K_ALT_L",          294, "Alt-L"                          }  )
	aadd(aKeys, { "K_ALT_M",          306, "Alt-M"                          }  )
	aadd(aKeys, { "K_ALT_N",          305, "Alt-N"                          }  )
	aadd(aKeys, { "K_ALT_O",          280, "Alt-O"                          }  )
	aadd(aKeys, { "K_ALT_P",          281, "Alt-P"                          }  )
	aadd(aKeys, { "K_ALT_Q",          272, "Alt-Q"                          }  )
	aadd(aKeys, { "K_ALT_R",          275, "Alt-R"                          }  )
	aadd(aKeys, { "K_ALT_S",          287, "Alt-S"                          }  )
	aadd(aKeys, { "K_ALT_T",          276, "Alt-T"                          }  )
	aadd(aKeys, { "K_ALT_U",          278, "Alt-U"                          }  )
	aadd(aKeys, { "K_ALT_V",          303, "Alt-V"                          }  )
	aadd(aKeys, { "K_ALT_W",          273, "Alt-W"                          }  )
	aadd(aKeys, { "K_ALT_X",          301, "Alt-X"                          }  )
	aadd(aKeys, { "K_ALT_Y",          277, "Alt-Y"                          }  )
	aadd(aKeys, { "K_ALT_Z",          300, "Alt-Z"                          }  )
	aadd(aKeys, { "K_ALT_1",          376, "Alt-1"                          }  )
	aadd(aKeys, { "K_ALT_2",          377, "Alt-2"                          }  )
	aadd(aKeys, { "K_ALT_3",          378, "Alt-3"                          }  )
	aadd(aKeys, { "K_ALT_4",          379, "Alt-4"                          }  )
	aadd(aKeys, { "K_ALT_5",          380, "Alt-5"                          }  )
	aadd(aKeys, { "K_ALT_6",          381, "Alt-6"                          }  )
	aadd(aKeys, { "K_ALT_7",          382, "Alt-7"                          }  )
	aadd(aKeys, { "K_ALT_8",          383, "Alt-8"                          }  )
	aadd(aKeys, { "K_ALT_9",          384, "Alt-9"                          }  )
	aadd(aKeys, { "K_ALT_0",          385, "Alt-0"                          }  )
	aadd(aKeys, { "K_F1",              28, "F1, Ctrl-Backslash"             }  )
	aadd(aKeys, { "K_F2",              -1, "F2"                             }  )
	aadd(aKeys, { "K_F3",              -2, "F3"                             }  )
	aadd(aKeys, { "K_F4",              -3, "F4"                             }  )
	aadd(aKeys, { "K_F5",              -4, "F5"                             }  )
	aadd(aKeys, { "K_F6",              -5, "F6"                             }  )
	aadd(aKeys, { "K_F7",              -6, "F7"                             }  )
	aadd(aKeys, { "K_F8",              -7, "F8"                             }  )
	aadd(aKeys, { "K_F9",              -8, "F9"                             }  )
	aadd(aKeys, { "K_F10",             -9, "F10"                            }  )
	aadd(aKeys, { "K_F11",            -40, "F11"                            }  )
	aadd(aKeys, { "K_F12",            -41, "F12"                            }  )
	aadd(aKeys, { "K_CTRL_F1",        -20, "Ctrl-F1"                        }  )
	aadd(aKeys, { "K_CTRL_F2",        -21, "Ctrl-F2"                        }  )
	aadd(aKeys, { "K_CTRL_F3",        -22, "Ctrl-F4"                        }  )
	aadd(aKeys, { "K_CTRL_F4",        -23, "Ctrl-F3"                        }  )
	aadd(aKeys, { "K_CTRL_F5",        -24, "Ctrl-F5"                        }  )
	aadd(aKeys, { "K_CTRL_F6",        -25, "Ctrl-F6"                        }  )
	aadd(aKeys, { "K_CTRL_F7",        -26, "Ctrl-F7"                        }  )
	aadd(aKeys, { "K_CTRL_F8",        -27, "Ctrl-F8"                        }  )
	aadd(aKeys, { "K_CTRL_F9",        -28, "Ctrl-F9"                        }  )
	aadd(aKeys, { "K_CTRL_F10",       -29, "Ctrl-F10"                       }  )
	aadd(aKeys, { "K_CTRL_F11",       -44, "Ctrl-F11"                       }  )
	aadd(aKeys, { "K_CTRL_F12",       -45, "Ctrl-F12"                       }  )
	aadd(aKeys, { "K_ALT_F1",         -30, "Alt-F1"                         }  )
	aadd(aKeys, { "K_ALT_F2",         -31, "Alt-F2"                         }  )
	aadd(aKeys, { "K_ALT_F3",         -32, "Alt-F3"                         }  )
	aadd(aKeys, { "K_ALT_F4",         -33, "Alt-F4"                         }  )
	aadd(aKeys, { "K_ALT_F5",         -34, "Alt-F5"                         }  )
	aadd(aKeys, { "K_ALT_F6",         -35, "Alt-F6"                         }  )
	aadd(aKeys, { "K_ALT_F7",         -36, "Alt-F7"                         }  )
	aadd(aKeys, { "K_ALT_F8",         -37, "Alt-F8"                         }  )
	aadd(aKeys, { "K_ALT_F9",         -38, "Alt-F9"                         }  )
	aadd(aKeys, { "K_ALT_F10",        -39, "Alt-F10"                        }  )
	aadd(aKeys, { "K_ALT_F11",        -46, "Alt-F11"                        }  )
	aadd(aKeys, { "K_ALT_F12",        -47, "Alt-F12"                        }  )
	aadd(aKeys, { "K_SH_F1",          -10, "Shift-F1"                       }  )
	aadd(aKeys, { "K_SH_F2",          -11, "Shift-F2"                       }  )
	aadd(aKeys, { "K_SH_F3",          -12, "Shift-F3"                       }  )
	aadd(aKeys, { "K_SH_F4",          -13, "Shift-F4"                       }  )
	aadd(aKeys, { "K_SH_F5",          -14, "Shift-F5"                       }  )
	aadd(aKeys, { "K_SH_F6",          -15, "Shift-F6"                       }  )
	aadd(aKeys, { "K_SH_F7",          -16, "Shift-F7"                       }  )
	aadd(aKeys, { "K_SH_F8",          -17, "Shift-F8"                       }  )
	aadd(aKeys, { "K_SH_F9",          -18, "Shift-F9"                       }  )
	aadd(aKeys, { "K_SH_F10",         -19, "Shift-F10"                      }  )
	aadd(aKeys, { "K_SH_F11",         -42, "Shift-F11"                      }  )
	aadd(aKeys, { "K_SH_F12",         -43, "Shift-F12"                      }  )
	aadd(aKeys, { "K_MOUSEMOVE",     1001, "mouse move"                     }  )
	aadd(aKeys, { "K_LBUTTONDOWN",   1002, "mouse left button down"         }  )
	aadd(aKeys, { "K_LBUTTONUP",     1003, "mouse left button up"           }  )
	aadd(aKeys, { "K_RBUTTONDOWN",   1004, "mouse right button down"        }  )
	aadd(aKeys, { "K_RBUTTONUP",     1005, "mouse right button up"          }  )
	aadd(aKeys, { "K_LDBLCLK",       1006, "mouse left button double click" }  )
	aadd(aKeys, { "K_RDBLCLK",       1007, "mouse right button double click"}  )
	aadd(aKeys, { "K_MBUTTONDOWN",   1008, "mouse middle button down"       }  )
	aadd(aKeys, { "K_MBUTTONUP",     1009, "mouse middle button up"         }  )
	aadd(aKeys, { "K_MDBLCLK",       1010, "mouse middle button double click" }  )
	aadd(aKeys, { "K_MMLEFTDOWN",    1011, "Mouse Move Left Down"           }  )
	aadd(aKeys, { "K_MMRIGHTDOWN",   1012, "Mouse Move Right Down"          }  )
	aadd(aKeys, { "K_MMMIDDLEDOWN",  1013, "Mouse Move Middle Down"         }  )
	aadd(aKeys, { "K_MWFORWARD",     1014, "Mouse Wheel Forward"            }  )
	aadd(aKeys, { "K_MWBACKWARD",    1015, "Mouse Wheel Backward"           }  )
	aadd(aKeys, { "K_NCMOUSEMOVE",   1016, "Non-Client Area Mouse Movement" }  )
	aadd(aKeys, { "HB_K_RESIZE",     1101, "screen dimension changed"       }  )
	aadd(aKeys, { "HB_K_CLOSE",      1102, "close button hit"               }  )
	aadd(aKeys, { "HB_K_GETFOCUS",   1103, "focus restored"                 }  )
	aadd(aKeys, { "HB_K_LOSTFOCUS",  1104, "focus lost"                     }  )
	aadd(aKeys, { "HB_K_CONNECT",    1105, "remote terminal connected"      }  )
	aadd(aKeys, { "HB_K_DISCONNECT", 1106, "remote terminal disconnected"   }  )
	 
	? os(), version(), date(), time()
	 
	mdblclk(250)
	setcancel(.f.)
	//altd(0)
	 
	#ifdef __HARBOUR__
	   set( _SET_EVENTMASK, hb_bitOR( INKEY_ALL, HB_INKEY_GTEVENT ) )
	   hb_gtInfo(HB_GTI_ESCDELAY,50)
*      hb_cdpSelect( "PLMAZ" )

   HB_LANGSELECT('PT')

*      hb_setTermCP( "PLISO" )
	   ? hb_gtVersion(1), hb_gtVersion()
	#else
	   #ifdef INKEY_ALL
	      set(_SET_EVENTMASK,INKEY_ALL)
	   #endif
	#endif
	 
	? "@ - interrupt, keycodes checking: "
	?
	while (.t.)
	   k:=inkey(0)
	   if (i:=ascan(aKeys, { |x| x[2]==k }))!=0
	      ? " key:"+str(aKeys[i,2],7)+"  "+padr(aKeys[i,1],18)+aKeys[i,3]
	   elseif k>=32 .and. k<=126 .or. (k>=160 .and. k<=255) .or.;
	          (k>=0 .and. k<=255 .and. IsAlpha(chr(k)))
	      ? "char:"+str(k,7)+"  "+chr(k)
	   else
	      ? " key:"+str(k,7)
	   endif
	//   ?? "  ("+ltrim(str(maxrow()))+":"+ltrim(str(maxcol()))+")"
	 
	   if k==asc("@") .and. nextkey()==0
	      exit
	#ifdef __HARBOUR__
	   elseif k==K_CTRL_INS
	      if alert( "Would you like to show clipboard text?", { "YES", "NO" } ) == 1
	         s := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
	         ? "Clipboard text: [" + s + "]"
	      endif
	   elseif k==K_CTRL_END
	      if alert( "Would you like to set clipboard text?", { "YES", "NO" } ) == 1
	         s := hb_tstostr( hb_datetime() ) + hb_eol() + ;
	              "Harbour " + hb_gtVersion() + " clipboard test" + hb_eol()
	         ? "New clipboard text: [" + s + "]"
	         hb_gtInfo( HB_GTI_CLIPBOARDDATA, s )
	      endif
	#endif
	   endif
	enddo
	?
	return nil

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 10 Out 2019 13:54

Ainda está fechando com o "X" da janela.

Mensagem por **JoséQuintas** » 10 Out 2019 14:11

Retire o que colocou de diferente.
Acrescente isto

Código: Selecionar todos

PROCEDURE HB_GTSYS()

   REQUEST HB_GT_WVG_DEFAULT

   RETURN

e compile acrescentando gtwvg.hbc

Se você adicionar várias GTs, nem sei qual vai ser a default.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 10 Out 2019 15:59

A janela ainda fecha com o "X"

#include "inkey.ch"
#include "hbgtinfo.ch"
SET WRAP ON
SET ESCAPE ON
SET SAFETY OFF
SET STATUS OFF
SET TALK OFF
SET CONSOLE OFF
SET SCOREBOARD OFF
SET INTENSITY ON
**************************VIRADA DO MILENIO******
set epoc to 2000
**************************VIRADA DO MILENIO******
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN_DEFAULT

* HB_CDPSELECT('PT850')
HB_LANGSELECT('PT')
HB_SETCODEPAGE('PT850')

MAIN()

FUNCTION MAIN()

@ 10,10 SAY ' TRAVAR O X'
INKEY(0)

HB_GTSYS()
RETURN

PROCEDURE HB_GTSYS()
REQUEST HB_GT_WVG_DEFAULT
RETURN

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 10 Out 2019 18:34

Perfeito,
Valeu amigo.

Nascimento · Mensagem por **Nascimento** » 12 Out 2019 13:51

lembro que ja houve essa duvida de um amigo sobre isso tem até uns pequenos exemplos
olhe aqui

https://pctoledo.org/forum/viewto ... +da+janela

PC Toledo