Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2012, 14:42   #1
Rain_Walker
 
Регистрация: 17.10.2012
Сообщений: 8
По умолчанию расположение нарисованого текста с фоном

Доброго времени суток! У меня проблема с расположением текста который прога должна вывести в окне, она ни под каким предлогом не хочет обращать внимание на мои команды по положению текста, помогите пожалуйста.

Код проги:
PHP код:
.386
 
.model flat,stdcall
 option casemap
:none
 WinMain proto 
:DWORD,:DWORD,:DWORD,:DWORD
 
include \masm32\include\windows.inc
 
include \masm32\include\user32.inc
 
include \masm32\include\kernel32.inc
 
include \masm32\include\gdi32.inc
 includelib 
\masm32\lib\user32.lib
 includelib 
\masm32\lib\kernel32.lib
 includelib 
\masm32\lib\gdi32.lib
 RGB macro red
,green,blue
 
xor eax,eax
 mov ah
,blue
 shl eax
,8
 mov ah
,green
 mov al
,red
 endm
 
.data
 ClassName db 
"SimpleWinClass",0
 AppName db 
"Our First Window",0
 TestString db 
"Win32 assembly is great and easy!",0
 FontName db 
"script",0
 
.data?
 
hInstance HINSTANCE ?
 
CommandLine LPSTR ?
 .
code
 start
:
 
invoke GetModuleHandleNULL
 mov hInstance
,eax
 invoke GetCommandLine
 mov CommandLine
,eax
 invoke WinMain
hInstance,NULL,CommandLineSW_SHOWDEFAULT
 invoke ExitProcess
,eax
 WinMain proc hInst
:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
 LOCAL wc
:WNDCLASSEX
 LOCAL msg
:MSG
 LOCAL hwnd
:HWND
 mov wc
.cbSize,SIZEOF WNDCLASSEX
 mov wc
.styleCS_HREDRAW or CS_VREDRAW
 mov wc
.lpfnWndProcOFFSET WndProc
 mov wc
.cbClsExtra,NULL
 mov wc
.cbWndExtra,NULL
 push hInst
 pop wc
.hInstance
 mov wc
.hbrBackground,COLOR_WINDOW+1
 mov wc
.lpszMenuName,NULL
 mov wc
.lpszClassName,OFFSET ClassName
 invoke LoadIcon
,NULL,IDI_APPLICATION
 mov wc
.hIcon,eax
 mov wc
.hIconSm,eax
 invoke LoadCursor
,NULL,IDC_ARROW
 mov wc
.hCursor,eax
 invoke RegisterClassEx
addr wc
 invoke CreateWindowEx
,NULL,ADDR ClassName,ADDR AppName,\
 
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
 
CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\
 
hInst,NULL
 mov hwnd
,eax
 invoke ShowWindow
hwnd,SW_SHOWNORMAL
 invoke UpdateWindow
hwnd
 
.WHILE TRUE
 invoke GetMessage
ADDR msg,NULL,0,0
 
.BREAK .IF (!eax)
 
invoke TranslateMessageADDR msg
 invoke DispatchMessage
ADDR msg
 
.ENDW
 mov eax
,msg.wParam
 ret
 WinMain endp
 WndProc proc hWnd
:HWNDuMsg:UINTwParam:WPARAMlParam:LPARAM
 LOCAL hdc
:HDC
 LOCAL ps
:PAINTSTRUCT
 LOCAL hfont
:HFONT
 LOCAL rect
:RECT
 
.IF uMsg==WM_DESTROY
 invoke PostQuitMessage
,NULL
 
.ELSEIF uMsg==WM_PAINT
 invoke BeginPaint
,hWndADDR ps
 mov hdc
,eax 

             
 invoke CreateFont
,8,8,0,0,400,0,0,0,OEM_CHARSET,\
 
OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,\
 
DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT,\
 
ADDR FontName
 invoke SelectObject
hdceax
 mov hfont
,eax
 RGB 200
,200,50
 invoke SetTextColor
,hdc,eax
 RGB 0
,0,255
 invoke SetBkColor
,hdc,eax
 invoke TextOut
,hdc,0,0,ADDR TestString,SIZEOF TestString
 invoke SelectObject
,hdchfont

invoke DrawText
hdc,ADDR TestString,-1ADDR rect, \
               
DT_SINGLELINE or DT_RIGHT or DT_VCENTER
               


 invoke EndPaint
,hWndADDR ps
 
.ELSE
 
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
 ret
 
.ENDIF
 xor 
eax,eax
 ret
 WndProc endp
 end start 

Заранее благодарю!
Rain_Walker вне форума Ответить с цитированием
Старый 10.12.2012, 18:52   #2
Rain_Walker
 
Регистрация: 17.10.2012
Сообщений: 8
По умолчанию

Всем огромное спасибо...
Нашел сам, свою тупую невнимательность...
Rain_Walker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в word текста, выделенного цветным фоном Marsella_88 C# (си шарп) 3 26.05.2012 15:17
Расположение текста и меню MirtMacline HTML и CSS 2 11.10.2011 19:04
Image с прозрачным фоном. segail Microsoft Office Excel 1 11.12.2010 22:16
Иконки с прозрачным фоном DimOn4Ik Свободное общение 5 21.01.2010 11:17
музыка фоном Bayazet Общие вопросы Delphi 0 24.12.2008 17:13