Форум » GUI » Примеры из Минигуи -ошибки, вопросы..... » Ответить
Примеры из Минигуи -ошибки, вопросы.....
Andrey: Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах) Предложение Григорию: Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ? Пример: \MiniGUI\SAMPLES\Advanced\DisplayMode - не работает под ХР и далее.... Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - вылетает на ХР -------------------------------------------------------------------------------- Harbour MiniGUI Errorlog File Harbour MiniGUI Extended Edition 2.0.1 - 2011.09.21 -------------------------------------------------------------------------------- Date: 11/15/2011 Time: 22:13:24 Error BASE/1124 Argument error: LEFT Called from LEFT(0) Called from SCANSOFT(195) Called from MAIN(84) Пример: \MiniGUI\SAMPLES\BASIC\MsgEdit - не собирается... Z:\MiniGUI\SAMPLES\BASIC\MsgEdit>call ..\..\..\batch\compile.bat demo /L shell32 Harbour 3.1.0dev (Rev. 17042) Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'demo.prg'... Lines 20133, Functions/Procedures 30 Generating C source output to 'demo.c'... Done. Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland demo.c: Error E2141 demo.prg 993: Declaration syntax error *** 1 errors in Compile *** C compile error.
gfilatov2002: Andrey пишет: Кто может помочь в решении этой проблемы ? Скорая помощь прибыла См. рабочий пример ниже [pre2]REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866 #include "minigui.ch" Function Main hb_SetCodepage( "RU1251" ) DEFINE WINDOW Win_1 ; AT 0,0 ; WIDTH 950 HEIGHT 480 ; TITLE 'Tutor 20: BROWSE Test' ; MAIN NOMAXIMIZE ; ON INIT OpenTables() ; ON RELEASE CloseTables() ; DEFINE MAIN MENU POPUP 'File' ITEM 'Set Browse Value' ACTION Win_1.Browse_1.Value := Val ( InputBox ('Set Browse Value','') ) ITEM 'Get Browse Value' ACTION MsgInfo ( Str ( Win_1.Browse_1.Value ) ) SEPARATOR ITEM 'Exit' ACTION Win_1.Release END POPUP POPUP 'Help' ITEM 'About' ACTION MsgInfo ("Tutor 20: BROWSE Test") END POPUP END MENU @ 5,5 BROWSE Browse_1 ; WIDTH 930 ; HEIGHT 423 ; HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ; WIDTHS { 50 , 120 , 120 , 70 , 60 , 490 } ; WORKAREA Test ; FIELDS { 'Code' , 'First' , 'Last' , 'Birth' , 'Married' , 'Bio' } ; DELETE ; LOCK ; EDIT INPLACE ; FONT "Courier Cur" SIZE 10 END WINDOW Win_1.Browse_1.Value := 1 Win_1.Browse_1.Refresh CENTER WINDOW Win_1 ACTIVATE WINDOW Win_1 Return Nil Procedure OpenTables() Use Test Codepage "RU866" Shared New Return Procedure CloseTables() Use Return [/pre2]
Andrey: gfilatov2002 пишет: Скорая помощь прибыла Ну что мы без тебя делали .... Спасибо большое ! 2 правильные строчки и все работает.... Чувствуется рука мастера....
SergKis: Пример: \MiniGUI\SAMPLES\BASIC\Mdi_2>demo.exe В browse по Up/Dn курсор двигается через строку (как будто dbSkip(2)). Это только у меня или это err ? HB 2.0, MiniGUI 2.07
Andrey: SergKis пишет: HB 2.0, MiniGUI 2.07 Если установлен MiniGUI 2.0.7, то там используется Харбор - Version: 3.1.0dev ! У меня тоже через строку курсор двигается. И в добавок на большой базе (200 полей и 242 Mb) вешается программа.
SergKis: Andrey пишет: Если установлен MiniGUI 2.0.7, то там используется Харбор - Version: 3.1.0dev ! У нас VC9. Все, что надо на данный момент (опробовано примерами) работает без проблем. В MiniGUI MDI немного похоже сыроват (неточность с проскоком строки в browse мой товарищ уже нашел. Он основной c++ в нашей команде). Но полезли еще фишки ... . MDI child окно три browse в работе проблемы: 1. VK_TAB реагирует, но НЕ переходит в фокус след. окна (в обычном режиме переключает) и т.д. 2. ON KEY ESCAPE на окно реагирует нормально, но при включении EDIT [INPLACE] (внутри browse идет переназначение ESC на контрол ввода), то при возврате в окно теряется первоначальное назначение (нет сохранения/восстановления ON KEY в edit).
Andrey: SergKis пишет: Но полезли еще фишки ... Это только Григорий вам поможет, я очень слаб пока в МиниГуи....
SergKis: Andrey пишет: Это только Григорий вам поможет Если Григорий учтет это в след. версия будет отлично. А т.к. нам надо срочно и быстро будем пилить что-то под себя. Спасибо, что посмотрел MDI, а то сначала думали, что сами занесли что-то при адаптации к vc.
Andrey: Непонятка по иконкам в диалоговых окнах.... Можно задать одну иконку на все диалоговые окна ? И где можно посмотреть пример ?
gfilatov2002: Andrey пишет: Почему нет иконки ? Не верно, иконка на рисунке есть - просто она стандартная Andrey пишет: где можно посмотреть пример ? Рабочий пример для задания своей иконки в диалоговых окнах есть в папке samples\Basic\MsgBox (см. пункт меню 'Extend HMG MsgBox')
Andrey: Спасибо. А можно ли (в ХР) программно поменять цвет окна на другой для некоторых окон ? Или для всей программы ? Я знаю что в темах Windows изменить цвета можно. Я просто хочу для своей программы цвет изменить !
AndreyZh: gfilatov2002 пишет: Рабочий пример для задания своей иконки в диалоговых окнах есть в папке samples\Basic\MsgBox (см. пункт меню 'Extend HMG MsgBox') Весело... всё таки: 1. Иконка ICON "name.ico" при размещении не после title даёт ошибку компиляции 2. В примерах расширение для файла иконок не обязательно, но если менять другие примеры... иконки (имя) без расширения не воспринимается
Andrey: Пытаюсь сделать программу на несколько разрешений экрана: 1) 800 на 600 2) 1024 на 768 3) и выше Как НУЖНО (правильно) сделать программу на разное разрешение экрана ??? Приведите примерный код пожалуйста !
Andrey: Какая функция в МиниГуи возвращает разрешение экрана и размеры рабочего стола ?
Петр: Просмотр среди примеров, поставляемых с библиотекой и поиск по форуме, ключевое слово desktop, тема "Размеры экрана" - помогут вам
SergKis: Для Andrey. Вот примерная выборка функций: GETACTIVEWINDOW() SETACTIVEWINDOW(hWnd) SETFOREGROUNDWINDOW(hWnd) GETFOREGROUNDWINDOW() C_CENTER(hWnd[,.T./.F.]) // if( hb_parl( 2 ) ); CenterIntoParent( hwnd ); GETFOCUS() GETDESKTOPWIDTH() GETDESKTOPHEIGHT() GETWINDOWRECT(hWnd) GETVSCROLLBARWIDTH() GETHSCROLLBARHEIGHT() GETWINDOWROW(hWnd) GETWINDOWCOL(hWnd) GETWINDOWWIDTH(hWnd) GETWINDOWHEIGHT(hWnd) GETTITLEHEIGHT() GETBORDERHEIGHT() GETBORDERWIDTH() GETMENUBARHEIGHT() Для расчета размеров колонок (browse) и др.контролов: nWidth := GETTEXTWIDTH(NIL, repl('B', 30), InitFont("Arial", 9)) nWidth := GETTEXTWIDTH(NIL, repl('B', 30), _HMG_aControlFontHandle[nIndex] )) nHeigth := GETTEXTHEIGHT(NIL, "B", InitFont("Arial", 9))
Andrey: SergKis пишет: Вот примерная выборка функций Спасибо большое !
Andrey: А как насчет этого вопроса: Пытаюсь сделать программу на несколько разрешений экрана: 1) 800 на 600 2) 1024 на 768 3) и выше Как НУЖНО (правильно) сделать программу на разное разрешение экрана ??? Приведите примерный код пожалуйста !
gfilatov2002: Andrey пишет: Приведите примерный код Внимательно посмотри изменения, внесенные в стандарный пример Алексеем Густовым (функция Def_Pubs() и использование в коде коэффициентов gu_hk и gu_vk): [pre2]/* * 2009-Apr-01 (it's not joke! it's today!) * modified for "windows/controls auto-zoom" by * Alex Gustow < gustow33 @ mail.ru > * < http://gustow.narod.ru/harbour/harbour.htm > * * + little code modifications (by Gustow too) * * code reindenting made with "Indent.exe" from MiniGUI\UTILS\Code_ReIndent */ /* * MINIGUI - Harbour Win32 GUI library Demo * * Copyright 2002 Roberto Lopez <harbourminigui@gmail.com> * http://harbourminigui.googlepages.com/ * * Update 2002 Interativo Networks <xharbour@terra.com.br> * Daniel Crocciari * http://www.ihpz.net * * * Modified by Roberto Lopez <harbourminigui@gmail.com> 2007.12.02 * */ * Value property selects a record by its number (RecNo()) * Value property returns selected record number (recNo()) * Browse control does not change the active work area * Browse control does not change the record pointer in any area * (nor change selection when it changes) * You can programatically refresh it using refresh method. * Variables called <MemVar>.<WorkAreaName>.<FieldName> are created for * validation in browse editing window. You can use it in VALID array. * Using APPEND clause you can add records to table associated with WORKAREA * clause. The hotkey to add records is Alt+A. * Append Clause Can't Be Used With Fields Not Belonging To Browse WorkArea * Using DELETE clause allows to mark selected record for deletion pressing <Del> key * The leftmost column in a browse control must be left aligned. #include "minigui.ch" //------------------------- Function Main set century ON set date BRITISH set delete ON Def_Pubs() // PUBLICs definition & zoom calculating define window Form_1 ; at 0,0 ; width 550 height 535 + if(IsXPThemeActive(), 8, 0) ; title 'MiniGUI Browse Demo' ; MAIN nomaximize ; on init { || OpenTables(), Fun_1() } ; // edited by Gustow, was "OpenTables()" on release CloseTables() define main menu popup 'File' item 'New' action if( Form_1.ButtonNew.Enabled == .t., ButtonNewClick(), Nil ) item 'Delete' action if( Form_1.ButtonDelete.Enabled == .t., ButtonDeleteClick(), Nil ) separator item 'Exit' action Form_1.Release end popup popup 'Help' item 'About' action MsgInfo ( "MINIGUI - Browse Demo" + CRLF + ; "Copyright 2002 Roberto Lopez <harbourminigui@gmail.com>" + CRLF + ; "http://harbourminigui.googlepages.com/" + CRLF + CRLF + ; "Update 2002 Interativo Networks <xharbour@terra.com.br>" + CRLF + ; "Daniel Crocciari" + CRLF + ; "http://www.ihpz.net", "About" ) end popup end menu end window // center window Form_1 Gustow: move this to Fun_1() activate window Form_1 Return Nil //------------------------- Function Def_Pubs() * definitions of PUBLICs (Gustow) public gu_vk := 1, gu_hk := 1 // horizontal & vertical zoom public gu_th := GetTitleHeight(), ; gu_bw := GetBorderHeight() gu_hk := (0.8 * GetDesktopWidth() ) / (0.8 * 800) gu_vk := (0.8 * GetDesktopHeight()) / (0.8 * 600) /* MsgInfo( "Your screen resolution is: " + ; ltrim(str( GetDesktopWidth() )) + " * " + ; ltrim(str( GetDesktopHeight() )) + CRLF + CRLF + ; "Design-time screen resolution is: 800 * 600" + CRLF + CRLF + ; "Hor.zoom: gu_hk =" + str(gu_hk, 10, 2) + CRLF + ; "Ver.zoom: gu_vk =" + str(gu_vk, 10, 2) ) */ Return Nil //------------------------- Function Fun_1() * controls definitions (with autozoom) Public gu_fs := 9 * gu_hk // for fontsize Form_1.Width := int( Form_1.Width * gu_hk ) Form_1.Height := int( Form_1.Height * gu_vk ) Form_1.Center // move here from Main() @ 05 * gu_vk, 10 * gu_hk browse Browse_1 ; of Form_1 ; width 515 * gu_hk ; height 180 * gu_vk ; headers { 'Married', 'Code', 'First Name', 'Last Name', 'Birth Date' } ; widths { 40*gu_hk, 50*gu_hk, 150*gu_hk, 150*gu_hk, 90*gu_hk } ; workarea Teste ; fields { 'Teste->Married', 'Teste->Code' , 'Teste->First' , 'Teste->Last' , 'Teste->Birth'} ; value 1 ; on change { || BrowseChange() } ; on dblclick { || BrowseEdit() } ; nolines; justify { BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_CENTER }; image {"br_no","br_ok"} ; font "Arial" size 9 * gu_hk // line added by Gustow @ 200 * gu_vk, 010 * gu_hk label LabelCode of Form_1 ; // don't forget "OF"! value "Code" ; width 95 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 200 * gu_vk, 105 * gu_hk textbox TextBoxCode of Form_1 ; value "" ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 230 * gu_vk, 010 * gu_hk label LabelFirst of Form_1 ; value "First Name" ; width 95 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 230 * gu_vk, 105 * gu_hk textbox TextBoxFirst of Form_1 ; value "" ; width 300 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 260 * gu_vk, 010 * gu_hk label LabelLast of Form_1 ; value "Last Name" ; width 95 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 260 * gu_vk, 105 * gu_hk textbox TextBoxLast of Form_1 ; value "" ; width 300 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 290 * gu_vk, 012 * gu_hk label LabelBirthdate of Form_1 ; value "Birth Date" ; width 85 * gu_hk height 25 * gu_vk ; // was 95, 25 (shadowed "DatePickerBirth") font "Arial" size 9 * gu_hk @ 295 * gu_vk, 105 * gu_hk ; // was 290, 105 datepicker DatePickerBirth of Form_1 ; width 100 * gu_hk ; // what about auto-zoom for HEIGHT? value date() ; font "Arial" size 9 * gu_hk // line added by Gustow @ 320 * gu_vk, 012 * gu_hk label LabelMarried of Form_1 ; value "Married" ; width 95 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 320 * gu_vk, 105 * gu_hk checkbox CheckBoxMarried of Form_1 ; caption "Yes Married" ; width 100 * gu_hk height 25 * gu_vk ; value .T. ; font "Arial" size 9 * gu_hk @ 350 * gu_vk, 012 * gu_hk label LabelBio of Form_1 ; value "Bio" ; width 95 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 350 * gu_vk, 105 * gu_hk editbox EditBoxBio of Form_1 ; width 300 * gu_hk height 130 * gu_vk ; value "" ; nohscroll ; font "Arial" size 9 * gu_hk @ 325 * gu_vk, 425 * gu_hk image ImagePhoto of Form_1 ; picture "0.bmp" ; width 100 height 125 // no auto-zoom @ 455 * gu_vk, 425 * gu_hk textbox TextBoxPhoto of Form_1 ; value "" ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 200 * gu_vk, 425 * gu_hk button ButtonNew of Form_1 ; caption "&New" ; action ButtonNewClick() ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 230 * gu_vk, 425 * gu_hk button ButtonSave of Form_1 ; caption "&Save" ; action ButtonSaveClick() ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 260 * gu_vk, 425 * gu_hk button ButtonCancel of Form_1 ; caption "&Cancel" ; action ButtonCancelClick() ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk @ 290 * gu_vk, 425 * gu_hk button ButtonDelete of Form_1 ; caption "&Delete" ; action ButtonDeleteClick() ; width 100 * gu_hk height 25 * gu_vk ; font "Arial" size 9 * gu_hk on key ESCAPE of Form_1 ; action if( Form_1.ButtonCancel.Enabled == .T., ButtonCancelClick(), Nil ) Form_1.TextBoxCode.Enabled := .F. Form_1.TextBoxFirst.Enabled := .F. Form_1.TextBoxLast.Enabled := .F. Form_1.DatePickerBirth.Enabled := .F. Form_1.CheckBoxMarried.Enabled := .F. Form_1.TextBoxPhoto.Enabled := .F. Form_1.EditBoxBio.Enabled := .F. Form_1.ButtonSave.Enabled := .F. Form_1.ButtonCancel.Enabled := .F. Form_1.Browse_1.SetFocus Return Nil //------------------------- Function OpenTables() use Test alias Teste new Return Nil //------------------------- Function CloseTables() close all Return Nil //------------------------- Function BrowseEdit() BrowseChange() Form_1.TextBoxFirst.Enabled := .T. Form_1.TextBoxLast.Enabled := .T. Form_1.DatePickerBirth.Enabled := .T. Form_1.CheckBoxMarried.Enabled := .T. Form_1.TextBoxPhoto.Enabled := .T. Form_1.EditBoxBio.Enabled := .T. Form_1.ButtonNew.Enabled := .F. Form_1.ButtonSave.Enabled := .T. Form_1.ButtonCancel.Enabled := .T. Form_1.ButtonDelete.Enabled := .F. // Form_1.Browse_1.Enabled := .F. Form_1.TextBoxFirst.SetFocus Return Nil //------------------------- Function ButtonNewClick() Form_1.TextBoxCode.Value := "" Form_1.TextBoxFirst.Value := "" Form_1.TextBoxLast.Value := "" Form_1.DatePickerBirth.Value := date() Form_1.TextBoxPhoto.Value := "0.bmp" Form_1.CheckBoxMarried.Value := .T. Form_1.EditBoxBio.Value := "" Form_1.ImagePhoto.Picture := "0.bmp" Form_1.TextBoxFirst.Enabled := .T. Form_1.TextBoxLast.Enabled := .T. Form_1.DatePickerBirth.Enabled := .T. Form_1.CheckBoxMarried.Enabled := .T. Form_1.TextBoxPhoto.Enabled := .T. Form_1.EditBoxBio.Enabled := .T. Form_1.ButtonNew.Enabled := .F. Form_1.ButtonSave.Enabled := .T. Form_1.ButtonCancel.Enabled := .T. Form_1.ButtonDelete.Enabled := .F. Form_1.Browse_1.Enabled := .F. Form_1.TextBoxFirst.SetFocus Return Nil //------------------------- Function ButtonDeleteClick() Local vRecno := Form_1.Browse_1.Value goto vRecno If MsgYesNo( ; "Delete This Record?" + CRLF + CRLF + ; "Code: " + alltrim( str( Teste->Code ) ) + CRLF + ; "First Name: " + alltrim( Teste->First ) + CRLF + ; "Last Name: " + alltrim( Teste->Last ), "Confirmation" ) delete skip -1 Form_1.Browse_1.Value := Teste->(Recno()) Form_1.Browse_1.Refresh Form_1.Browse_1.SetFocus endif Return Nil //------------------------- Function ButtonSaveClick() Local vTextBoxCode := val( Form_1.TextBoxCode.Value ), ; vTextBoxFirst := Form_1.TextBoxFirst.Value, ; vTextBoxLast := Form_1.TextBoxLast.Value, ; vDatePickerBirth := Form_1.DatePickerBirth.Value, ; vCheckBoxMarried := Form_1.CheckBoxMarried.Value, ; vTextBoxPhoto := Form_1.TextBoxPhoto.Value, ; vEditBoxBio := Form_1.EditBoxBio.Value if vTextBoxCode <= 0 goto bottom vTextBoxCode := Teste->Code + 1 append blank replace Teste->Code with vTextBoxCode endif replace Teste->First with vTextBoxFirst, ; Teste->Last with vTextBoxLast, ; Teste->Birth with vDatePickerBirth, ; Teste->Married with vCheckBoxMarried, ; Teste->Photo with vTextBoxPhoto, ; Teste->Bio with vEditBoxBio commit // Gustow: // DbCommit() is better // (COMMIT flushes data in _all_ databases, DbCommit() - in current only. // great speed decreasing in XP ! ) Form_1.TextBoxCode.Value := alltrim(str(Teste->Code)) Form_1.TextBoxFirst.Enabled := .F. Form_1.TextBoxLast.Enabled := .F. Form_1.DatePickerBirth.Enabled := .F. Form_1.CheckBoxMarried.Enabled := .F. Form_1.TextBoxPhoto.Enabled := .F. Form_1.EditBoxBio.Enabled := .F. Form_1.ButtonNew.Enabled := .T. Form_1.ButtonSave.Enabled := .F. Form_1.ButtonCancel.Enabled := .F. Form_1.ButtonDelete.Enabled := .T. Form_1.Browse_1.Enabled := .T. Form_1.ImagePhoto.Picture := alltrim(Teste->Photo) Form_1.Browse_1.Value := Teste->(Recno()) Form_1.Browse_1.Refresh Form_1.Browse_1.SetFocus Return NIL //------------------------- Function ButtonCancelClick() Form_1.TextBoxFirst.Enabled := .F. Form_1.TextBoxLast.Enabled := .F. Form_1.DatePickerBirth.Enabled := .F. Form_1.CheckBoxMarried.Enabled := .F. Form_1.TextBoxPhoto.Enabled := .F. Form_1.EditBoxBio.Enabled := .F. Form_1.ButtonNew.Enabled := .T. Form_1.ButtonSave.Enabled := .F. Form_1.ButtonCancel.Enabled := .F. Form_1.ButtonDelete.Enabled := .T. Form_1.Browse_1.Enabled := .T. BrowseChange() Form_1.Browse_1.SetFocus Return NIL //------------------------- Function BrowseChange() Local vRecno := Form_1.Browse_1.Value goto vRecno Form_1.TextBoxCode.Value := alltrim(str(Teste->Code)) Form_1.TextBoxFirst.Value := alltrim(Teste->First) Form_1.TextBoxLast.Value := alltrim(Teste->Last) Form_1.DatePickerBirth.Value := Teste->Birth Form_1.CheckBoxMarried.Value := Teste->Married Form_1.EditBoxBio.Value := Teste->Bio Form_1.TextBoxPhoto.Value := alltrim(Teste->Photo) Form_1.ImagePhoto.Picture := ; if( file( alltrim(Teste->Photo) ), alltrim(Teste->Photo), "0.bmp" ) Return NIL[/pre2] Возможно, это натолкнет на собственные идеи
Andrey: gfilatov2002 пишет: Возможно, это натолкнет на собственные идеи Спасибо большое за помощь !
Петр: GPF Application Internal Error - C:\MiniGUI\SAMPLES\BASIC\IMAGE_2\DEMO.exe Terminated at: 2012.04.22 11:12:00 Info: Harbour MiniGUI Extended Edition 2.0.9 - 2012.04.04 Unrecoverable error 6005: Exception error: Exception Code:C0000005 Exception Address:7C9101B3 EAX:0002000A EBX:00150000 ECX:00000146 EDX:00070001 ESI:00020000 EDI:0001FFF8 EBP:0012F284 CS:EIP:001B:7C9101B3 SS:ESP:0023:0012F064 DS:0023 ES:0023 FS:003B GS:0000 Flags:00010216 CS:EIP: 88 47 06 8B C7 C1 E8 03 32 43 04 88 47 04 F6 45 SS:ESP: 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 C stack: EIP: EBP: Frame: OldEBP, RetAddr, Params... 7C9101B3 0012F284 0012F2D0 7C80FF0F 00150000 00100008 00000146 B9011A4B 00000000 00000000 00000000 00000001 7C80FF0F 0012F2D0 0012F360 0040EE99 00000040 00000146 004DB8FA 00000000 005218B4 000065C0 004DB8A9 005218B4 0040EE99 0012F360 0012F3A0 0040EB35 004A3547 0000007B 000000A0 002B0476 00000000 00000001 00000000 005218B4 0040EB35 0012F3A0 0012F4A4 0043621C 00000007 004DE275 00000000 005218B4 0000007D FFFFFFF0 0012F648 00000000 0043621C 0012F4A4 0012F4CC 00414B60 004DB854 004D3760 0043C068 0000004B 00000000 00000000 00000000 000009DC 00414B60 0012F4CC 0012F5D0 00436199 00000003 004A354F 00000000 005218B4 FFFFFFFF 0012F544 5B263357 00330496 00436199 0012F5D0 0012F5F8 00414DA4 004DDC5E 004D3760 0043C068 00000048 00000000 00000000 00000000 00000E83 00414DA4 0012F5F8 0012F6FC 0043621C 00000004 005218B4 FFFFFFFE 00A3B764 00000002 004F2421 00000000 005218B4 0043621C 0012F6FC 0012F734 0043C3E1 004A3526 004A325C 004F24C6 00000000 004EDCE4 0043C225 005218B4 00000041 0043C3E1 0012F734 0012F838 004362D6 00000001 0050FA1A 00000000 005218B4 000000F4 00000001 00000001 773E8EBF 004362D6 0012F838 0012F860 004156D8 004F23E7 004ED8E4 0043C068 00000012 00000000 00A3FBBC 00000000 00000626 004156D8 0012F860 0012F964 00436199 00000002 00000000 00000111 0050B310 00000000 0015FAB8 00000000 00159A50 00436199 0012F964 0012F990 00418920 0050C1F4 0050B310 0043C185 008603F4 00000010 00000000 00000000 00000000 00418920 0012F990 0012F9A8 0040C266 00000004 0012FA10 0040C1E8 00000000 0040C266 0012F9A8 0012F9D4 7E368734 008603F4 00000111 00000000 00330496 0040C1E8 DCBAABCD 00000000 0012FA10 7E368734 0012F9D4 0012FA3C 7E368816 0040C1E8 008603F4 00000111 00000000 00330496 00000111 007825F8 0078260C 7E368816 0012FA3C 0012FA78 7E37927B 00000000 0040C1E8 008603F4 00000111 00000000 00330496 0078260C 00000001 7E37927B 0012FA78 0012FA98 7E3792E3 007825F8 00782578 00000000 00330496 00000000 001599E0 7E3792E3 0012FA98 0012FAB8 773E735F 008603F4 00000111 00000000 00330496 00000001 001599E0 773E735F 0012FAB8 0012FAD4 773E7441 001599E0 00000000 00100028 001599E0 00000001 Modules: 0x00400000 0x00145000 C:\MiniGUI\SAMPLES\BASIC\IMAGE_2\DEMO.exe 0x7C900000 0x000B3000 C:\WINDOWS\system32\ntdll.dll 0x7C800000 0x000F8000 C:\WINDOWS\system32\kernel32.dll 0x75A40000 0x00021000 C:\WINDOWS\system32\MSVFW32.DLL 0x7E360000 0x00091000 C:\WINDOWS\system32\USER32.dll 0x77F10000 0x00049000 C:\WINDOWS\system32\GDI32.dll 0x76B20000 0x0002E000 C:\WINDOWS\system32\WINMM.dll 0x77DC0000 0x000AC000 C:\WINDOWS\system32\ADVAPI32.dll 0x77E70000 0x00093000 C:\WINDOWS\system32\RPCRT4.dll 0x77FE0000 0x00011000 C:\WINDOWS\system32\Secur32.dll 0x7C9C0000 0x0081C000 C:\WINDOWS\system32\SHELL32.dll 0x77C00000 0x00058000 C:\WINDOWS\system32\msvcrt.dll 0x77F60000 0x00076000 C:\WINDOWS\system32\SHLWAPI.dll 0x773C0000 0x00103000 C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202\COMCTL32.dll 0x774D0000 0x0013E000 C:\WINDOWS\system32\OLE32.DLL 0x5F2F0000 0x00017000 C:\WINDOWS\system32\OLEPRO32.DLL 0x77110000 0x0008B000 C:\WINDOWS\system32\OLEAUT32.dll 0x76360000 0x0001D000 C:\WINDOWS\system32\IMM32.DLL 0x5D270000 0x00007000 C:\WINDOWS\system32\serwvdrv.dll 0x5B590000 0x00007000 C:\WINDOWS\system32\umdmxfrm.dll 0x5B260000 0x00038000 C:\WINDOWS\system32\uxtheme.dll 0x746E0000 0x0004C000 C:\WINDOWS\system32\MSCTF.dll 0x75310000 0x0002E000 C:\WINDOWS\system32\msctfime.ime Called from C_SETPICTURE(0) Called from _SETPICTURE(2524) in h_controlmisc.prg Called from SETPROPERTY(3715) in h_controlmisc.prg Called from (b)MAIN(28) in DEMO.prg Called from _DOCONTROLEVENTPROCEDURE(1574) in h_windows.prg Called from EVENTS(1433) in h_events.prg Called from _DOMESSAGELOOP(0) Called from _ACTIVATEWINDOW(1311) in h_windows.prg Called from MAIN(33) in DEMO.prg
полная версия страницы