Отправлено: 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.

 Отправлено: 15.11.11 23:16. Заголовок: Andrey пишет: Взялс..

Andrey пишет:

цитата:

Взялся смотреть примеры из МиниГуи, так не все работают

Andrey пишет:

цитата:

\MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7

Посмотрю, что можно сделать...
Andrey пишет:

цитата:

Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - вылетает на ХР

Похоже, у Вас есть некорректно установленные программы
Но все равно попробую поправить...
Andrey пишет:

цитата:

Пример: \MiniGUI\SAMPLES\BASIC\MsgEdit - не собирается

Устаревшая информация! Проверьте на текущей версии 2.0.3 - дата файла demo.prg должна быть 11.10.2011

 Отправлено: 16.11.11 15:43. Заголовок: Пример: \MiniGUI..

Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - в версии 2.0.3 работает !
Классный пример ! Хочу также и для хХарбора !!!


gfilatov2002 пишет:

цитата:

Устаревшая информация! Проверьте на текущей версии 2.0.3 - дата файла demo.prg должна быть 11.10.2011

Точно в версии 2.0.3 работает ! Классный пример !


Остался \MiniGUI\SAMPLES\Advanced\AVI_Animation
И еще:
Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ?

 Отправлено: 16.11.11 16:02. Заголовок: Andrey пишет: Остал..

Andrey пишет:

цитата:

Остался \MiniGUI\SAMPLES\Advanced\AVI_Animation

Переработал этот пример:
- avi-файл хранится в ресурсах проекта;
- элемент управления ANIMATERES определен как пользовательский компонент и теперь его можно вызвать из своей программы, подключив в нее файл animate.prg

 Отправлено: 18.11.11 13:57. Заголовок: Пример: \MiniGU..

Пример: \MiniGUI\SAMPLES\BASIC\Menu_2>demo2.exe

Выглядит так:



Как сделать чтоб само меню было с левой стороны ?

 Отправлено: 24.01.12 14:15. Заголовок: Столкнулся с непоказ..

Столкнулся с непоказом иконки на форме.
Какой максимальны размер иконки можно выводить ?

Если использую одну иконку 128х128 в ICO-файле и записываю ее в ресурсный файл, то не показывает.

Как можно выводить из ICO-файла конкретную иконку, т.е. нужно допустим 128х128 ?

Может я чего то не понимаю, объясните мне пожалуйста как происходит показ иконок из ресурсов.
Заранее спасибо.

 Отправлено: 24.01.12 14:24. Заголовок: Если не ошибаюсь, то..

Если не ошибаюсь, то набор размеров для винды такой: 256х256, 48х48, 32х32 и 16х16.
128х128 используется в Mac OS.
Винда сама выбирает размер в зависимости от того, в каком месте интерфейса рисуется иконка. Если нужного размера нет, то ничего и не нарисует.
Имхо.

 Отправлено: 24.01.12 14:28. Заголовок: PSP пишет: 128х128 ..

PSP пишет:

цитата:

128х128 используется в Mac OS.

Т.е. если я использую одну иконку 128х128 в ICO-файле и записываю ее в ресурсный файл, то при показе
ICO на форме ничего показываться не будет ?

 Отправлено: 24.01.12 14:33. Заголовок: http://www.allok.ru/..

 Отправлено: 24.01.12 18:40. Заголовок: PSP Спасибо большое ..

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

 Отправлено: 26.02.12 13:34. Заголовок: Вопрос по примеру sa..

Вопрос по примеру samples\Advanced\MenuEx
По хелпу читал, так и не понял.
Как задать шрифт (по умолчанию он 10) в верхнем меню программы ?

 Отправлено: 26.02.12 17:07. Заголовок: Andrey По моему эти ..

Andrey По моему эти вопросы решает сама Винда ....

 Отправлено: 26.02.12 17:30. Заголовок: Softlog86 пишет: По..

Softlog86 пишет:

цитата:

По моему эти вопросы решает сама Винда ....

А почему тогда можно увеличить и изменить шрифт в ниспадающем меню ?
Значит можно увеличить и шрифт верхнего меню программы !
Но вот только как ?

 Отправлено: 26.02.12 20:47. Заголовок: Andrey пишет: Значи..

Andrey пишет:

цитата:

Значит можно увеличить и шрифт верхнего меню программы

http://windows.microsoft.com/ru-RU/windows7/Change-Windows-fonts

 Отправлено: 26.02.12 22:21. Заголовок: Судя по ссылке, прог..

Судя по ссылке, программно (из МиниГуи) никак !
Очень жалко... Спасибо за терпение....

 Отправлено: 29.02.12 00:45. Заголовок: Andrey Кажись я таки..

Andrey Кажись я таки нашел Вас... Это Ваш пример? У меня пара ламерских вопросов (потому как клиппером 17 лет не занимался и основательно забыл его).

Скачал MiniGUI с того поста, но скомпилировать вышеупомянутый пример так и не удалось - ругается "unresolved external _hd_fun_adosettable_" и "unresolved external _hd_fun_adordd_". Добавил #include "c:\MiniGUI\Harbour\lib\adordd.lib" - прежние ошибки при компиляции сменились кучей ошибок c:\MiniGUI\Harbour\lib\adordd.lib(1) Error E0001 Illegal character '\x00' и в конце c:\MiniGUI\Harbour\lib\adordd.lib(1) Error E0030 Syntax error "syntax error at 'Ё'"

Еще одна проблема - взял пример tutor20.prg из того же MiniGUI и наткнулся на невозможность включить 866 кодировку, в которой почему-то работает Excel с файлами dbase4. Получается, что то, что в dbf занесено в Excel не читабельно в BROWSE от Harbour и наоборот. Вставлял REQUEST HB_CODEPAGE_RU866 после #include и hb_SetCodepage( "RU866" ) после main - никакой реакции: ни на что не ругается но выдает всю кирилицу в 1251. Как победить?

 Отправлено: 29.02.12 09:40. Заголовок: vovchok пишет: Скач..

vovchok пишет:

цитата:

Скачал MiniGUI с того поста, но скомпилировать вышеупомянутый пример так и не удалось - ругается "unresolved external _hd_fun_adosettable_" и "unresolved external _hd_fun_adordd_".

Minigui тут ни причем! Чистый harbour. Попробуйте тот же пример, только без adordd и создания базы access, а просто база dbf

