Viktor1703
AutoIT Гуру
- Сообщения
- 1,535
- Репутация
- 413
Как ни пробывала, не получается изменять размер контрола,
в поиске нашёл похожие темы, но ни одна не подошла.
У окна стиль $WS_SIZEBOX пробывал через Opt("GUIResizeMode", $GUI_DOCKALL),
ничего не получилось.
в поиске нашёл похожие темы, но ни одна не подошла.
У окна стиль $WS_SIZEBOX пробывал через Opt("GUIResizeMode", $GUI_DOCKALL),
ничего не получилось.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIRichEdit.au3>
#include <WinAPIEx.au3>
#Include <GUIMenu.au3>
Global Const $GWL_STYLE = -16
$hForm = GUICreate("FASM Editor", 700, 500, -1, -1, BitOR($WS_SYSMENU, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX))
; Файл
$Menu = GUICtrlCreateMenu ("&Файл") ; Создаём меню
$NewItem = GUICtrlCreateMenuitem ("Создать",$Menu)
$OpenItem = GUICtrlCreateMenuitem ("Открыть",$Menu)
$SaveItem = GUICtrlCreateMenuitem ("Сохранить",$Menu)
$SaveAssItem = GUICtrlCreateMenuitem ("Сохранить как...",$Menu)
GUICtrlCreateMenuitem ("",$Menu)
$ExitItem = GUICtrlCreateMenuitem ("Выход",$Menu)
; Редактировать
$EditMenu = GUICtrlCreateMenu("Редактировать", -1, 1)
$UndoItem = GUICtrlCreateMenuItem("Отменить", $EditMenu)
$RedoItem = GUICtrlCreateMenuItem("Вернуть", $EditMenu)
GUICtrlCreateMenuItem("", $EditMenu)
$CutItem = GUICtrlCreateMenuItem("Вырезать", $EditMenu)
$CopyItem = GUICtrlCreateMenuItem("Копировать", $EditMenu)
$PasteItem = GUICtrlCreateMenuItem("Вставить", $EditMenu)
$SelectItem = GUICtrlCreateMenuItem("Выделить всё", $EditMenu)
; Помощь
$HelpMenu = GUICtrlCreateMenu("Помощь", -1, 2)
$AboutItem = GUICtrlCreateMenuItem("О программе", $HelpMenu)
$hRichEdit = _GUICtrlRichEdit_Create($hForm, "", 0, 0, 698, 455, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState()
;_GUICtrlRichEdit_SetBkColor($hRichEdit, 0xD7FF99) ; Применяем цвет бакгроунда
;_GuiCtrlRichEdit_SetCharAttributes($hRichEdit, "+bo") ; применяем стиль текста жирный/подчёркнутый +bo/+un
_GUICtrlRichEdit_SetFont($hRichEdit, 11, "Lucida Console") ; Применяем размер и шрифт текста
_WinAPI_SetWindowLong($hForm, $GWL_STYLE, BitOR(_WinAPI_GetWindowLong($hForm, $GWL_STYLE), $WS_CLIPSIBLINGS,$WS_CLIPCHILDREN))
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
Exit
Case $SelectItem
_GuiCtrlRichEdit_SetSel($hRichEdit, _GuiCtrlRichEdit_GetFirstCharPosOnLine($hRichEdit, 1), -1)
Case $SaveAssItem
$SaveDialog = FileSaveDialog( "Сохранить", @DesktopDir, "Assembler (*.asm)",2+16)
If Not @error Then _GuiCtrlRichEdit_StreamToFile($hRichEdit, $SaveDialog & ".asm")
Case $AboutItem
MsgBox(0, "FASM Editor","")
EndSwitch
WEnd