.386
 .model flat, stdcall ; 32 bit memory model
 option casemap :none ; case sensitive

;include files
include \MASM32\INCLUDE\windows.inc
include \MASM32\INCLUDE\masm32.inc
include \MASM32\INCLUDE\gdi32.inc
include \MASM32\INCLUDE\user32.inc
include \MASM32\INCLUDE\kernel32.inc
include \MASM32\INCLUDE\Comctl32.inc
include
\MASM32\INCLUDE\comdlg32.inc
include \MASM32\INCLUDE\shell32.inc
include \MASM32\INCLUDE\oleaut32.inc

;libraries
includelib \MASM32\LIB\masm32.lib
includelib \MASM32\LIB\gdi32.lib
includelib \MASM32\LIB\user32.lib
includelib \MASM32\LIB\kernel32.lib
includelib \MASM32\LIB\Comctl32.lib
includelib \MASM32\LIB\comdlg32.li
 b
includelib \MASM32\LIB\shell32.lib
includelib \MASM32\LIB\oleaut32.lib

;=================
; Прототипы функций
;=================
WinMain  PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc  PROTO :DWORD,:DWORD,:DWORD,:DWORD
TopXY  PROTO :DWORD,:DWORD
Paint_Proc PROTO :DWORD,:DWORD
EditML  PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD
Read_File_In PROTO :DWORD,:DWORD
Confirmation PROTO :DWORD
Write_2_Disk PROTO :DWORD
SaveFileAs PROTO
SaveFile PROTO
WordWrap PROTO
EditProc PROTO
:DWORD,:DWORD,:DWORD,:DWORD
About   PROTO
GetFileName PROTO :DWORD, :DWORD, :DWORD
SaveFileName PROTO :DWORD, :DWORD, :DWORD
Do_ToolBar PROTO :DWORD
SetBmpColor PROTO :DWORD
Do_Status PROTO :DWORD

;=============
; Макро
;=============
;макро для формирования строки в коде
szText MACRO Name, Text:VARARG
LOCAL lbl
 jmp lbl
Name db Text,0
lbl:
 ENDM

;макро для копирования из переменн
 ой в переменную через стек
m2m MACRO M1, M2
 push M2
 pop M1
 ENDM

;макро для выхода из функции с результатом в EAX
return MACRO arg
 mov eax, arg
 ret
 ENDM

;макро для toolbar-а
;дополнительные данные для структуры TBBUTTON
TBextraData MACRO
 mov tbb.fsState, TBSTATE_ENABLED
 mov tbb.dwData, 0
 mov tbb.iString, 0
 ENDM

;макро для добавления кнопки
TBbutton MACRO bID, cID
 mov tbb.iBitmap, bID ;; button ID number
 mov tbb.idCommand, cID ;;
command ID number
 mov tbb.fsStyle, TBSTYLE_BUTTON
 invoke SendMessage, hToolBar, TB_ADDBUTTONS, 1, ADDR tbb
 ENDM

;макро для добавления разделителя
TBblank MACRO
 mov tbb.iBitmap, 0
 mov tbb.idCommand, 0
 mov tbb.fsStyle, TBSTYLE_SEP
 invoke SendMessage, hToolBar, TB_ADDBUTTONS, 1, ADDR tbb
 ENDM

;создание toolbar-а
Create_Tool_Bar MACRO Wd, Ht

 szText tbClass, "ToolbarWindow32" ;;имя класса toolbar-а

 invoke CreateWindowEx, 0,
    ADDR tbClass,
    ADDR szDisplayName,
    WS_CHILD or WS_VISIBLE,
    0, 0, 500, 40,
    hWin, NULL,
    hInstance, NULL
 mov hToolBar, eax   ;;сохраним handle
 
 ;;задаем размер струкруры TBBUTTON
 invoke SendMessage, hToolBar, TB_BUTTONSTRUCTSIZE, sizeof TBBUTTON,0
 
 ;;указываем размер bitmap-а, для этого сформируем DWORD с размером
 mov ecx, Wd   ;; loword = bitmap Width
 mov eax, Ht   ;; hiword = bitmap Height
 shl eax, 16
 mov ax,
cx
 mov bSize, eax
 invoke SendMessage, hToolBar, TB_SETBITMAPSIZE, 0, bSize
 
 ;;подправим цвет bitmap-а
 invoke SetBmpColor, hTbBmp
 mov hTbBmp, eax  ;;handle Bmp

 ;;добавляем bitmap в toolbar
 mov tbab.hInst, 0
 m2m tbab.nID, hTbBmp
 invoke SendMessage, hToolBar, TB_ADDBITMAP, 10, ADDR tbab
 
 ;размер кнопки такой же, как и bitmap-а
 invoke SendMessage, hToolBar, TB_SETBUTTONSIZE, 0, bSize
 ENDM

 .data
Com
 mandLine dd 0  ;адрес командной строки
hWnd  dd 0  ;handle основного окна
hInstance dd 0  ;экземпляр
hIcon   dd 0  ;handle пиктог
раммки
hEdit   dd 0  ;handle окна редактора
WrapFlag dd 0  ;флаг переноса строк
lpEditProc dd 0  ;адрес предыдущей функции окна редактора
hStatus  dd 0  ;handle статуса
hTbBmp  dd 0  ;handle BitMap-а
hToolBar dd 0  ;handle ToolBar-а
szDisplayName  db "QEdit",0 ;заголовок программы
szUntitled db "Untitled",0 ;имя файла по-умолчанию
szOpenedAt db "Прочитано ",0 ;сообщение о длине прочитанного файла
szSavedAt db "Записано ",0 ;сообщение о длине
записанного файла
bytes   db " байт",0 ;конец сообщений о длине файла

WrapON  db " Wrap ON",0 ;режим Wrap (перенос строк) включен
WrapOFF  db " Wrap OFF",0 ; выключен

szTitleO db "Открыть файл",0;заголовок окна выбора файла для чтения
szTitleS db "Сохранить файл как",0 ;для сохранения
szFilter db "Все файлы",0,"*.*",0, ;маска файлов для выбора
   "Текстовые файлы (*.T
 XT)",0,"*.TXT",0,0

ofn  OPENFILENAME <>  ;структура для открытия файла
szFileName db 260 dup(0) ;буфер для имени файла

 .code
start:     ;точка входа
 invoke GetModuleHandle, NULL
 mov hInstance, eax  ;handle экземпляра

 invoke GetCommandLine
 mov CommandLine, eax ;строка параметров

 invoke InitCommonControls ;подгружаем библиотеку comctl32.dll

;стандартный вызов GUI-программ
 invoke WinMain, hInstance, NULL, CommandLine, SW_SHOWDEFAULT
 invoke ExitProcess,eax  ;завершение

WinMain proc hInst  :DWORD,
  hPrevInst :DWORD,
  CmdLine  :DWORD,
  CmdShow  :DWORD

LOCAL wc  :WNDCLASSEX ;класс
окна
LOCAL msg  :MSG  ;сообщения
LOCAL Wwd  :DWORD  ;ширина окна
LOCAL Wht  :DWORD  ;высота окна
LOCAL Wtx  :DWORD  ;позиция x вывода на экране
LOCAL Wty  :DWORD  ;позиция y вывода на экране
LOCAL clBuffer[128] :BYTE  ;буфер для параметра


 szText szClassName, "QE
 dit_Class" ;имя класса нашего окна

;заполняем стуктуру wc
 mov wc.cbSize, sizeof WNDCLASSEX ;размер
 mov wc.style, CS_HREDRAW or CS_VREDRAW or CS_BYTEALIGNWINDOW ;стиль
 mov wc.lpfnWndProc, offset WndProc ;функция окна
 mov wc.cbClsExtra, NULL  ;дополнительные данные класса окна
 mov wc.cbWndExtra, NULL  ;дополнительные данные для экземпляра окна
 m2m wc.hInstance, hInst  ;экземпляр программы
 invoke GetStockObject, HOLLOW_BRUSH ;пустая кисть для фона 
 mov wc.hbrBackground,
eax  ; (все равно перекрывается редактором)
 mov wc.lpszMenuName, 600  ;меню из ресурсов
 mov wc.lpszClassName, offset szClassName ;имя класса
 invoke LoadIcon, hInst, 500  ;icon ID
 mov hIcon, eax   ;сохраним в hIcon
 mov wc.hIcon, eax   ;32*32
 mov wc.hIconSm, eax   ;16*16
 invoke LoadCursor, NULL, IDC_ARROW
 mov wc.hCursor, eax   ;курсор

 invoke RegisterClassEx, ADDR wc ;регистрируем класс

 mov Wwd, 600   ;ширина окна
 mov Wh
 t, 400   ;высота окна

 invoke GetSystemMetrics, SM_CXSCREEN ;ширина экрана
 invoke TopXY, Wwd, eax
 mov Wtx, eax   ;позиция x

 invoke GetSystemMetrics, SM_CYSCREEN ;высота экрана
 invoke TopXY, Wht, eax
 mov Wty, eax   ;позиция y

 invoke CreateWindowEx, 0,  ;создаем окно
    ADDR szClassName,
    ADDR szUntitled,
    WS_OVERLAPPEDWINDOW,
    Wtx, Wty, Wwd, Wht,
    NULL, NULL,
    hInst, NULL
 mov hWnd, eax   ;сохраним handle окна

 invoke GetCL, 1,
ADDR clBuffer  ;читаем первый параметр из командной стоки

 .if eax == 1    ;что-то есть?
;считаем именем файла и загружаем в редактор
  invoke Read_File_In, ADDR clBuffer, hEdit
  .if eax != -1   ;если нет ошибки
      ; то выводим имя файла в заголовок
   invoke SetWindowText, hWnd, ADDR clBuffer
  .endif
 .endif

 invoke ShowWindow, hWnd, SW_SHOWNORMAL ;показываем
 invoke UpdateWindow, hWnd  ;обновляем

StartLoop:     ;цикл об
 работки сообщений
 invoke GetMessage,ADDR msg,NULL,0,0
 test eax, eax
 jz ExitLoop
 invoke TranslateMessage, ADDR msg
 invo
ke DispatchMessage, ADDR msg
 jmp StartLoop

ExitLoop:
 return msg.wParam   ;выход
WinMain endp

WndProc proc hWin :DWORD,   ;функция окна
  uMsg :DWORD,
  wParam :DWORD,
  lParam :DWORD

LOCAL tbh  :DWORD
LOCAL sbh  :DWORD
LOCAL wWid  :DWORD
LOCAL wHgt  :DWORD
LOCAL Rct  :RECT
LOCAL tbab  :TBADDBITMAP
LOCAL tbb  :TBBUTTON

 .if uMsg == WM_COMMAND

;команды меню и toolbar-а

;- новый файл ---------------------------
 .elseif wParam ==
1000
;было ли изменено содержимое редактора
  invoke SendMessage, hEdit, EM_GETMODIFY, 0, 0
  .if eax == TRUE  ;Было?
;спросим, что делать
   invoke Confirmation, hWin
   .if eax == IDYES
;да - сохраняем и создаем новый файл
    invoke SaveFile
   .elseif eax == IDCANCEL
;нет - ничего не делаем
    xor eax, eax
    ret
   .endif
  .endif

;обнуляем содержимое редактора
  invoke SetWindowText, hEdit, NULL
;имя файла по-
 умолчанию в заголовок
  invoke SetWindowText, hWin, ADDR szUntitled
;очищаем поле 2 в статусе
  invoke SendMessage, hStatus, SB_SETTEXT, 2, NULL

;- открыть файл -------------------------
 .elseif wParam == 1001
;было ли изменено содержимое редактора
  invoke SendMessage, hEdit, EM_GETMODIFY, 0, 0
  .if eax == TRUE  ;Было?
;спросим, что делать
   invoke Confirmation, hWin
   .if eax == IDYES
;да - сохраняем и открываем файл
    invoke SaveFile
   .elseif eax == IDCANCEL
;нет
- ничего не делаем
    xor eax, eax
    ret
   .endif
  .endif

;сбросим имя файла
  mov szFileName, 0
;вызываем стандартную функцию для ввола имени файла
  invoke GetFileName, hWin, ADDR szTitleO, ADDR szFilter
;что-то ввели?
  .if szFileName[0] != 0
;файл загружаем в редактор
   invoke Read_File_In, ADDR szFileName, hEdit
;все ок?
   .if eax != -1
;выводим имя файда в заголовок окна
    invoke SetWindowTe
 xt, hWin, ADDR szFileName
   .endif
  .endif

;- сохранить файл с тем же именем ---------
 .elseif wParam == 1002
  invoke SaveFile ;сохраняем файл

;- сохранить файл с запросом имени (только из меню)
 .elseif wParam == 1003
  invoke SaveFileAs ;сохраняем файл с запросом имени
 .endif

;- выход ---------------------------------
 .if wParam == 1010
  invoke SendMessage, hWin, WM_SYSCOMMAND, SC_CLOSE, NULL

;- показать диалог about -----------------
 .elseif
wParam == 1900
  invoke About
 .endif

;- Undo ----------------------------------
 .if wParam == 1100
  invoke SendMessage,hEdit,WM_UNDO,0,0

;- Cut -----------------------------------
 .elseif wParam == 1101
  invoke SendMessage,hEdit,WM_CUT,0,0

;- Copy ----------------------------------
 .elseif wParam == 1102
  invoke SendMessage,hEdit,WM_COPY,0,0

;- Paste ---------------------------------
 .elseif wParam == 1103  invoke SendMessage,hEdit,WM_PASTE,0,0

;- Delete --------------------------------
 .elseif wParam == 1104
  invoke SendMessage,hEdit,WM_CLEAR,0,0

;- WordWrap ------------------------------
 .elseif wParam == 1105 ;Wordwrap
  invoke WordWrap

 .endif

;====== конец команд меню uMsg=WM_COMMAND ======

;- передача фокуса в редактор --------------------------
 .elseif uMsg == WM_SETFOCUS
  invoke SetFocus, hEdit

;- при смене системных цветов пересоздать
toolbar ------
 .elseif uMsg == WM_SYSCOLORCHANGE
  invoke Do_ToolBar, hWin

;- создание окна ---------------------------------------
 .elseif uMsg == WM_CREATE
  invoke Do_ToolBar, hWin ;toolbar
  invoke Do_Status,hWin  ;статус

  mov WrapFlag, 0  ;изначально флаг переноса строк выключен
;создаем редактор
  invoke EditML, NULL, 0, 30, 300, 200, hWin, 700, WrapFlag
  mov hEdit, eax   ;handle редактора

;сабклассинг функции окна р
 едактора
  invoke SetWindowLong, hEdit, GWL_WNDPROC, EditProc
  mov lpEditProc, eax

;сообщение WrapOFF в статус
  invoke S
endMessage, hStatus, SB_SETTEXT, 1, ADDR WrapOFF

;- изменение размеров окна -----------------------------
 .elseif uMsg == WM_SIZE
;команда toolbar-у подправить свой размер
  invoke SendMessage, hToolBar, TB_AUTOSIZE, 0, 0
;та же команда статусу
  invoke MoveWindow, hStatus, 0, 0, 0, 0, TRUE

;получим размеры органов управления
  invoke GetClientRect, hToolBar, ADDR Rct
  m2m tbh, Rct.bottom  ;высота toolbar-а

  invoke GetClientRect, hStatus, ADDR Rct
  m2m sbh, Rct.bottom  ;высота
statusbar-а 

  invoke GetClientRect, hWin, ADDR Rct
  m2m wWid, Rct.right  ;ширина окна
  m2m wHgt, Rct.bottom ;высота окна

  mov eax, tbh  ;отнимем от высоты окна
  sub wHgt, eax  ;высоту toolbar-а
  mov eax, sbh  ;и высоту statusbar-а 
  sub wHgt, eax

;перемещаем редактор
  invoke MoveWindow, hEdit, 0, tbh, wWid, wHgt, TRUE

;- закрытие --------------------------------------------
 .elseif uMsg == WM_CLOSE
 
;было ли изменено содержимое редактора
  invoke SendMessage, hEdit, EM_GETMODIFY, 0, 0
  .if eax == TRUE  ;Было?
;спросим, что делать
   invoke Confirmation, hWin
   .if eax == IDYES
;да - сохраняем и открываем файл
    invoke SaveFile
   .elseif eax == IDCANCEL
;нет - ничего не делаем
    xor eax, eax
    ret
   .endif
  .endif

;- уничтожение -----------------------------------------
 .elseif uMsg == WM_DESTROY
  invoke PostQuitMessage,NULL
  return 0

 .endif

;- отработка по-умолчанию ------------------------------
 invoke DefWindowProc,hWin,uMsg,wParam,lParam

 ret

WndProc endp

;размещаем окно посередине экрана
;wDim - размерность (ширина, высота) окна
;sDim - размерность (ширина, высота) экрана
;получаем в eax начало окна в выбранной размерности
TopXY proc wDim:DWORD, sDim:DWORD

 shr sDim, 1  ; экранная размерность пополам
 shr wDim, 1  ; оконная размерность 
 пополам
 mov eax, wDim ; 
 sub sDim, eax ; sDim/2 - wDim/2

 return sDim  ; eax = sDim/2 - wDim/2

TopXY endp

;создаем редактор
EditML proc szMsg:DWORD, tx:DWORD, ty:DWORD, wd:DWORD, ht:DWORD,
  hParent:DWORD, ID:DWORD, Wrap:DWORD

LOCAL hCtl :DWORD
LOCAL eStyle :DWORD

;имя класа
 szText CtlStyle, "EDIT"

;стиль
 mov eStyle, WS_VISIBLE or WS_CHILDWINDOW or \
   WS_VSCROLL or ES_NOHIDESEL or \
   ES_AUTOVSCROLL or ES_MULTILINE

 .if
Wrap == 0  ;если нет переноса строк
  or eStyle, WS_HSCROLL or ES_AUTOHSCROLL
 .endif

;создаем редактор
 invoke CreateWindowEx, WS_EX_CLIENTEDGE, ADDR CtlStyle, szMsg,
    eStyle, tx, ty, wd, ht, hParent, ID, hInstance, NULL
 mov hCtl, eax

;будем использовать шрифт FIXED FONT
 invoke GetStockObject, SYSTEM_FIXED_FONT
 invoke SendMessage, hCtl, WM_SETFONT, eax, TRUE

 return hCtl  ;вернем handle редактора

EditML endp
<
 br>;читаем файл lpszDiskFile в редактор hEditControl
Read_File_In proc lpszDiskFile:DWORD, hEditControl:DWORD

LOCAL hFile  :DWORD
LOCAL hMem$  :DWORD
LOCAL ln  :DWORD
LOCAL br  :DWORD
LOCAL txtBuffer[256] :BYTE
LOCAL sizeBuffer[16] :BYTE

;открываем фацл на чтение
 invoke CreateFile, lpszDiskFile, GENERIC_READ, FILE_SHARE_READ,
   NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL
 mov hFile, eax

 .if eax == -1  ;открылся?
;нет - выводим сообщение
  szText szMessFile,
"Файл '"
  szText szMessNotFound, "' не найден"
  invoke lstrcpy, ADDR txtBuffer, ADDR szMessFile
  invoke lstrcat, ADDR txtBuffer, lpszDiskFile
  invoke lstrcat, ADDR txtBuffer, ADDR szMessNotFound
  invoke MessageBox, hWnd, ADDR txtBuffer, ADDR szDisplayName, MB_OK
  mov eax, -1
  ret
 .endif
;получим длину файла
 invoke GetFileSize, hFile, NULL
 mov ln, eax

 .if ln > 32767  ;простой edit 
 может принять только 32к символов
;выводим сообщение о слишком длинном файле
  invoke CloseHandle, hFile
  szText tooBig, "&
#39; больше 32767 байт"
  invoke lstrcpy, ADDR txtBuffer, ADDR szMessFile
  invoke lstrcat, ADDR txtBuffer, lpszDiskFile
  invoke lstrcat, ADDR txtBuffer, ADDR tooBig
  invoke MessageBox, hWnd, ADDR txtBuffer, ADDR szDisplayName, MB_OK
  mov eax, -1
  ret
 .endif

;выделим память для буфера
 invoke SysAllocStringByteLen, 0, ln
 mov hMem$, eax  ;сохраним адрес буфера

;читаем файл
 invoke ReadFile, hFile, hMem$, ln, ADDR br, NULL
;и загоняем в редактор
 invoke SetWindowText,
hEditControl, hMem$

;освобождаем память
 invoke SysFreeString, hMem$
;закрываем файл
 invoke CloseHandle, hFile

;сформируем сообщение о длине файла
 invoke lstrcpy, ADDR txtBuffer, ADDR szOpenedAt
 invoke dwtoa, ln, ADDR sizeBuffer
 invoke lstrcat, ADDR txtBuffer, ADDR sizeBuffer
 invoke lstrcat, ADDR txtBuffer, ADDR bytes
;выведем его в statusbar-е
 invoke SendMessage, hStatus, SB_SETTEXT, 2, ADDR txtBuffer
 return br  ;вернем длину файла

Read_File_In endp

;запрос подтверждения продолжения, когда в файле есть несохраненные изменения
;вернет в eax MB_YES, MB_NO, MB_CANCEL
Confirmation proc hMain:DWORD

 szText ConfirmMsg, "Файл не сохранен, сохранять будете ?"
 invoke MessageBox, hMain, ADDR ConfirmMsg, ADDR szDisplayName,
   MB_YESNOCANCEL or MB_ICONQUESTION
 ret

Confirmation endp

;сохраняем на диск
Write_2_Disk proc lpszFile_Name:DWORD

LOCAL ln  :DWORD
LOCAL hMem$
  :DWORD
LOCAL hFile   :DWORD
LOCAL bw  :DWORD
LOCAL txtBuffer[64] :byte
LOCAL sizeBuffer[16] :BYTE

;создаем файд, если такой был, то его длина сбрасывается в 0
 invoke CreateFile, lpszFile_Name, ; имя файла
  GENERIC_WRITE,   ; доступ чтения/записи
  NULL,    ; режим share
  NULL,    ; security attributes
  CREATE_ALWAYS,   ; как создавать
  FILE_ATTRIBUTE_NORMAL,  ; аттрибуты файла
  NULL

 mov hF
 ile, eax   ;сохраним handle файла

 invoke GetWindowTextLength, hEdit ;читаем длину файла
 mov ln, eax
 inc ln    ;+1 байт для завершающего 0

 invoke SysAllocStringByteLen, 0, ln ;запрашиваем память
 mov hMem$, eax

 invoke GetWindowText, hEdit, hMem$, ln ;читаем в буфер содержимое файла

 dec ln    ;уберем завершающий 0
 invoke WriteFile, hFile, hMem$, ln, ADDR bw, NULL ;пишем в файл

 invoke SysFreeString, hMem$  ;освобождаем память
 invoke CloseHandle, hFile  ;закрываем
handle файла

;помечаем, что файл не изменялся
 invoke SendMessage, hEdit, EM_SETMODIFY, FALSE, 0

;сформируем сообщение о длине файла
 invoke lstrcpy, ADDR txtBuffer, ADDR szSavedAt
 invoke dwtoa, ln, ADDR sizeBuffer
 invoke lstrcat, ADDR txtBuffer, ADDR sizeBuffer
 invoke lstrcat, ADDR txtBuffer, ADDR bytes

;выведем его в statusbar-е
 invoke SendMessage, hStatus, SB_SETTEXT, 2, ADDR txtBuffer

 return bw ;вернем запи
 санную длину

Write_2_Disk endp

;Сохранить как...
SaveFileAs proc
;сбрасываем имя файла
 mov szFileName, 0
;запрашиваем имя файла
 invoke SaveFileName, hWnd, ADDR szTitleS, ADDR szFilter
;если было введено
 .if szFileName != 0 ;0 будет при нажатии на cancel
;сохраняем
  invoke Write_2_Disk, ADDR szFileName
;имя файла в заголовок окна
  invoke SetWindowText, hWnd, ADDR szFileName
 .endif

 ret

SaveFileAs endp

;сохранить
SaveFile proc

LOCAL buffer[128]:BYTE

;читаем
заголовок (там имя файла)
 invoke GetWindowText, hWnd, ADDR buffer, 128

;проверим на имя "Untitled"
 invoke lstrcmp, ADDR buffer, ADDR szUntitled
 .if eax == 0
  invoke SaveFileAs ;если Untitled, то запросим имя, 
  ret   ; вызвав "сохранить как"
 .endif

 invoke Write_2_Disk, ADDR buffer ;иначе, сохранить с тем же именем

 ret

SaveFile endp

;смена режима перено
 са строк
WordWrap proc

LOCAL mFlag :DWORD
LOCAL ln :DWORD
LOCAL hMem$ :DWORD

 invoke SendMessage, hEdit, EM_GETMODI
FY, 0, 0
 mov mFlag, eax  ;сохраним флаг изменения содержимого

 invoke GetWindowTextLength, hEdit
 mov ln, eax   ;длина содержимого
 inc ln   ;+1 для 0

 invoke SysAllocStringByteLen, 0, ln
 mov hMem$, eax  ;выделим память для буфера
 invoke GetWindowText, hEdit, hMem$, ln ;читаем в буфер

 invoke DestroyWindow, hEdit ;уничтожаем окно редактора!

;меняем флаг Wrap на противоположный и выводим сообщение в статусе
 .if WrapFlag == 0
  mov WrapFlag, 1
  invoke SendMessage,
hStatus, SB_SETTEXT, 1, ADDR WrapON
 .elseif WrapFlag == 1
  mov WrapFlag, 0
  invoke SendMessage, hStatus, SB_SETTEXT, 1, ADDR WrapOFF
 .endif

;создаем окно редактора заново с измененным состоянием Wrap
 invoke EditML, NULL, 0, 30, 300, 200, hWnd, 700, WrapFlag
 mov hEdit, eax

;сабклассинг окна
 invoke SetWindowLong, hEdit, GWL_WNDPROC, EditProc
 mov lpEditProc, eax

;установим нужное положение и размер
 invoke Sen
 dMessage, hWnd, WM_SIZE, 0, 0
;восстановим содержимое редактора
 invoke SetWindowText, hEdit, hMem$
;освобождаем память буфера
 invoke SysFreeString, hMem$
;восстановим состояние флага модификации содержимого
 invoke SendMessage, hEdit, EM_SETMODIFY, mFlag, 0
;фокус ввода редактору
 invoke SetFocus, hEdit

 ret

WordWrap endp

;функция окна редактора при сабклассинге
EditProc proc hCtl :DWORD,
   uMsg :DWORD,
   wParam :DWORD,
   lParam :DWORD

;анализируем
коды интересующих нас клавиш
 .if uMsg == WM_KEYUP
  .if wParam == VK_F1  ;F1 - Abort
   invoke About
  .elseif wParam == VK_F9  ;F9 - смена Wrap
   invoke WordWrap
  .elseif wParam == VK_ESCAPE ;Escape - выход
   invoke SendMessage, hWnd, WM_SYSCOMMAND, SC_CLOSE, NULL
   return 0
  .endif
 .endif
;все остальное на основную функцию окна редактора
 invoke CallWindowProc, lpEditProc, hCtl, uMsg, wParam, lParam

 ret


 EditProc endp

;about
About proc

;заголовок
 szText AboutMsg, "QEdit Text Editor"
;стандартная функция вывода About
 invoke ShellAbout, hWnd, ADDR szDisplayName, ADDR AboutMsg, hIcon

 ret

About endp

;создание toolbar-а
Do_ToolBar proc hWin:DWORD
LOCAL bSize :DWORD
LOCAL tbab :TBADDBITMAP
LOCAL tbb :TBBUTTON

;загружаем bitmap для toolbar-а
 invoke LoadBitmap, hInstance, 750
 mov hTbBmp, eax

;создадим toolbar с кнопками 18х18
 Create_Tool_Bar 18,
18

 TBextraData ;дополнительные данные для структуры TBBUTTON

;добавляем кнопки, параметры: индекс картинки в BitMap-е, ID кнопки
 TBbutton 4, 1000
 TBbutton 5, 1001
 TBbutton 6, 1002
 TBblank
 TBbutton 0, 1101
 TBbutton 1, 1102
 TBbutton 2, 1103
 TBbutton 3, 1100
 TBblank
 TBbutton 9, 1105
 TBblank
 TBbutton 7, 1900
 TBbutton 8, 1010

 ret

Do_ToolBar endp

;подправим цвет B
 itMap-а
SetBmpColor proc hBitmap:DWORD

LOCAL mDC  :DWORD
LOCAL hBrush  :DWORD
LOCAL hOldBmp  :DWORD
LOCAL hReturn  :DWORD
LOCAL hOldBrush  :DWORD

 invoke CreateCompatibleDC, NULL ;создаем совместимый DC
 mov mDC,eax

 invoke SelectObject, mDC, hBitmap ;выбираем в mDC картинку,
 mov hOldBmp,eax   ; старый сохраняем

 invoke GetSysColor, COLOR_BTNFACE
 invoke CreateSolidBrush, eax
 mov hBrush, eax   ;создаем кисть с цветом COLOR_BTNFACE

 invoke SelectObject,
mDC, hBrush ;выбираем
 mov hOldBrush, eax   ; старую сохраняем

 invoke GetPixel, mDC, 1, 1  ;читаем цвет пиксела (1,1)
;закрашиваем все точки, равные цветом с (1,1) кистью COLOR_BTNFACE
 invoke ExtFloodFill, mDC, 1, 1, eax, FLOODFILLSURFACE

;восстанавливаем кисть
 invoke SelectObject, mDC, hOldBrush
;удаляем созданную кисть
 invoke DeleteObject, hBrush
;получим handle BitMap-а, для этого что-то выберем, а вернется нужный нам hand
 le
 invoke SelectObject, mDC, hBitmap
 mov hReturn, eax  ;сохраним
 invoke DeleteDC, mDC  ;удалим совместимый DC

 return h
Return   ;возвращаем handle подправленного BitMap-а

SetBmpColor endp

;получение имени файла для чтения, с помощью стандартного диалога
GetFileName proc hParent:DWORD, lpTitle:DWORD, lpFilter:DWORD

 mov ofn.lStructSize,sizeof OPENFILENAME
 m2m ofn.hWndOwner, hParent
 m2m ofn.hInstance, hInstance
 m2m ofn.lpstrFilter,lpFilter
 m2m ofn.lpstrFile, offset szFileName
 mov ofn.nMaxFile, sizeof szFileName
 m2m ofn.lpstrTitle, lpTitle
 mov ofn.Flags, OFN_EXPLORER or OFN_FILEMUSTEXIST
or \
    OFN_LONGNAMES

 invoke GetOpenFileName, ADDR ofn

 ret

GetFileName endp

;получение имени файла для записи, с помощью стандартного диалога
SaveFileName proc hParent:DWORD,lpTitle:DWORD,lpFilter:DWORD

 mov ofn.lStructSize,sizeof OPENFILENAME
 m2m ofn.hWndOwner, hParent
 m2m ofn.hInstance, hInstance
 m2m ofn.lpstrFilter,lpFilter
 m2m ofn.lpstrFile, offset szFileName
 mov ofn.nMaxFile, sizeof szFileName
 
 m2m ofn.lpstrTitle, lpTitle
 mov ofn.Flags,  OFN_EXPLORER or OFN_LONGNAMES
    
 invoke GetSaveFileName, ADDR ofn

 ret

SaveFileName endp

;создание статуса
Do_Status proc hParent:DWORD

LOCAL sbParts[4]:DWORD

;создаем окно статуса
 invoke CreateStatusWindow, WS_CHILD or WS_VISIBLE or \
   SBS_SIZEGRIP,NULL, hParent, 200
 mov hStatus, eax
 
; sbParts - разбивает на 3 части
 mov [sbParts +  0], 125 ; пикселей слева
 mov [sbParts +  4], 250 ;
-//-
 mov [sbParts +  8], -1 ; до конца

 invoke SendMessage, hStatus, SB_SETPARTS, 3, ADDR sbParts

 ret

Do_Status endp

 end start