REQUEST HB_LANG_RUWIN 
 REQUEST HB_CODEPAGE_RU1251 
  
 Function Main() 
 Local nI:=45, nK:=32   // - объявление переменных 
  
 hb_SetCodepage( "RU1251" )  // - переключение на русскую кодировку (доступны и др.языки, со всеми сортировками, датами и .д.) 
  
 DbCreate( "test2", { { "FIRST", "C", 10, 0 },; 
 { "LAST", "C", 10, 0 },; 
 { "AGE", "N", 8, 0 } } )  // - создать таблицу 
  
 USE test2  // - открыть таблицу 
 APPEND BLANK     // - добавить запись в таблицу 
 test2->First := "Вася"        // - запись в поле 
 test2->Last := "Сидоров" 
 test2->Age := nI 
 APPEND BLANK 
 test2->First := "Коля" 
 test2->Last := "Пупкин" 
 test2->Age := nK 
 GO TOP  // переместить указатель на первую запись в таблице 
 Browse()  // показать таблицу со всеми записями..... 
 return nil

 Отправлено: 29.02.12 21:18. Заголовок: Попробуйте тот же пр..

цитата:

Попробуйте тот же пример, только без adordd и создания базы access, а просто база dbf

Что-то все равно не то... В процессе компиляции не ругается, но созданный EXEшник зависает в памяти ничего не выдавая на экран (видимо Browse() глючит) и его приходится снимать принудительно. Кроме того созданная база выглядит в Excel таким образом (крякозябы)
FIRST LAST AGE
┬рё  ╤шфюЁют 45
╩юы  ╧єяъшэ 32
А все потому, что кирилица в DBF в понимании мелкософтов должна быть в кодировке 866, а не 1251. Но включить 866 не получается - как это сделать?

цитата:

Minigui тут ни причем! Чистый harbour

MiniGUI - это виндовый оконный интерфейс, а чистый Harbour работает лишь с системной консолью? Что же все-таки должна выдавать функция Browse()?

 Отправлено: 29.02.12 21:35. Заголовок: Вот рабочий пример, ..

Вот рабочий пример, проверил

func main()
Local nI:=45, nK:=32 // - объявление переменных
REQUEST HB_CODEPAGE_RU1251
REQUEST HB_CODEPAGE_RU866
HB_CDPSELECT( "RU866" ) // - переключение на русскую кодировку (доступны и др.языки, со всеми сортировками, датами и .д.)

DbCreate( "test2", { { "FIRST", "C", 10, 0 },{ "LAST", "C", 10, 0 },{ "AGE", "N", 8, 0 } } ) // - создать таблицу

USE test2 // - открыть таблицу
APPEND BLANK // - добавить запись в таблицу
test2->First := "Вася" // - запись в поле
test2->Last := "Сидоров"
test2->Age := nI
APPEND BLANK
test2->First := "Коля"
test2->Last := "Пупкин"
test2->Age := nK
GO TOP // переместить указатель на первую запись в таблице
Browse() // показать таблицу со всеми записями.....
return nil


вот browse

╒═════════════════════════════════════════════════════════════════════ 
 │                                                  Record 1/2 
 │                        FIRST      LAST       AGE 
 ╞══════════════════════════════════ ══════════ ═══════════════════════ 
 │                        Вася       Сидоров          45 
 │                        Коля       Пупкин           32 
 │ 
 │ 
 │ 
 │

 Отправлено: 29.02.12 22:09. Заголовок: vovchok пишет: Скач..

vovchok пишет:

цитата:

Скачал MiniGUI с того поста

Какая версия ?

vovchok пишет:

цитата:

MiniGUI - это виндовый оконный интерфейс, а чистый Harbour работает лишь с системной консолью?

Harbour работает везде - и в МиниГуи и Qt и в терминалке. Это язык программирования. Более подробно читайте: http://ru.wikipedia.org/wiki/Harbour

Почитайте также как установить:
http://clipper.borda.ru/?1-4-0-00000515-000-0-0-1267900828

А потом напишите - какую задачу вы хотите сделать: терминалку под Win32 или полноценное приложение Win32 на МиниГуи ?

 Отправлено: 29.02.12 23:02. Заголовок: Andrey пишет: Harbo..

Andrey пишет:

цитата:

Harbour работает везде - и в МиниГуи

это как?

 Отправлено: 01.03.12 00:06. Заголовок: Чувствую себя в танк..

Чувствую себя в танке в башне и в шлемофоне...
AlexMyr пишет:

цитата:

Вот рабочий пример, проверил

Эффект все тот же - Browse() не работает и вешает программу с блокировкой базы. Пробовал запускать в системной консоли - результат не меняется - на экран вообще ничего не выводится, а в диспетчере задач висит процесс с именем проги и блокирует базу. Когда Browse() комментирую - создает файл без зависания, но все с теми же крякозябами. Видимо Harbour у Вас не такой, как у меня.
Andrey пишет:

цитата:

Какая версия ?

не знаю где это посмотреть - файл hmg-1.7-79-setup.zip, BCC55
Andrey А почему с базами Access у меня в Вашем примере не получается ничего?

 Отправлено: 01.03.12 00:25. Заголовок: vovchok пишет: не з..

vovchok пишет:

цитата:

не знаю где это посмотреть - файл hmg-1.7-79-setup.zip, BCC55

Ищите папку harbour/bin потом команда
harbour -build
результат сюда.

Начните лучше с Harbour http://sourceforge.net/projects/harbour-project/files/binaries-windows/3.0.0/harbour-3.0.0-win.exe/download

 Отправлено: 01.03.12 00:35. Заголовок: AlexMyr пишет: Ищите..

AlexMyr пишет:

цитата:

Ищите папку harbour/bin потом команда

c:\MiniGUI\Harbour\bin>harbour -build
Harbour 2.0.0 (Rev. 13372)
Copyright (c) 1999-2010, http://www.harbour-project.org/
Harbour MiniGUI Extended Distribution
AlexMyr пишет:

цитата:

Начните лучше с Harbour

Это я тоже разворачивал и harbour-nightly-win (3.1), но хотел выполнить пример Андрея, а оно не дается мне никак - вот и взял его же дистрибутив из поста с примером. К тому же в том пакете MiniGUI есть пакетники для компиляции, а в чистом Harbour я их не обнаружил... Хотя может плохо искал...
Кстати примеры, которые в том MiniGIU компилируются и выполняются без проблем, довольно таки поучительно, если что-то писать под винды.

 Отправлено: 01.03.12 00:43. Заголовок: В harbour есть утили..

В harbour есть утилита hbmk2, ее и используете для сборки prg в exe:

Допустим мой пример, имя файла test1.prg, выполняете комманду: hbmk2 test1.prg, должно получиться test1.exe, никаких батников не нужно.

 Отправлено: 01.03.12 01:23. Заголовок: AlexMyr пишет: выпол..

AlexMyr пишет:

цитата:

выполняете комманду: hbmk2 test1.prg, должно получиться test1.exe

Выполнил на HB31 - заработало в системной консоли, но крякозябы все равно и в окне программы и в Excel.
REQUEST HB_CODEPAGE_RU866
HB_CDPSELECT( "RU866" )
не работает

 Отправлено: 01.03.12 01:36. Заголовок: Я давал пример в дос..

Я давал пример в дос кодировке, потому у меня и выбирается дос кодировка HB_CDPSELECT( "RU866" ), если Вы скопировали текст с форума и вставили его в редактор в вин кодировке, то нужно и выбирать вин кодировку HB_CDPSELECT( "RU1251" )

 Отправлено: 01.03.12 09:22. Заголовок: AlexMyr пишет: Andr..

AlexMyr пишет:

цитата:

Andrey пишет: цитата: Harbour работает везде - и в МиниГуи это как?

Я имел ввиду, что МиниГуи (HMG EE) это библиотека, с которой можно работать на языках: Харбор и хХарбор.


Петр пишет:

цитата:

Дать точное описание HMG EE трудно и на русском. Для меня это набор который состоит из компилятора Harbour, ряда библиотек, конечно же главной из которых является одноименная HMG EE GUI библиотека для платформы Windows базирующаяся на WinAPI, утилит и огромного числа примеров использования как самой библиотеки, так и WinAPI. Ну и IDE.

http://clipper.borda.ru/?1-1-160-00000188-000-0-0-1248515674

 Отправлено: 01.03.12 10:15. Заголовок: Да. vovchok пишет: ..

Да. vovchok пишет:

цитата:

Andrey А почему с базами Access у меня в Вашем примере не получается ничего?

Посмотрите примеры в папках:
\MiniGUI\SAMPLES\BASIC\Adordd
...............
\MiniGUI\SAMPLES\BASIC\ADORDD_4

 Отправлено: 01.03.12 11:27. Заголовок: Andrey пишет: Посмот..

Andrey пишет:

цитата:

Посмотрите примеры в папках: \MiniGUI\SAMPLES\BASIC\Adordd

Я имею ввиду конкретный Ваш пример - почему он не работает? Или Вы его там привели просто как абстрактный образец исходника на Harbour не предполагая, что кто-то его надумает компилировать и он должен быть рабочим?

AlexMyr пишет:

цитата:

если Вы скопировали текст с форума и вставили его в редактор в вин кодировке, то нужно и выбирать вин кодировку

т.е. выбор кодировки в программе не предполагает введение содержимого в этой кодировке, а только устанавливает порядок сортировки? Что нужно сделать, чтобы текст кирилицы, вводимой в поле БД DBF сохранялся в нем в DOS кодировке, как это происходит, если ту же базу заполнять в Excel? Меня интересует вот этот пример из MiniGUI: http://zalil.ru/32797519 - попробуйте заполнить имеющуюся в нем базу из скомпилированной программы и из Excel. Как добиться, чтобы прога вводила так же как Excel?

 Отправлено: 01.03.12 12:30. Заголовок: vovchok пишет: Или ..

vovchok пишет:

цитата:

Или Вы его там привели просто как абстрактный образец исходника на Harbour не предполагая, что кто-то его надумает компилировать и он должен быть рабочим?

Именно так !

 Отправлено: 01.03.12 13:35. Заголовок: vovchok пишет: т.е...

vovchok пишет:

цитата:

т.е. выбор кодировки в программе не предполагает введение содержимого в этой кодировке, а только устанавливает порядок сортировки?

Да ! Если вы используете MINIGUI ! Для терминалки - нет !

vovchok пишет:

цитата:

Что нужно сделать, чтобы текст кирилицы, вводимой в поле БД DBF сохранялся в нем в DOS кодировке, как это происходит, если ту же базу заполнять в Excel? Меня интересует вот этот пример из MiniGUI: http://zalil.ru/32797519 - попробуйте заполнить имеющуюся в нем базу из скомпилированной программы и из Excel. Как добиться, чтобы прога вводила так же как Excel?

Если вы начали работать с МиниГуи, то необходимо почитать документацию \MiniGUI\Doc
Или посмотрите примеры по базам (:\MiniGUI\SAMPLES\Applications\DBFview)
Я в МиниГуи не работал сам еще с базами. Пока еще не перешел на МиниГуи. Так что ваш вопрос адресуйте gfilatov2002 !
Могу помочь только с ТЕРМИНАЛКАМИ.

EXCEL вводит кодировку RU1251, зачем использовать DOS-кодировку ?

 Отправлено: 01.03.12 17:11. Заголовок: Andrey пишет: EXCEL ..

Andrey пишет:

цитата:

EXCEL вводит кодировку RU1251, зачем использовать DOS-кодировку ?

Простите мне мою дерзость, т.к. мне приходится Вам перечить, но у меня, если я создаю файл в Excel, ввожу в нем кирилицу и сохраняю его как dbf - вся кирилица получается в dos кодировке и через проги, написанные с применением MiniGUI, не просматривается (office2003). Собственно поэтому я и спросил - что надо указать в проге на MiniGIU, чтобы кирилица в графических окнах была в кодировке 866, и то, что набрано в Excel было читабельно?

 Отправлено: 01.03.12 19:16. Заголовок: vovchok , может быть..

vovchok , может быть, хоть в чем-то "для старта с ноля" поможет начатый да заброшенный мной "курс мол.бойца по МиниГУИ"? хоть немного вопросов снимет? оно тут: http://gustow.narod.ru/harbour/MiniGUI_help/welcome.htm . Заодно и отрецензировали бы имеющееся там - как уж явно самый "молодой боец" (в смысле - с МиниГУИ). :)

 Отправлено: 01.03.12 19:17. Заголовок: vovchok пишет: Прос..

vovchok пишет:

цитата:

Простите мне мою дерзость, т.к. мне приходится Вам перечить

Да не заморачивайся, причем тут дерзость и перечить... Я просто спросил.

vovchok пишет:

цитата:

Собственно поэтому я и спросил - что надо указать в проге на MiniGIU, чтобы кирилица в графических окнах была в кодировке 866, и то, что набрано в Excel было читабельно?

Подправил ваш исходник. Да все равно не показывает DOS-кодировку.
Хотя \MiniGUI\SAMPLES\Applications\DBFview показывает правильно. Там наверно что-то в BROWSE передавать надо....
Увы, моих знаний не хватает.
Так что ваш вопрос адресуйте gfilatov2002 !

 Отправлено: 01.03.12 23:42. Заголовок: AlexMyr пишет:В harb..

AlexMyr пишет:

цитата:

В harbour есть утилита hbmk2, ее и используете для сборки prg в exe:

Все было хорошо, пока в программе не было ошибок... (компилировал готовые примеры, но когда начал ваять свое...) Теперь оно быстро моргает окном на экране и ничего не делает - где посмотреть почему? (exeшник не создается, ругательств не видно - просто запускается и тут же закрывается...)

 Отправлено: 01.03.12 23:47. Заголовок: vovchok пишет: Все ..

vovchok пишет:

цитата:

Все было хорошо, пока в программе не было ошибок...

hbmk2 test1.prg -trace >err.log 2>&1

 Отправлено: 02.03.12 13:52. Заголовок: В MiniGU я использу..

В MiniGU я использую IDE. Там ведется лог ошибок. Все собирается. А с DOS кодировкой не получилось.Но работать с Excel можно как угодно. Используй для ввода данных в дбф специальные программы - здесь ПАША выкладывал свою, много есть чужих , поддерживающих обе кодировки( я применяю еще DBF dESKTOP)

 Отправлено: 03.03.12 10:46. Заголовок: Сори за оффтоп - мал..

Сори за оффтоп - маленький вопрос не по теме, но не хотел начинать новую.

Нужен генератор случайных чисел - в клиппере такого не встречал, есть это в Harbour, или нужно использовать С?

ps:Вопрос снимаю - нашел: round(HB_RANDOM(),10) возвращает случайное число от 0 до 1 с точностью 10 знаков.

 Отправлено: 03.03.12 14:14. Заголовок: vovchok пишет: Нуже..

vovchok пишет:

цитата:

Нужен генератор случайных чисел - в клиппере такого не встречал, есть это в Harbour

в hbmk2 используется hb_rand32()

 Отправлено: 03.03.12 16:21. Заголовок: Vlad04 пишет: А с D..

Vlad04 пишет:

цитата:

А с DOS кодировкой не получилось.

Что тогда получается НЕЛЬЗЯ использовать
@ 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 { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' } ;
DELETE ;
LOCK ;
EDIT INPLACE

для DOS-кодировки ?

Кто может помочь в решении этой проблемы ?
Пример здесь. http://files.mail.ru/X77OOJ

 Отправлено: 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

 Отправлено: 23.04.12 10:33. Заголовок: Петр Благодарю за с..

Петр,

Благодарю за сообщение об ошибке!

Догадываюсь, что этот сбой получен на Win7

Можно попробовать запустить этот пример в режиме совместимости с WinXP, как вариант

У меня на Win7 64bit Ultimate C:\MiniGUI\SAMPLES\BASIC\IMAGE_2\DEMO.exe при изменении картинки типа .CUR отрабатывает без ошибки, поэтому, возможно, что есть проблемы с локальной системой.

В любом случае, Ваши предложения по исправлению возникшей ошибки всегда приветствуются

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

gfilatov2002 пишет:

цитата:

Догадываюсь, что этот сбой получен на Win7

Нет, XP SP3.
Просто, после запуска программы начните "тыкать" мышкой по всем кнопкам, слева направо или наоборот - без разницы. У меня где-то после 20 щелчков валилась.

gfilatov2002 пишет:

цитата:

В любом случае, Ваши предложения по исправлению возникшей ошибки всегда приветствуются

Уже исправил, осталось только по просьбе Андрея Верченко вывод PNG для систем поддерживающих gdiplus (XP и выше) прикрутить.

Опубликую здесь или сброшу куда-то, по желанию.

 Отправлено: 23.04.12 12:04. Заголовок: Петр пишет: осталос..

Петр пишет:

цитата:

осталось только по просьбе Андрея Верченко поддержу вывода PNG для систем поддерживающих gdiplus (XP и выше) прикрутить.

Ура...
Жду с нетерпением...

 Отправлено: 23.04.12 12:30. Заголовок: Петр пишет: Опублик..

Петр пишет:

цитата:

Опубликую здесь

Ждем...

 Отправлено: 23.04.12 22:58. Заголовок: Петр пишет: Опублик..

Петр пишет:

цитата:

Опубликую здесь

click here

 Отправлено: 23.04.12 23:29. Заголовок: В примере DEMOGDIP.e..

В примере DEMOGDIP.exe перестал работать показ кнопки "Set cur"

И очень хотелось бы для таких подключений библиотек делать файлы проектов *.hbp
Ну нет пока практики у меня (начинающего) включения разных библиотек в свои проекты.
Заранее спасибо !

 Отправлено: 24.04.12 08:00. Заголовок: Andrey пишет: В при..

Andrey пишет:

цитата:

В примере DEMOGDIP.exe перестал работать показ кнопки "Set cur"

Спасибо за подробное тестирование c_image.obj и RTFM

цитата:

И очень хотелось бы для таких подключений библиотек делать файлы проектов *.hbp

вообще-то, автор hbmk2 для "таких подключений библиотек" *.hbc файлы рекомендует

 Отправлено: 24.04.12 09:51. Заголовок: Петр пишет: вообще-..

Петр пишет:

цитата:

вообще-то, автор hbmk2 для "таких подключений библиотек" *.hbc файлы рекомендует

Можно и *.hbc

 Отправлено: 24.04.12 11:13. Заголовок: Петр пишет: Опублик..

Петр пишет:

цитата:

Опубликую здесь

Идея понятна - надо использовать GdiPlus.Dll вместо функции LoadImage() для вывода картинок из файлов в форматах, отличных от BMP.
Но в бинарной форме это можно рассматривать только в качестве примера

Замечание по поводу ошибки в примере Image_2 для файлов типа CUR и ICO. Проблема при частом обновлении этих картинок возникает только под WinXP. При работе в Win7 или Win98 этой проблемы не возникает

 Отправлено: 24.04.12 12:42. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Но в бинарной форме это можно рассматривать только в качестве примера

c_image.obj в стандартном режиме работы, без инициализации библиотеки gdi+, устраняет проблему разрушения памяти программы. К тому же, он позволяет вводить поддержку элементом управления Image формата PNG без перекомпиляции библиотеки, см. пример. Крайне полезная вещь для пользователей bcc55, в поставке которых нет gdiplus*.h (232 kB).
Ну и напоследок, я выложу код c_image.c после окончательной пришлифовки, т.е. более точного копирования поведения loadolepicture, с этим нет проблем.

 Отправлено: 24.04.12 12:55. Заголовок: Петр пишет: я вылож..

Петр пишет:

цитата:

я выложу код c_image.c после окончательной пришлифовка, т.е. более точного копирования поведения loadolepicture

Большое спасибо! Но тогда уже это будет включено в следующую сборку

 Отправлено: 24.04.12 17:54. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Но тогда уже это будет включено в следующую сборку

Нет вопросов, пока же для желающих - модифицированная версия c_image.c (non-GDI+)
click here

 Отправлено: 24.04.12 18:13. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Но тогда уже это будет включено в следующую сборку

Желательно отдельным примером и файл для сборки hbmk2 !

 Отправлено: 25.04.12 10:22. Заголовок: Петр пишет: модифиц..

Петр пишет:

цитата:

модифицированная версия c_image.c

Огромное спасибо за переработанный код: чувствуется рука профи!

Но я немного поправил, чтобы убрать предупреждение, которое выдает компилятор MinGW (см.ниже).

Скрытый текст

/*---------------------------------------------------------------------------- MINIGUI - Harbour Win32 GUI library source code Copyright 2002-2010 Roberto Lopez <harbourminigui@gmail.com> http://harbourminigui.googlepages.com/ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this software; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). As a special exception, you have permission for additional uses of the text contained in this release of Harbour Minigui. The exception is that, if you link the Harbour Minigui library with other files to produce an executable, this does not by itself cause the resulting executable to be covered by the GNU General Public License. Your use of that executable is in no way restricted on account of linking the Harbour-Minigui library code into it. Parts of this project are based upon: "Harbour GUI framework for Win32" Copyright 2001 Alexander S.Kresin <alex@belacy.belgorod.su> Copyright 2001 Antonio Linares <alinares@fivetech.com> www - http://harbour-project.org "Harbour Project" Copyright 1999-2012, http://harbour-project.org/ "WHAT32" Copyright 2002 AJ Wos <andrwos@aust1.net> "HWGUI" Copyright 2001-2009 Alexander S.Kresin <alex@belacy.belgorod.su> ---------------------------------------------------------------------------*/ #ifndef CINTERFACE #define CINTERFACE #endif #define _WIN32_IE 0x0500 #ifdef __POCC__ #define _WIN32_WINNT 0x0500 #else #define _WIN32_WINNT 0x0400 #endif #include <windows.h> #include <commctrl.h> #include "olectl.h" #include "hbapi.h" #include "hbapiitm.h" #include "hbinit.h" #include "hbvm.h" HBITMAP loadolepicture ( char *filename, int width, int height, HWND handle, int scalestrech, int whitebackground, int transparent ); LRESULT APIENTRY PictSubClassFunc ( HWND hwnd, UINT Msg, WPARAM wParam, LPARAM lParam ); static WNDPROC LabelOldWndProc; static BOOL read_image ( char *filename, DWORD *nFileSize, HGLOBAL *hMem ); static BOOL read_image_rsrc ( HINSTANCE hInstance, HRSRC hResInfo, HGLOBAL *hMem ); static void calc_rect ( HWND handle, int width, int height, int scalestrech, LONG lWidth, LONG lHeight, RECT *rect, RECT *rect2 ); HB_FUNC( INITIMAGE ) { HWND wndhandle; HWND wndparent = ( HWND ) hb_parnl( 1 ); int Style = WS_CHILD | SS_BITMAP; if( !hb_parl( 5 ) ) Style |= WS_VISIBLE; if( hb_parl( 6 ) || hb_parl( 7 ) ) Style |= SS_NOTIFY; wndhandle = CreateWindowEx( 0, "static", NULL, Style, hb_parni( 3 ), hb_parni( 4 ), 0, 0, wndparent, ( HMENU ) hb_parni( 2 ), GetModuleHandle( NULL ), NULL ); if( hb_parl( 7 ) ) LabelOldWndProc = ( WNDPROC ) SetWindowLong( wndhandle, GWL_WNDPROC, ( LONG ) PictSubClassFunc ); hb_retnl( ( LONG ) wndhandle ); } HB_FUNC( C_SETPICTURE ) { HBITMAP hBitmap; if( hb_parclen( 2 ) == 0 ) hb_retnl( ( LONG ) NULL ); hBitmap = loadolepicture( ( char * ) hb_parc( 2 ), hb_parni( 3 ), hb_parni( 4 ), ( HWND ) hb_parnl( 1 ), hb_parni( 5 ), hb_parni( 6 ), hb_parni( 7 ) ); if( hBitmap != NULL ) SendMessage( ( HWND ) hb_parnl( 1 ), ( UINT ) STM_SETIMAGE, ( WPARAM ) IMAGE_BITMAP, ( LPARAM ) hBitmap ); hb_retnl( ( LONG ) hBitmap ); } #define _OLD_STYLE 0 LRESULT APIENTRY PictSubClassFunc ( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam ) { TRACKMOUSEEVENT tme; static PHB_SYMB pSymbol = NULL; static BOOL bMouseTracking = FALSE; long int r = 0; #if _OLD_STYLE BOOL bCallUDF = FALSE; #endif if( Msg == WM_MOUSEMOVE || Msg == WM_MOUSELEAVE ) { if( Msg == WM_MOUSEMOVE ) { if( bMouseTracking == FALSE ) { tme.cbSize = sizeof( TRACKMOUSEEVENT ); tme.dwFlags = TME_LEAVE; tme.hwndTrack = hWnd; tme.dwHoverTime = HOVER_DEFAULT; if( _TrackMouseEvent( &tme ) == TRUE ) { #if _OLD_STYLE bCallUDF = TRUE; #endif bMouseTracking = TRUE; } #if _OLD_STYLE } else { bCallUDF = FALSE; #endif } } else { #if _OLD_STYLE bCallUDF = TRUE; #endif bMouseTracking = FALSE; } #if _OLD_STYLE if( bCallUDF == TRUE ) { #endif if( !pSymbol ) pSymbol = hb_dynsymSymbol( hb_dynsymGet( "OLABELEVENTS" ) ); if( pSymbol ) { hb_vmPushSymbol( pSymbol ); hb_vmPushNil(); hb_vmPushLong( ( LONG ) hWnd ); hb_vmPushLong( Msg ); hb_vmPushLong( wParam ); hb_vmPushLong( lParam ); hb_vmDo( 4 ); r = hb_parnl( -1 ); } #if _OLD_STYLE } #endif return ( r != 0 ) ? r : CallWindowProc( LabelOldWndProc, hWnd, 0, 0, 0 ); } return CallWindowProc( LabelOldWndProc, hWnd, Msg, wParam, lParam ); } #undef _OLD_STYLE HBITMAP loadolepicture ( char *filename, int width, int height, HWND handle, int scalestrech, int whitebackground, int transparent ) { UINT fuLoad = ( transparent == 0 ) ? LR_CREATEDIBSECTION : LR_CREATEDIBSECTION | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT; IStream *iStream; IPicture *iPicture = NULL; HGLOBAL hMem = ( HGLOBAL ) NULL; HRSRC hResInfo; HRESULT hr; DWORD nFileSize = 0; RECT rect, rect2; BITMAP bm; HBITMAP bitmap, bitmap2; LONG lWidth, lHeight; // TODO HINSTANCE hInstance = GetModuleHandle( NULL ); /* MSDN: An application must not delete a DC whose handle was obtained * by calling the GetDC function. * Instead, it must call the ReleaseDC function to free the DC */ HDC imgDC = GetDC( handle ); HDC tmpDC; HDC tmp2DC = ( HDC ) NULL; bitmap2 = ( HBITMAP ) LoadImage( hInstance, filename, IMAGE_BITMAP, 0, 0, fuLoad ); if( bitmap2 == NULL ) bitmap2 = ( HBITMAP ) LoadImage( NULL, filename, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE | fuLoad ); if( bitmap2 == NULL ) { hResInfo = FindResource( hInstance, filename, "JPG" ); if( hResInfo == NULL ) hResInfo = FindResource( hInstance, filename, "GIF" ); if( hResInfo == NULL ) { if( read_image( filename, &nFileSize, &hMem ) == FALSE ) { ReleaseDC( handle, imgDC ); return NULL; } } else if( read_image_rsrc( hInstance, hResInfo, &hMem ) == FALSE ) { ReleaseDC( handle, imgDC ); return NULL; } hr = CreateStreamOnHGlobal( hMem, TRUE, &iStream ); if( hr != S_OK || iStream == NULL ) { GlobalFree( hMem ); ReleaseDC( handle, imgDC ); return NULL; } #if defined( __cplusplus ) hr = OleLoadPicture( iStream, nFileSize, FALSE, IID_IPicture, ( LPVOID * ) &iPicture ); iStream->Release(); #else hr = OleLoadPicture( iStream, nFileSize, FALSE, &IID_IPicture, ( LPVOID * ) &iPicture ); iStream->lpVtbl->Release( iStream ); #endif if( hr != S_OK || iPicture == NULL ) { GlobalFree( hMem ); ReleaseDC( handle, imgDC ); return NULL; } iPicture->lpVtbl->get_Width( iPicture, &lWidth ); iPicture->lpVtbl->get_Height( iPicture, &lHeight ); } else { GetObject( bitmap2, sizeof( BITMAP ), &bm ); lWidth = bm.bmWidth; lHeight = bm.bmHeight; tmp2DC = CreateCompatibleDC( imgDC ); SelectObject( tmp2DC, bitmap2 ); } calc_rect( handle, width, height, scalestrech, lWidth, lHeight, &rect, &rect2 ); tmpDC = CreateCompatibleDC( imgDC ); bitmap = CreateCompatibleBitmap( imgDC, width, height ); SelectObject( tmpDC, bitmap ); if( whitebackground == 1 ) FillRect( tmpDC, &rect2, ( HBRUSH ) GetStockObject( WHITE_BRUSH ) ); else FillRect( tmpDC, &rect2, ( HBRUSH ) GetSysColorBrush( COLOR_BTNFACE ) ); if( iPicture != NULL ) { iPicture->lpVtbl->Render( iPicture, tmpDC, rect.left, rect.top, rect.right, rect.bottom, 0, lHeight, lWidth, -lHeight, NULL ); iPicture->lpVtbl->Release( iPicture ); GlobalFree( hMem ); } else { StretchBlt( tmpDC, rect.left, rect.top, rect.right, rect.bottom, tmp2DC, 0, 0, lWidth, lHeight, SRCCOPY ); DeleteDC( tmp2DC ); DeleteObject( bitmap2 ); } ReleaseDC( handle, imgDC ); DeleteDC( tmpDC ); return bitmap; } static BOOL read_image ( char *filename, DWORD *nFileSize, HGLOBAL *hMem ) { HANDLE hFile; LPVOID lpDest; DWORD nSize, nRead; hFile = CreateFile( filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL ); if( hFile == INVALID_HANDLE_VALUE ) return FALSE; nSize = GetFileSize( hFile, NULL ); if( nSize == INVALID_FILE_SIZE || ( *hMem = GlobalAlloc( GHND, nSize ) ) == NULL ) { CloseHandle( hFile ); return FALSE; } *nFileSize = nSize; lpDest = GlobalLock( *hMem ); if( lpDest == NULL ) { GlobalFree( *hMem ); CloseHandle( hFile ); return FALSE; } if( ReadFile( hFile, lpDest, nSize, &nRead, NULL ) == FALSE ) { GlobalUnlock( *hMem ); GlobalFree( *hMem ); CloseHandle( hFile ); return FALSE; } GlobalUnlock( *hMem ); CloseHandle( hFile ); return TRUE; } static BOOL read_image_rsrc ( HINSTANCE hInstance, HRSRC hResInfo, HGLOBAL *hMem ) { HGLOBAL hRes; DWORD nSize; LPVOID lpRes, lpDest; hRes = LoadResource( hInstance, hResInfo ); if( hRes == NULL ) return FALSE; nSize = SizeofResource( hInstance, hResInfo ); lpRes = LockResource( hRes ); if( lpRes == NULL || ( *hMem = GlobalAlloc( GHND, nSize ) ) == NULL ) { FreeResource( hRes ); return FALSE; } lpDest = GlobalLock( *hMem ); if( lpDest == NULL ) { GlobalFree( *hMem ); FreeResource( hRes ); return FALSE; } CopyMemory( lpDest, lpRes, ( SIZE_T ) nSize ); GlobalUnlock( *hMem ); FreeResource( hRes ); return TRUE; } static void calc_rect ( HWND handle, int width, int height, int scalestrech, LONG lWidth, LONG lHeight, RECT *rect, RECT *rect2 ) { if( ( width == 0 ) & ( height == 0 ) ) GetClientRect( handle, rect ); else SetRect( rect, 0, 0, width, height ); SetRect( rect2, 0, 0, rect->right, rect->bottom ); if( scalestrech == 0 ) { if( ( int ) lWidth * rect->bottom / lHeight <= rect->right ) rect->right = ( int ) lWidth * rect->bottom / lHeight; else rect->bottom = ( int ) lHeight * rect->right / lWidth; } rect->left = ( int ) ( width - rect->right ) / 2; rect->top = ( int ) ( height - rect->bottom ) / 2; }

 Отправлено: 27.04.12 17:45. Заголовок: Петр пишет: Работа..

Петр пишет:

цитата:

Работает, и следующий раз, пожалуйста, пишите в правильной ветке, которую, к тому же, сами и создали - примеры, ошибки и т.д.

Да, точно работает... Это глюк инета у меня был....

 Отправлено: 11.06.12 16:40. Заголовок: Вопрос возник такой:..

Вопрос возник такой:

Есть главное окно программы Form_1, делаю:

MINIMIZE WINDOW Form_1
Inkey(60)
RESTORE WINDOW Form_1

Программа успешно "скидывается" на панель задач, но мышкой (если юзер захочет) поднять ее невозможно !!!

Что нужно использовать вместо INKEY() или нужно по другому делать ?

 Отправлено: 11.06.12 16:53. Заголовок: Andrey пишет: Что н..

Andrey пишет:

цитата:

Что нужно использовать вместо INKEY() или нужно по другому делать ?

А какова цель вообще ? ;)
Ну скинул ее на панель задач и хорошо. Мешает что ли ? На фига туда еще и задержку лепить.....:)

 Отправлено: 11.06.12 17:36. Заголовок: Dima пишет: Ну скин..

Dima пишет:

цитата:

Ну скинул ее на панель задач и хорошо. Мешает что ли ? На фига туда еще и задержку лепить.....:)

Ну хотелось бы чтоб через минуту "поднялась" программа... Для дальнейших действий юзера.
И как сделать чтоб эта программа была "под" запущенной программой - типа SW_SHOWNOACTIVATE ???

 Отправлено: 11.06.12 18:25. Заголовок: Я представляю шок юз..

Я представляю шок юзера, у которого сначала улетает, а потом откуда не возьмись появляется окно..

MINIMIZE WINDOW Form_1
создать событие таймера с интервалом 60 сек.

в событии проверить, распахнуто или нет окно, если нет
RESTORE WINDOW

грохнуть таймер.

 Отправлено: 11.06.12 19:59. Заголовок: Петр пишет: MINIMIZ..

Петр пишет:

цитата:

MINIMIZE WINDOW Form_1 создать событие таймера с интервалом 60 сек. в событии проверить, распахнуто или нет окно, если нет RESTORE WINDOW грохнуть таймер.

Не знаю как "создать событие таймера" ?
Петр, набросай пожалуйста примерный код, (я пока только осваиваю Минигуи) !
Или ткни в пример где это делается...

 Отправлено: 11.06.12 21:19. Заголовок: Andrey Пошукай по п..

