| Автор | Сообщение |
|
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 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.
|
 |
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4598
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.15 18:58. Заголовок: Как правильно поднят..
Как правильно поднять EXCEL и оставить его на экране в МиниГуи ? Т.е. я создаю файл EXCEL переключаюсь на него и нужно остаться в EXCEL-е. А у меня управление возвращается на мою программу и она выходит на первый план. .....
hWnd := oExcel:hWnd
ShowWindow( hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop( hWnd )
// вот здесь в терминалке я ставил INKEY(0) и было для юзера удобно ! // Что поставить для МиниГуи ?
RETURN NIL |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4601
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.12.15 17:04. Заголовок: Всем привет ! Непоня..
Всем привет ! Непонятка одна... Читаем доку: @ <nRow> ,<nCol> GETBOX <ControlName> ..... [ NOBORDER ] Классный вид, т.е. привычный юзеру. А если я хочу включить "бордюр" для уже выведенного объекта на форме ? SetProperty( ..., ..., "NoBorder" , .F./.T. ) SetProperty( ..., ..., "Border" , .F./.T. ) - не работает... |
|
|
|
Dima
|
| |
Пост N: 5403
Зарегистрирован: 17.05.05
|
|
Отправлено: 12.12.15 17:34. Заголовок: Andrey пишет: SetPr..
Andrey пишет: | цитата: | | SetProperty( ..., ..., "NoBorder" , .F./.T. ) |
|
Может включить надо так ? SetProperty( ..., ..., "NoBorder" , .F. ) |
|
|
|
Haz
|
| |
Пост N: 714
Зарегистрирован: 20.02.11
|
|
Отправлено: 12.12.15 19:28. Заголовок: Dima пишет: Может в..
Dima пишет: | цитата: | Может включить надо так ?
SetProperty( ..., ..., "NoBorder" , .F. ) |
|
Дима, так скорее не получится. думаю надо стиль окна Getbox менять. Во всяком случае проперти GetBoх сделать это не позволяют ( в исходниках нет такой возможности ). |
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 863
Зарегистрирован: 11.02.10
|
|
Отправлено: 12.12.15 19:53. Заголовок: Haz пишет: надо сти..
Haz пишет: | цитата: | | надо стиль окна Getbox менять |
|
С этим засада - стиль WS_BORDER не будет устанавливаться после определения контрола (по-видимому, ограничение WinAPI). Поэтому можно решить "в лоб" эту задачу таким образом (см. ниже) Скрытый текст
/*
* MINIGUI - Harbour Win32 GUI library Demo
*
*/
#include "minigui.ch"
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 300 ;
TITLE "MiniGUI GetBox Demo" ;
MAIN ;
FONT "Arial" SIZE 10
@ 030,30 GETBOX GetBox_1 VALUE "Input value" WIDTH 200 TOOLTIP "GetBox 1" NOBORDER
@ 110,30 BUTTONEX BUTTON_1 ;
CAPTION "Set Border" ;
ACTION SetBorderStyle( 'GetBox_1','Form_1' );
WIDTH 80 ;
HEIGHT 28
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
Function SetBorderStyle( Control, Form )
Local v := _GetValue( Control, Form )
_ReleaseControl( Control, Form )
@ 030,30 GETBOX &Control OF &Form VALUE v WIDTH 200 TOOLTIP Control
Form_1.BUTTON_1.Enabled := .F.
return .t.
|
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4602
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.12.15 21:02. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: | цитата: | С этим засада - стиль WS_BORDER не будет устанавливаться после определения контрола (по-видимому, ограничение WinAPI).
Поэтому можно решить "в лоб" эту задачу таким образом (см. ниже) |
|
Спасибо БОЛЬШОЕ Григорий !  Эх, опять кучу текста переделывать нужно.... |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4603
Зарегистрирован: 12.09.06
|
|
Отправлено: 13.12.15 14:05. Заголовок: Привет всем ! Можно ..
Привет всем ! Можно ли заранее определить какой ПОСЛЕДНИЙ тип окна уже открыт ? Т.е. если последнее окно у меня открыто MODAL, то при открытии из него другого типа окна кроме MODAL приводит программу к ошибке и закрытию программы... Или можно поступить как то по другому в этом случае ? |
|
|
|
Haz
|
| |
Пост N: 715
Зарегистрирован: 20.02.11
|
|
Отправлено: 13.12.15 14:23. Заголовок: Andrey пишет: Или м..
Andrey пишет: | цитата: | | Или можно поступить как то по другому в этом случае ? |
|
Можно не открывать из модального окна немодальные. Не понятно зачем самому себе раскладывать грабли ? ЗЫ в минигуи есть псевдопеременная _HMG_IsModalActive, она устанавливается при активации модального окна. См. исходники |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 838
Зарегистрирован: 17.02.12
|
|
Отправлено: 13.12.15 14:41. Заголовок: Andrey пишет:Можно л..
Andrey пишет: | цитата: | | Можно ли заранее определить какой ПОСЛЕДНИЙ тип окна уже открыт ? |
|
GetWindowType ( FormName ) - даст тип окна посмотри содержимое: aEval(_HMG_aFormNames, {|n,i| MsgDebug(i, n, _HMG_aFormType [ i ], _HMG_aFormActive [ i ]) }) |
|
|
|
Haz
|
| |
Пост N: 716
Зарегистрирован: 20.02.11
|
|
Отправлено: 13.12.15 14:49. Заголовок: Andrey пишет: какой..
Andrey пишет: В данном контексте вопрос звучит странно . т.к если открыто модальное окно - ПОСЛЕДНИМ может быть ТОЛЬКО модальное "Non Modal Window can't be activated when a Modal window is active." |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4604
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.12.15 03:04. Заголовок: А можно сделать функ..
Всем доброй ночи ! А можно сделать функцию, которая бы показывалась ВЕЗДЕ при нажатии комбинаций клавиш ? Попробовал сделать как в примере SAMPLES\Applications\FOCUS_IT, но у меня в других окнах эти клавиши не срабатывают.... Но может я тест простой написал ? ОДНО окно (CHILD и MODAL) без других объектов... |
|
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4615
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.12.15 16:02. Заголовок: Привет всем ! Как сд..
Привет всем ! Как сделать конструкцию из терминалки nKey := INKEY(nTime) в МиниГуи ? ? LASTKEY(nKey) Можно так сделать nKey := INKEYGUI(nTime*1000) ? Или INKEYGUI() ничего не возвращает ? |
|
|
|
Haz
|
| |
Пост N: 727
Зарегистрирован: 20.02.11
|
|
Отправлено: 17.12.15 16:26. Заголовок: Andrey пишет: Или I..
Andrey пишет: | цитата: | | Или INKEYGUI() ничего не возвращает ? |
|
Посмотри в C:\MiniGUI\Doc\ChangeLog.txt что возвращает |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4625
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.12.15 13:07. Заголовок: http://f1.s.qip.ru/~..
 Почему не всегда показывается картинка на форме ? У меня показывает, на Win2008 нет... |
|
|
|
Dima
|
| |
Пост N: 5418
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.12.15 14:10. Заголовок: Andrey пишет: У мен..
Andrey пишет: На футболке ?  Хоть бы код показал которым выводишь пикчу , по ходу если дергаешь ее из файла то скорее всего забыл его сложить на сервант 2008. |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4626
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.12.15 14:41. Заголовок: Вот код: FUNCTION W..
Вот код: FUNCTION WinOpenDbf( cTitle )
.....
DEFINE WINDOW Form_TrsfDbf ;
.....
WINDOWTYPE MODAL ;
NOSHOW ;
@ 30, (nWidth-nImgWidth)/2 IMAGE Image_1 ;
PICTURE cImgRes ;
WIDTH nImgWidth ;
HEIGHT nImgHeight
....
Form_TrsfDbf.Center
Activate Window Form_TrsfDbf NoWait
ProcessMessages() // ОБЯЗАТЕЛЬНО ! Чтобы форма ОБНОВИЛАСЬ !
Form_TrsfDbf.Hide // скрыть окно
RETURN aRet Строю скрытое окно, а там дальше проверяю, если нужно показать, то делаю domethod("Form_TrsfDbf","Show") // показать окно и включаю бегунки... Ресурсы все в ехе-нике. У меня Win8.1 и у других нормально. А на Win2008 сбоит и то не всегда. Что ещё можно сделать для прорисовки картинки ? |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4627
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.12.15 16:18. Заголовок: А как подключить рус..
А как подключить русский язык для архиватора zip из библиотеки Минигуи ? Дело в том что русские имена файлов в архиве становятся кракозябами... Использую оператор: COMPRESS aFiles ;
TO cBackupZip ;
BLOCK { | cFile, nPos | ProgressUpdate( nPos, cFile, aSizeFiles, .T. ) } ;
LEVEL 7 ;
OVERWRITE ;
STOREPATH ;
FILEPROGRESS { | nPos, nTotal | ProgressFile( nPos, nTotal, .T. ) } ;
RESULT lSuccess
|
|
|
|
Dima
|
| |
Пост N: 5443
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.12.15 17:04. Заголовок: Andrey пишет: А как..
Andrey пишет: | цитата: | | А как подключить русский язык для архиватора zip из библиотеки Минигуи ? |
|
Самодостаточный пример сюда сложи. PS Русский язык указывается заданием "нужной" кодовой страницы. |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4633
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.12.15 02:12. Заголовок: Dima пишет: Самодос..
Dima пишет: | цитата: | | Самодостаточный пример сюда сложи. |
|
Сделал и выложил. В папке \FR3\ файлы с русскими буквами. Файл с русскими буквами преобразуется в архиве кракозябами... https://cloud.mail.ru/public/8MDq/upmSqF2xn |
|
|
|
Haz
|
| |
Пост N: 742
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.12.15 12:13. Заголовок: Andrey пишет: Файл ..
Andrey пишет: | цитата: | | Файл с русскими буквами преобразуется в архиве кракозябами... |
|
Андрей , имена файлов в ZIP-архиве хранятся в кодировке DOS, соответствующей языку локали. это СТАНДАРТ для понимания -> http://www.opennet.ru/tips/info/2494.shtml т.к. в самой библе минизип нет установки нужной OEM кодировки нужно обеспечить выполнение архивирования в кодовой странице "RU866" для русского языка проблему с именами ВНУТРИ архива это решит, но появится новая - GUI интерфейс работает не в OEM  так что придется еще и кой какой вывод транслировать в ANSI |
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума