Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы.....

Всем привет.
Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ?
А заодно может и исправить и добавить новые....

Очень красочный пример: \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.

 Отправлено: 03.03.12 17:25. Заголовок: Andrey пишет: Кто м..

Andrey пишет:

цитата:

Кто может помочь в решении этой проблемы ?

Скорая помощь прибыла

См. рабочий пример ниже
Скрытый текст

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

 Отправлено: 03.03.12 22:38. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Скорая помощь прибыла

Ну что мы без тебя делали .... Спасибо большое !
2 правильные строчки и все работает.... Чувствуется рука мастера....

 Отправлено: 18.03.12 08:41. Заголовок: Пример: \MiniGUI..

Пример: \MiniGUI\SAMPLES\BASIC\Mdi_2>demo.exe
В browse по Up/Dn курсор двигается через строку (как будто dbSkip(2)). Это только у меня или это err ?
HB 2.0, MiniGUI 2.07

 Отправлено: 18.03.12 22:44. Заголовок: SergKis пишет: HB 2..

SergKis пишет:

цитата:

HB 2.0, MiniGUI 2.07

Если установлен MiniGUI 2.0.7, то там используется Харбор - Version: 3.1.0dev !
У меня тоже через строку курсор двигается.
И в добавок на большой базе (200 полей и 242 Mb) вешается программа.

 Отправлено: 18.03.12 23:20. Заголовок: Andrey пишет: Если у..

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).

 Отправлено: 18.03.12 23:26. Заголовок: SergKis пишет: Но п..

SergKis пишет:

цитата:

Но полезли еще фишки ...

Это только Григорий вам поможет, я очень слаб пока в МиниГуи....

 Отправлено: 18.03.12 23:34. Заголовок: Andrey пишет: Это то..

Andrey пишет:

цитата:

Это только Григорий вам поможет

Если Григорий учтет это в след. версия будет отлично.
А т.к. нам надо срочно и быстро будем пилить что-то под себя.
Спасибо, что посмотрел MDI, а то сначала думали, что сами занесли что-то при адаптации к vc.

 Отправлено: 04.04.12 13:18. Заголовок: Непонятка по иконкам..

Непонятка по иконкам в диалоговых окнах....


Можно задать одну иконку на все диалоговые окна ?
И где можно посмотреть пример ?

 Отправлено: 05.04.12 09:43. Заголовок: Andrey пишет: Почем..

Andrey пишет:

цитата:

Почему нет иконки ?

Не верно, иконка на рисунке есть - просто она стандартная

Andrey пишет:

цитата:

где можно посмотреть пример ?

Рабочий пример для задания своей иконки в диалоговых окнах есть в папке samples\Basic\MsgBox (см. пункт меню 'Extend HMG MsgBox')

 Отправлено: 05.04.12 11:26. Заголовок: Спасибо. :sm36: А..

Спасибо.

А можно ли (в ХР) программно поменять цвет окна на другой для некоторых окон ?
Или для всей программы ?



Я знаю что в темах Windows изменить цвета можно.
Я просто хочу для своей программы цвет изменить !

 Отправлено: 05.04.12 14:47. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Рабочий пример для задания своей иконки в диалоговых окнах есть в папке samples\Basic\MsgBox (см. пункт меню 'Extend HMG MsgBox')

Весело... всё таки:

1. Иконка ICON "name.ico" при размещении не после title даёт ошибку компиляции
2. В примерах расширение для файла иконок не обязательно, но если менять другие примеры... иконки (имя) без расширения не воспринимается

 Отправлено: 13.04.12 23:17. Заголовок: Пытаюсь сделать прог..

Пытаюсь сделать программу на несколько разрешений экрана:
1) 800 на 600
2) 1024 на 768
3) и выше

Как НУЖНО (правильно) сделать программу на разное разрешение экрана ???

Приведите примерный код пожалуйста !

 Отправлено: 16.04.12 12:15. Заголовок: Какая функция в Мини..

Какая функция в МиниГуи возвращает разрешение экрана и размеры рабочего стола ?

 Отправлено: 16.04.12 12:52. Заголовок: Просмотр примеров и ..

Просмотр среди примеров, поставляемых с библиотекой и поиск по форуме, ключевое слово desktop, тема "Размеры экрана" - помогут вам

 Отправлено: 16.04.12 13:13. Заголовок: Для Andrey. Вот прим..

Для 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))

 Отправлено: 16.04.12 13:44. Заголовок: SergKis пишет: Вот ..

SergKis пишет:

цитата:

Вот примерная выборка функций

Спасибо большое !

 Отправлено: 16.04.12 13:53. Заголовок: А как насчет этого в..

А как насчет этого вопроса:

Пытаюсь сделать программу на несколько разрешений экрана:
1) 800 на 600
2) 1024 на 768
3) и выше

Как НУЖНО (правильно) сделать программу на разное разрешение экрана ???

Приведите примерный код пожалуйста !

 Отправлено: 17.04.12 10:00. Заголовок: Andrey пишет: Приве..

Andrey пишет:

цитата:

Приведите примерный код

Внимательно посмотри изменения, внесенные в стандарный пример Алексеем Густовым (функция Def_Pubs() и использование в коде коэффициентов gu_hk и gu_vk):

/* 
  * 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

Возможно, это натолкнет на собственные идеи

 Отправлено: 17.04.12 10:36. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Возможно, это натолкнет на собственные идеи

Спасибо большое за помощь !

 Отправлено: 22.04.12 11:13. Заголовок: SAMPLES\BASIC\IMAGE_2\DEMO.exe

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