Andrey
Пошукай по примерам "DEFINE TIMER"

 Отправлено: 12.06.12 13:49. Заголовок: Dima пишет: Пошукай..

Dima пишет:

цитата:

Пошукай по примерам "DEFINE TIMER"

Спасибо БОЛЬШОЕ Дима ! Нашел !

 Отправлено: 12.06.12 13:54. Заголовок: Видимость переменных..

Видимость переменных или как сделать следующее ?

Имею код:
FUNCTION Main()
Local hWnd, nI, cTask, cButt, cMess
Local aButton := {}
AADD( aButton, {170, 20,170,35,'Menu 1','Task-1'} )
AADD( aButton, {220, 20,170,35,'Menu 2','Task-2'} )
AADD( aButton, {270, 20,170,35,'Menu 3','Task-3'} )
AADD( aButton, {320, 20,170,35,'Menu 4','Task-4'} )
AADD( aButton, {170,230,170,35,'Menu 5','Task-5'} )
AADD( aButton, {220,230,170,35,'Menu 6','Task-6'} )
AADD( aButton, {270,230,170,35,'Menu 7','Task-7'} )
......................

FOR nI := 1 TO LEN(aButton)
cButt := "RUN"+LTRIM(STR(nI))
cMess := 'Command: ShellExecute( , "open", "TaskTest2.exe", ..... )'
cTask := aButton[nI,6]
DEFINE BUTTON &cButt
ROW aButton[nI,1]
COL aButton[nI,2]
WIDTH aButton[nI,3]
HEIGHT aButton[nI,4]
CAPTION aButton[nI,5]
ACTION { || ExecTask(cTask,hWnd) }
TOOLTIP cMess
FONTNAME "MS Sans serif"
FONTSIZE 14
FONTBOLD .t.
LEFTTEXT .t.
BACKCOLOR WHITE
END BUTTON
NEXT

Так вот, при вызове ExecTask(cTask,hWnd) - cTask всегда возвращает последний элемент массива ...
Почему ?
Как нужно правильно сделать ?

Полный пример здесь: http://files.mail.ru/SNQMZ9

 Отправлено: 14.06.12 16:06. Заголовок: Andrey пишет: при в..

Andrey пишет:

цитата:

при вызове ExecTask(cTask,hWnd) - cTask всегда возвращает последний элемент массива ... Как нужно правильно сделать ?

Отправил исправленный рабочий вариант по почте

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

gfilatov2002 пишет:

цитата:

Отправил исправленный рабочий вариант по почте

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

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

Разбираюсь с чужим рабочим кодом... Вот выдержка из него:
Скрытый текст

