/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 938
от 27.12.2007, 01:05

Вопрос № 115.203

Здравствуйте. HELP!!! Никак не могу избавицца от фона вокруг контролов. В приложении все причиндалы кроме Bg.bmp. Bg.bmp - это картинка шириной в один пиксель, высотой в 220 пикселей, залитая градиентом сверху вниз. Нарисуйте что-нить подобное для ресурса. И после компиля посмотрите на кнопки и прогресс-бар. Как убрать эти остатки фона? И ещё вопрос, от фона на static контролах я избавился, но теперь другая проблема, если я меняю текст, то старый остаётся!! Кнопка "Проверка" как раз это демонстрирует. Очень надеюсь на вашу помощь. Приложение: ;db.asm .386 locals .model flat, STDCALL include ExtProc.inc ofs equ offset MAX_USER_NAME = 20 .Data IDNOTYET equ 7 IDC_BTN1 equ 10 ;Верхняя "..." IDC_BTN2 equ 11 ;Пробить IDC_BTN3 equ 12 ;Проверка WM_INITDIALOG equ 110h WM_COMMAND equ 111h WM_ERASEBKGND equ 014h WM_SETTEXT equ 0ch WM_CTLCOLORSTATIC equ 0138h TRANSPARENT equ 1 HWND_NOTOPMOST equ -2 SWP_NOSIZE equ 1 Bg equ 115 DlgTitle db "Выбор папки с дистром",0 IDR_NAME equ 1000 szInfo db 'Инфо',0 UpOK db 'UpDate OK',0 ;1 UpErr db 'Update is wrong',0 ;2 UpResult db 0 szNotYet db 'В разработке',0 sNameKpl db 'Наименование комплекта',0 flag db 0 szCount dd 0 filter db '*.*',0 sNewRow dw 0a0dh MB_OK equ 0 MB_ICONINFORMATION equ 40h IDOK equ 1 IDCANCEL equ 2 WS_CHILD equ 40000000h WS_MINIMIZE equ 20000000h WS_VISIBLE equ 10000000h WM_USER equ 400h PATCOPY equ 0F00021h SWP_SHOWWINDOW equ 40h HWND_TOP equ 0 GWL_EXSTYLE equ -20 WS_EX_LAYERED equ 00080000h WS_EX_TRANSPARENT equ 020h LWA_COLORKEY equ 00000001h LWA_ALPHA equ 00000002h SW_SHOWNA equ 8 SM_CXSCREEN equ 0 SM_CYSCREEN equ 1 PBM_SETRANGE equ WM_USER+1 PBM_SETPOS equ WM_USER+2 PBM_DELTAPOS equ WM_USER+3 PBM_SETSTEP equ WM_USER+4 PBM_STEPIT equ WM_USER+5 UDM_SETRANGE equ WM_USER+101 UDM_SETPOS equ WM_USER+103 CB_ADDSTRING equ 0143h CB_SETCURSEL equ 014Eh CB_GETCOUNT equ 0146h dlgname db 'mdlg',0 .Data? hInst dd ? hwnd dd ? coor_x dd ? coor_y dd ? hDc dd ? hBmp dd ? hBrush dd ? hwndStatic dd ? hdcstatic dd ? hwndProgress dd ? lpIDList dd ? sInd dd ? RECT STRUCT left DWORD ? top DWORD ? right DWORD ? bottom DWORD ? RECT ends Rct RECT <?> .Code start: call GetModuleHandleA,0 mov hInst,eax call LoadBitmapA, hInst, 115 mov hBmp, eax call CreatePatternBrush, hBmp mov hBrush, eax call DeleteObject, hBmp call DialogBoxParamA, hInst, 1001, 0, ofs mDlgProc, 0 call ExitProcess, 0 mDlgProc Proc arg @@hDlg :dword, @@iMsg :dword, @@wPar :dword, @@lPar :dword mov eax,[@@iMsg] cmp eax,WM_CTLCOLORSTATIC je @@colorStatic cmp eax,WM_INITDIALOG je @@fill cmp eax,WM_ERASEBKGND je @@fillbg cmp eax,WM_COMMAND jne @@init mov eax,[@@wPar] cmp eax,IDC_BTN2 ;"Пробить" je @@notyet cmp eax,IDC_BTN3 ;"Проверка" je @@update cmp eax,2 ;Кнопка закрытия окна je @@6 jmp @@init @notyet: call MessageBoxA, @@hDlg, ofs szNotYet, ofs szInfo, MB_OK or MB_ICONINFORMATION xor eax,eax ret @colorStatic: call SetBkMode,@@wPar,TRANSPARENT call GetStockObject,5 ;NULL_BRUSH ret @fillbg: call GetDlgItem,@@hDlg,1002 mov hwndStatic,eax call GetClientRect, @@hDlg, ofs Rct call SelectObject, @@wPar, hBrush call PatBlt, @@wPar, 0, 0, ofs Rct.right, ofs Rct.bottom, PATCOPY xor eax,eax inc eax ret @update: mov UpResult,1 .if UpResult==1 call SendMessageA,hwndStatic,WM_SETTEXT,0,ofs UpOK .elseif UpResult==2 call SendMessageA,hwndStatic,WM_SETTEXT,0,ofs UpErr .endif ret @init: xor eax,eax ret @fill: call GetSystemMetrics,SM_CXSCREEN shr eax,1 sub eax,205 mov coor_x,eax call GetSystemMetrics,SM_CYSCREEN shr eax,1 sub eax,102 mov coor_y,eax call SetWindowPos, @@hDlg,HWND_NOTOPMOST,coor_x,coor_y,0,0,SWP_NOSIZE ;Центровка окна ;Заполнение ComboBox'а с комплектами call SendDlgItemMessageA, @@hDlg, 102, CB_ADDSTRING, 0, ofs sNameKpl call SendDlgItemMessageA, @@hDlg, 104, UDM_SETRANGE, 0, 9999 call SendDlgItemMessageA, @@hDlg, 104, UDM_SETPOS, 0, 777 xor eax,eax ret @6: call EndDialog, @@hDlg, 0 and eax,000000001h ret mDlgProc endp end start ;------------------------------ ;db.rc #define IDD_DIALOG 1001 #define IDC_STC2 1003 #define IDC_STC3 1004 #define IDC_STC5 1006 #define IDR_NAME 1008 #define Btn1 10 #define Btn3 12 #define IDC_CBO2 102 #define IDC_CBO1 103 #define Btn2 11 #define IDC_PGB1 101 #define IDC_UDN1 104 #define IDC_STC1 1002 #define IDC_STC4 1005 #define IDC_DTP1 1011 IDD_DIALOG DIALOGEX 205,114,231,100 CAPTION " Пробитие ревизии" FONT 9,"Tahoma" STYLE 0x10CA08C4 EXSTYLE 0x00000000 BEGIN CONTROL "...",Btn1,"Button",0x50010000,208,14,17,12,0x00000000 CONTROL "Проверка",Btn3,"Button",0x50010000,176,64,49,14,0x00000000 CONTROL "",IDC_DTP1,"SysDateTimePick32",0x5001000C,26,65,52,12,0x00000000 CONTROL "",IDC_CBO2,"ComboBox",0x50010002,5,42,178,13,0x00000000 CONTROL "",IDC_CBO1,"ComboBox",0x50010002,5,14,198,13,0x00000000 CONTROL "Пробить",Btn2,"Button",0x50010000,188,41,37,14,0x00000000 CONTROL "",IDR_NAME,"Edit",0x10833002,128,65,32,12,0x00000000 CONTROL "",IDC_UDN1,"msctls_updown32",0x000000B6|0x00820036,157,65,10,11,0x00000000 CONTROL "",IDC_PGB1,"msctls_progress32",0x10000000,57,90,171,7,0x00000000 CONTROL "Caption",IDC_STC1,"Static",0x52000301,0,87,53,10,0x00000020 CONTROL "Выбор дистра",IDC_STC2,"Static",0x50000380,6,1,60,14,0x00000020 CONTROL "Наименование комплекта",IDC_STC3,"Static",0x50000380,6,28,86,16,0x00000020 CONTROL "Дата",IDC_STC4,"Static",0x50000381,0,66,29,10,0x00000020 CONTROL "Ревизия",IDC_STC5,"Static",0x50000380,97,66,31,10,0x00000020 END 1 24 "xpstyle.xml" 115 BITMAP "Bg.bmp" ;----------------------------- ;ExtProc.inc extrn GetModuleHandleA:Proc extrn MessageBoxA:Proc extrn LoadBitmapA:Proc extrn GetSystemMetrics:Proc extrn SetWindowPos:Proc extrn GetMessageA:Proc extrn TranslateMessage:Proc extrn DispatchMessageA:Proc extrn PostQuitMessage:Proc extrn SendMessageA:Proc extrn DialogBoxParamA:Proc extrn SelectObject:Proc extrn DeleteObject:Proc extrn CreatePatternBrush:Proc extrn PatBlt:Proc extrn SetBkMode:Proc extrn GetBkColor:Proc extrn SetBkColor:Proc extrn GetDC:Proc extrn ReleaseDC:Proc extrn GetDlgItem:Proc extrn EndDialog:Proc extrn GetStockObject:Proc extrn GetClientRect:Proc extrn SendDlgItemMessageA:Proc extrn InitCommonControls:Proc extrn ExitProcess:Proc ;---------------------------------------- ;xpstyle.xml <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="db" type="win32" /> <description>db.exe-in-assembler</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly>

