Как создать кнопку с многострочным текстом - История изменений

SYSDBA в 14:22, 10 февраля 2012

2012-02-10T14:22:44Z

SYSDBA в 14:21, 10 февраля 2012

2012-02-10T14:21:48Z

SYSDBA в 14:20, 10 февраля 2012

2012-02-10T14:20:51Z

SYSDBA: Новая страница: « Option Explicit Sub ...OnSetupDialog(ByVal Sender) '*** Данный код необходим для вызова встроен…»

2012-02-10T14:16:10Z

Новая страница: « <syntaxhighlight lang="vbnet"> Option Explicit Sub ...OnSetupDialog(ByVal Sender) '*** Данный код необходим для вызова встроен…»

Новая страница

<syntaxhighlight lang="vbnet">
Option Explicit
Sub ...OnSetupDialog(ByVal Sender)

'*** Данный код необходим для вызова встроенного обработчика ***
'*** В случае его удаления возможно нарушение работы системы ***
call Inherited(Sender, "OnSetupDialog", Array(Sender))
'*** конец кода поддержки встроенного обработчика ***

Const GWL_STYLE = -16
Const BS_MULTILINE = 8192

Dim btn
Set btn = Sender.GetComponent("usrg_Button1")

WinAPI.SetWindowLong btn.Handle, GWL_STYLE, _
WinAPI.GetWindowLong(btn.Handle, GWL_STYLE) OR BS_MULTILINE
btn.Caption = "Line1" & vbCrLf & "Line2"

End Sub
</syntaxhighlight>

====См. также====
{{EmbarcaderoWiki_Template|page_list=TButton}}

[[Category:Вопросы и ответы (для разработчика)]]
[[Category:WinAPI]]
[[Category:Руководство разработчика]]

← Предыдущая		Версия 14:22, 10 февраля 2012
Строка 1:		Строка 1:
−	Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль. Ниже приведен код обработчика события '''OnSetupDialog''', который меняет стиль кнопки с именем '''usrg_Button1''' и присваивает ей заголовок из двух строк.	+	Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль с помощью функции '''SetWindowLong'''. Ниже приведен код обработчика события '''OnSetupDialog''', который меняет стиль кнопки с именем '''usrg_Button1''' и присваивает ей заголовок из двух строк.

	<syntaxhighlight lang="vbnet">		<syntaxhighlight lang="vbnet">

@@ Строка 27: / Строка 27: @@
 * [http://msdn.microsoft.com/en-us/library/windows/desktop/ms633584%28v=vs.85%29.aspx GetWindowLong]
 * [http://msdn.microsoft.com/en-us/library/windows/desktop/ms633591%28v=vs.85%29.aspx SetWindowLong]
 [[Category:Вопросы и ответы (для разработчика)]]
 [[Category:WinAPI]]
 [[Category:Руководство разработчика]]

@@ Строка 1: / Строка 1: @@
+Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль. Ниже приведен код обработчика события '''OnSetupDialog''', который меняет стиль кнопки с именем '''usrg_Button1''' и присваивает ей заголовок из двух строк.
 <syntaxhighlight lang="vbnet">
@@ Строка 25: / Строка 25: @@
 ====См. также====
 {{EmbarcaderoWiki_Template|page_list=TButton}}
 [[Category:Вопросы и ответы (для разработчика)]]
 [[Category:WinAPI]]
 [[Category:Руководство разработчика]]