kol_button := Len( arr_menu_button ) AAdd( arr_kol_button, kol_button ) ......... font_button := { "Times Roman", 12, .T., { 155, 155, 155 }, { 155, 0, 0 }, { 200, 200, 200 }, { 50, 50, 50 } } font_button := chk_font( font_button, 1 ) font_marker_button := { "Times Roman", 12, .T., { 155, 155, 155 }, { 155, 0, 0 }, { 200, 200, 200 }, { 50, 50, 50 } } font_marker_button := chk_font( font_marker_button, 1 ) FOR i_button := 1 TO kol_button nam_exe_button := "act_exe_but0" + IIF(i_page<10, Str( i_page, 1 ), Str( i_page, 2 ) ) + AllTrim( Str( i_button, 2 ) ) PRIVATE &nam_exe_button IF Len( arr_menu_button[ i_button ] ) > 9.and. ! Empty( arr_menu_button[ i_button, 10 ] ) &nam_exe_button := arr_menu_button[ i_button, 10 ] ELSE &nam_exe_button := "" ENDIF AAdd( curs_arr_size[ i_page, 3 ], &nam_exe_button ) IF i_button == 1 AAdd( curs_arr_size[ i_page, 4 ], 1 ) //i_button max_button := 1//i_button ELSE IF arr_menu_button[ i_button, 1 ] > arr_menu_button[ max_button, 1 ] + arr_menu_button[ max_button, 4 ] AAdd( curs_arr_size[ i_page, 4 ], i_button ) max_button := i_button ENDIF ENDIF image_ch1 := "CH2Image_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) PRIVATE &image_ch1 &image_ch1 := AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) DEFINE BUTTONEX &( "ButtonEX_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) ) // PICTURE arr_menu_button[i_button,7]//choice_bmp1 ICON arr_menu_button[ i_button, 7 ] //choice_bmp1 Row arr_menu_button[ i_button, 1 ] + 25 Col arr_menu_button[ i_button, 2 ] WIDTH arr_menu_button[ i_button, 4 ] HEIGHT arr_menu_button[ i_button, 3 ] BACKCOLOR BROWN //для расцветки по градиенту, иначе не работает FONTSIZE 12//&(font_button[2]) VERTICAL .T. ADJUST .F. ACTION ( Sect_Run_Tasks( &nam_exe_button ), Form_1.Setfocus, form_graph_tab() ) END BUTTONEX //MsgInfo(Conv_Profile(nam_exe_button)) Form_1. & ( "ButtonEX_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) ) .cargo := arr_menu_button[ i_button ] // Название задачи DEFINE LABEL &( "Label_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) ) Row arr_menu_button[ i_button, 1 ] + arr_menu_button[ i_button, 3 ] + 25 drab_y := ( arr_menu_button[ i_button, 6 ] - arr_menu_button[ i_button, 4 ] ) / 2 rab_y := arr_menu_button[ i_button, 2 ] - drab_y IF rab_y < 0 rab_y := 2 ENDIF Col rab_y WIDTH arr_menu_button[ i_button, 6 ] HEIGHT arr_menu_button[ i_button, 5 ] FONTNAME font_button[ 1 ] FONTSIZE font_button[ 2 ] FONTBOLD font_button[ 3 ] FONTCOLOR font_button[ 4 ] BACKCOLOR font_button[ 5 ] VERTICAL .T. CENTERALIGN .T. ADJUST .F. ONMOUSEHOVER { || ch_property( &image_ch1, .F. ), s_form_graph_tab() } ONMOUSELEAVE { || ch_property( &image_ch1, .T. ), s_form_graph_tab() } VALUE AtRepl( ";", arr_menu_button[ i_button, 9 ], Chr( 10 ) ) //"Кнопка " +str(i_page,3) +str(i_button,3) ACTION { || Sect_Run_Tasks( &nam_exe_button ), form_graph_tab() } END LABEL Form_1. & ( "Label_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) ) .cargo := { font_button, font_marker_button } NEXT // FOR i_button := 1 TO kol_button

Подскажите как нужно правильно писать код в таких случаях ?

 Отправлено: 15.06.12 10:07. Заголовок: Что за программа ? В..

Что за программа ? Всю выложить можешь?

 Отправлено: 18.06.12 17:15. Заголовок: Andrey пишет: PRIVA..

Andrey пишет:

цитата:

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

Да, если они связаны с использованием макро-переменных.

Andrey пишет:

цитата:

Подскажите как нужно правильно писать код в таких случаях ?

О каких случаях идет речь

 Отправлено: 18.06.12 19:01. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

О каких случаях идет речь

Объявление переменных в цикле, т.е. на ходу ?
FOR i_button := 1 TO kol_button
nam_exe_button := "act_exe_but0" + IIF(i_page<10, Str( i_page, 1 ), Str( i_page, 2 ) ) + AllTrim( Str( i_button, 2 ) )

PRIVATE &nam_exe_button
......
AAdd( curs_arr_size[ i_page, 3 ], &nam_exe_button )
........
ACTION ( Sect_Run_Tasks( &nam_exe_button ), Form_1.Setfocus, form_graph_tab() )
................
NEXT

или

FOR i_button := 1 TO kol_button
...........
image_ch1 := "CH2Image_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) )
PRIVATE &image_ch1
&image_ch1 := AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) )
DEFINE BUTTONEX &( "ButtonEX_" + AllTrim( Str( i_page, 3 ) ) + AllTrim( Str( i_button, 3 ) ) )
// PICTURE arr_menu_button[i_button,7]//choice_bmp1
ICON arr_menu_button[ i_button, 7 ] //choice_bmp1
Row arr_menu_button[ i_button, 1 ] + 25
Col arr_menu_button[ i_button, 2 ]
WIDTH arr_menu_button[ i_button, 4 ]
HEIGHT arr_menu_button[ i_button, 3 ]
BACKCOLOR BROWN //для расцветки по градиенту, иначе не работает
FONTSIZE 12//&(font_button[2])
VERTICAL .T.
ADJUST .F.
ACTION ( Sect_Run_Tasks( &nam_exe_button ), Form_1.Setfocus, form_graph_tab() )
END BUTTONEX
...........
NEXT
Да Клипер и Харбор позволяет такое делать.
А как же общие рекомендации - объявлять все переменные в начале функции.
Какие последствия бывают за это ? Ну скорость может чуток падает или еще что-то есть ?
Код рабочий, работает... Но по моему не читаемый.
Как правильно оформить его ?
Я для себя хочу понять, как правильно писать на МиниГуи...

Извиняюсь за свое косноязычие....

 Отправлено: 18.06.12 21:08. Заголовок: Andrey пишет: Объяв..

Andrey пишет:

цитата:

Объявление переменных в цикле

Вопрос понятен.
Посмотрите, как это сделано в коде библиотеки без использования частных переменных:

цитата:

FOR nJ := 1 TO nMax(aData) cName := "yVal_Name_"+Ltrim(Str(nJ)) @ nBottom + 8, nI - IF(l3D, nDeep, nDeep + 8) LABEL &cName OF &parent; VALUE aYVals[nJ] AUTOSIZE; FONTCOLOR aClrFore; BACKCOLOR IF( lPrint, WHITE, aClrBack ); FONT _HMG_DefaultFontName SIZE _HMG_DefaultFontSize-1 nI += nWideB NEXT

 Отправлено: 18.06.12 23:55. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Посмотрите, как это сделано в коде библиотеки без использования частных переменных:

Спасибо БОЛЬШОЕ !

 Отправлено: 10.07.12 21:09. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Петр пишет: цитата: я выложу код c_image.c после окончательной пришлифовка, т.е. более точного копирования поведения loadolepicture Большое спасибо! Но тогда уже это будет включено в следующую сборку

А где в новой версии этот пример ?

 Отправлено: 11.07.12 10:25. Заголовок: Andrey пишет: А где..

Andrey пишет:

цитата:

А где в новой версии этот пример ?

Нету
Увы, так и не получил от Петра обещанный отшлифованный код c_image.c

 Отправлено: 11.07.12 11:15. Заголовок: Григорий, а где можн..

Григорий, а где можно посмотреть примеры вывода иконок на окно из ресурсов или файлов ?
Так как иконки не имеют фона, то их можно выводить на форму - пока вместо PNG файлов.
Только как выводить иконки без кнопок ?
Пример: MiniGUI\SAMPLES\BASIC\ButtonEx - не подходит.

 Отправлено: 11.07.12 11:25. Заголовок: Andrey пишет: где м..

Andrey пишет:

цитата:

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

Посмотри, например, пример в папке samples\Advanced\IcoView