On-line: SergKis, гостей 0. Всего: 1 [подробнее..]
АвторСообщение



Пост N: 90
Зарегистрирован: 22.04.15
ссылка на сообщение  Отправлено: 26.01.20 15:41. Заголовок: TEXTBOX + TOOLTIP -> Error


При подключении TOOLTIP к элементу TEXTBOX дает ошибку.

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 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



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 91
Зарегистрирован: 22.04.15
ссылка на сообщение  Отправлено: 26.01.20 23:03. Заголовок: Сорри, для типа DATE..


Сорри, для типа DATE.

@...TEXTBOX...DATE... TOOLTIP

Спасибо: 0 
ПрофильЦитата Ответить
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



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 92
Зарегистрирован: 22.04.15
ссылка на сообщение  Отправлено: 09.02.20 21:40. Заголовок: Заработало, при @....


Заработало, при

@...TEXTBOX...TOOLTIP....DATE

при

@...TEXTBOX...DATE...TOOLTIP дает ошибку

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 93
Зарегистрирован: 22.04.15
ссылка на сообщение  Отправлено: 09.02.20 21:43. Заголовок: возможно еще наверно..


возможно еще наверно из-за установки (*bcc58) версии 20.01, при 19.12 - и первый вариант тоже давал ошибку

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 319
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет