Автор | Сообщение |
|
| |
Пост N: 90
Зарегистрирован: 22.04.15
|
|
Отправлено: 26.01.20 15:41. Заголовок: TEXTBOX + TOOLTIP -> Error
При подключении TOOLTIP к элементу TEXTBOX дает ошибку.
|
|
|
Ответов - 5
[только новые]
|
|
|
| moderator
|
Пост N: 1641
Зарегистрирован: 11.02.10
|
|
Отправлено: 26.01.20 20:08. Заголовок: Новичок пишет: При ..
Новичок пишет: цитата: | При подключении TOOLTIP к элементу TEXTBOX дает ошибку |
| Без представления примера, который бы воспроизводил эту ошибку - это голословное утверждение. Пример ниже отработает без всяких проблем: цитата: | /* * 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 |
|
|
|
|
|
| |
Пост N: 91
Зарегистрирован: 22.04.15
|
|
Отправлено: 26.01.20 23:03. Заголовок: Сорри, для типа DATE..
Сорри, для типа DATE. @...TEXTBOX...DATE... TOOLTIP
|
|
|
|
| moderator
|
Пост N: 1642
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.01.20 10:59. Заголовок: Новичок пишет: @.....
Новичок пишет: цитата: | @...TEXTBOX...DATE... TOOLTIP |
| Снова мимо - проблем с TOOLTIP и TEXTBOX...DATE нет Контрольный пример см. ниже цитата: | #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 |
|
|
|
|
|
| |
Пост N: 92
Зарегистрирован: 22.04.15
|
|
Отправлено: 09.02.20 21:40. Заголовок: Заработало, при @....
Заработало, при @...TEXTBOX...TOOLTIP....DATE при @...TEXTBOX...DATE...TOOLTIP дает ошибку
|
|
|
|
| |
Пост N: 93
Зарегистрирован: 22.04.15
|
|
Отправлено: 09.02.20 21:43. Заголовок: возможно еще наверно..
возможно еще наверно из-за установки (*bcc58) версии 20.01, при 19.12 - и первый вариант тоже давал ошибку
|
|
|
|