Что нового

Изменение размера шрифта отдельных слов в выводимом окне или хинте

blacksergo

Новичок
Сообщения
20
Репутация
1
Подскажите, как изменить размер шрифта отдельных слов в выводимом окне или подсказке к элементу (хинте)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
В окне - GUISetFont.
В подсказке - возможно нужно покапаться в _GUIToolTip_*.
 

saraconor

Новичок
Сообщения
376
Репутация
2
а в Tooltip можно поменять цвет \ размер \ шрифт ?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
saraconor [?]
а в Tooltip можно поменять цвет \ размер \ шрифт ?
Код:
#include <WinAPI.au3>
#include <FontConstants.au3>

$sInfo = StringFormat('%-20s:%3s\n%-20s:%3s\n%-20s:%3s\n%-20s:%3s\n%-20s:%3s\n%-20s:%3s\n', 'Задание', 1, 'Номер ошибки', 2, 'Время начала', 3, 'Время окончания', 4, _
		'Время выполнения', 5, 'Описание ошибки', 6)
ToolTip($sInfo, 0, 0, 'Test', 1, 1)
$hToolTip = _GetToolTip($sInfo)
If $hToolTip Then
	$hFont = _WinAPI_CreateFont(14, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Lucida Console')
	_WinAPI_SetFont($hToolTip, $hFont)
EndIf
HotKeySet('{ESC}', '_EXIT')

While 1
	Sleep(250)
WEnd

Func _EXIT()
	_WinAPI_DeleteObject($hFont)
	Exit
EndFunc   ;==>_EXIT

Func _GetToolTip($s_Text)
	Local $a_ToolTip, $h_ToolTip
	$a_ToolTip = WinList('[Class:tooltips_class32]')
	If Not $a_ToolTip[0][0] Then Return $h_ToolTip
	For $i = 1 To $a_ToolTip[0][0]
		If Not BitAND(WinGetState($a_ToolTip[$i][1]), 2) Then ContinueLoop
		If StringInStr(WinGetTitle($a_ToolTip[$i][1]), $s_Text) Then
			$h_ToolTip = $a_ToolTip[$i][1]
			ExitLoop
		EndIf
	Next
	Return $h_ToolTip
EndFunc   ;==>_GetToolTip
 

AZJIO

Меценат
Меценат
Сообщения
2 752
Репутация
1 149
http://autoit-script.ru/index.php/topic,12926.msg83032.html#msg83032
 
Верх