Отправлен: 21.12.2007, 13:09 Вопрос задал: Maximus777 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Maximus777! Даю решение, как обновлять текст на static-контролах call SendMessageA,hwndStatic,WM_SETTEXT,0,ofs UpOK call ShowWindow,hwndStatic,SW_HIDE call ShowWindow,hwndStatic,SW_SHOW Над остатками фона думаю... --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 24.12.2007, 12:11 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное за ответ. Я уже и не надеялся. Решение прикольное, абсолютно в моём духе. И ведь работает! С фоном я чувствую что где-то я не догоняю глобально. Должно быть решение разом убрать все эти недостатки. Есть какой-то сабклассинг, но я не знаю как им пользоваться. И вроде есть какая-то общая brush для всех, но у меня так и не получилось воспользоваться этим. Буду очень признателен за помощь.

Вопрос № 115.269

Уважаемые эксперты. Мне поставили задачу написать программу, которая объединяет содержимое трех текстовых файлов в один (первый), в каждом файле по 10 строчек текста. Программа, видимо не сложная, но я в ассемблере вообще не разбираюсь, поэтому прошу помочь. Заранее спасибо.

Отправлен: 21.12.2007, 19:41 Вопрос задал: Malder (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Malder! Программа поочередно копирует второй и третий файлы в первый. ps:вопросы по программе задавайте в мини-форум. Удачи! Приложение: MASM;IDEAL or MASM MODEL small .186 CODESEG org 100h ;открываем первый файл start: mov ax,3d42h; mov dx,offset fileNameA; int 21h mov fileHandlA,ax; ;ставим указатель в конец первого файла mov bx,ax; mov ax,4202h; xor dx,dx; xor cx,cx; int 21h ;открываем второй файл mov ax,3d40h; mov dx,offset fileNameB; int 21h mov fileHandlB,ax; ;вызываем процедуру копирования call copyNext ;закрываем второй файл mov ah,3eh; mov bx,fileHandlB; int 21h ;открываем третий файл mov ax,3d40h; mov dx,offset fileNameC; int 21h mov fileHandlB,ax; ;вывзываем процедуру копирования call copyNext ;закрываем третий файл mov ah,3eh mov bx,fileHandlB int 21h ;закрываем первый файл mov ah,3eh mov bx,fileHandlA int 21h ;выход ret ;копируем по 256 байт ;читаем 256 байт copyNext: mov ah,3f mov bx,fileHandlB mov cx,256 mov dx,offset bufferCopy int 21h push ax;запоминаем число прочитанных байт ;записываем прочитанные байты mov cx,ax mov bx,fileHandlA mov dx,offset bufferCopy mov ah,40h int 21h ;если АХ не равно 256 байт то достигли конца второго или третего файла pop ax; cmp ax,256 jz copyNext ret ; fileHandlA dw ? fileHandlB dw ? fileNameA db 'fileA.txt',0 fileNameB db 'fileB.txt',0 fileNameC db 'fileC.txt',0 bufferCopy db 256 dup(?) end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 26.12.2007, 15:50

Вопрос № 115.307

Меня интересует след "глупый" -) вопрос(может и не совсем по теме): формировние физического адреса в реальном режиме работы процессора. Что конкретно хотелось бы узнать: у интела в реальном режиме при формировании ФА содержимое сегментного регистра сдвигается на 4 разряда влево а затем суммируется со смещением. Вопрос: зачем необходим этот сдвиг? почему на 4 разряда?Заранее спасиба!

Отправлен: 21.12.2007, 23:05 Вопрос задал: Pau4ok (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Овчинников Алексей Здравствуйте, Pau4ok! Реальный режим это основной (и по моему единственный) режим первого массового процессора от интел 8086-го. Когда он был создан 1мб памяти считалось очень много. Но сам процессор 16-ти битный. И это значит что он может адресовать не более 65-ти килобайт, от 0000h до 0FFFFh. Для обхода этого ограничения и была создана система сегментной адресации Шина памяти на первых IBM-ах была 20-ти битная, а сегментные регистры 16-ти. И что-бы адресовать весь диапозон адресов и производится смещение влево на 4. 16+4+20. Например DS=1a22H, DX=22afH, тогда ФА= 1a22 + 22af =1c4cfH. в бинарной системе более наглядно 0001 1010 0010 0010 0000+ 0010 0010 1010 1111= 0001 1100 0100 1100 1111 естественно видно что один и тот-же элемент памяти может иметь несколько адресов в этой системе. 0000:0100=0010:0000=0008:0080 и т.д

Ответ отправил: Овчинников Алексей (статус: 3-ий класс) Ответ отправлен: 23.12.2007, 17:55

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.66 от 23.12.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru