Форум » GUI » TEXTBOX + TOOLTIP -> Error » Ответить
TEXTBOX + TOOLTIP -> Error
Новичок: При подключении TOOLTIP к элементу TEXTBOX дает ошибку.
Ответов - 5
gfilatov2002: Новичок пишет: При подключении TOOLTIP к элементу TEXTBOX дает ошибку Без представления примера, который бы воспроизводил эту ошибку - это голословное утверждение. Пример ниже отработает без всяких проблем: [pre2]/* * MINIGUI - Harbour Win32 GUI library Demo */ #include "minigui.ch" Function Main DEFINE WINDOW Form1 ; AT 0,0 ; WIDTH 300 ; HEIGHT 300 ; TITLE "MiniGUI Demo" ; MAIN ; NOMAXIMIZE NOSIZE @ 10,20 LABEL Label1 VALUE "User Name" @ 35,20 TEXTBOX TextBox1 VALUE "" TOOLTIP "TextBox1" Form1.Label1.Cargo := "TextBox1" // f.e., store the TextBox name in the label's cargo @ 80,20 LABEL Label2 VALUE "Computer Name" @ 105,20 TEXTBOX TextBox2 VALUE "" Form1.Label2.Cargo := "TextBox2" @ 180,20 BUTTON Button1 CAPTION "Get Names" ON CLICK _GetNames() @ 220,20 BUTTON Button2 CAPTION "Set Names" ON CLICK _SetNames() END WINDOW Form1.TextBox2.Tooltip := "TextBox2" CENTER WINDOW Form1 ACTIVATE WINDOW Form1 Return Nil Static Function _GetNames() Form1.TextBox1.Value := GetUserName() Form1.TextBox2.Value := GetComputerName() Return Nil Static Function _SetNames() Local cBoxName1, cBoxName2 cBoxName1 := Form1.Label1.Cargo // to take the TextBox name from the label's cargo cBoxName2 := Form1.Label2.Cargo Form1.(cBoxName1).Value := GetUserName() Form1.(cBoxName2).Value := GetComputerName() Return Nil [/pre2]
Новичок: Сорри, для типа DATE. @...TEXTBOX...DATE... TOOLTIP
gfilatov2002: Новичок пишет: @...TEXTBOX...DATE... TOOLTIP Снова мимо - проблем с TOOLTIP и TEXTBOX...DATE нет Контрольный пример см. ниже [pre2]#include "hmg.ch" Function Main SET NAVIGATION EXTENDED SET EPOCH TO 2000 SET CENTURY ON SET DATE FRENCH DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 HEIGHT 480 ; TITLE 'HMG Demo' ; MAIN DEFINE MAIN MENU DEFINE POPUP 'Test' MENUITEM 'Set Text_1 Value' ACTION Form_1.Text_1.Value := Date() MENUITEM 'Set Text_2 Value' ACTION Form_1.Text_2.Value := ctod (' / / ') MENUITEM 'Set Text_3 Value' ACTION Form_1.Text_3.Value := ctod('27/01/2020') MENUITEM 'Set Text_1 ReadOnly' ACTION Form_1.Text_1.ReadOnly := .T. MENUITEM 'Clear Text_1 ReadOnly' ACTION Form_1.Text_1.ReadOnly := .F. SEPARATOR MENUITEM 'Get Text_1 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_1.Value ) ) MENUITEM 'Get Text_2 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_2.Value ) ) MENUITEM 'Get Text_3 Value' ACTION MsgInfo ( dtoc ( Form_1.Text_3.Value ) ) END POPUP END MENU @ 10,10 TEXTBOX Text_1 ; VALUE ctod('01/01/2020') ; TOOLTIP 'Date TextBox 1' ; DATE @ 40,10 TEXTBOX Text_2 ; VALUE Date() ; TOOLTIP 'Date TextBox 2' ; DATE DEFINE TEXTBOX Text_3 ROW 70 COL 10 DATE .T. END TEXTBOX END WINDOW Form_1.Text_3.TOOLTIP := 'Date TextBox 3' Form_1.Center Form_1.Activate Return Nil [/pre2]
Новичок: Заработало, при @...TEXTBOX...TOOLTIP....DATE при @...TEXTBOX...DATE...TOOLTIP дает ошибку
Новичок: возможно еще наверно из-за установки (*bcc58) версии 20.01, при 19.12 - и первый вариант тоже давал ошибку
полная версия страницы