On-line:гостей 5. Всего: 5 [подробнее..]
АвторСообщение
постоянный участник




Пост 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.



Спасибо: 0 
ПрофильЦитата Ответить
Ответов -123 ,стр: 1 2 3 4 5 6 7 All [только новые]





Пост N:3028
Зарегистрирован:17.02.12
ссылка на сообщение  Отправлено:07.02.20 11:15.Заголовок:rvu пишет Так если п..


rvu пишет
 цитата:
Так если пробел все равно добавлять, то с ним и так работает. Вот заменил вообще на поле БД:


Я предлагал разделить создание контролов и заполнение их данными в разные процедуры, т.е.
 
DEFINE WINDOW Form1 ...
Label_Crt()
END WINDOW
ACTION WINDOW Form1 ON INIT {|| Label_Val() } // или в ON INIT окна или ставим в :Event(1, {|| Label_Val() }), активируя сообщением
...
STAT FUNC Label_Crt()
...
@ 10,10 LABEL NAME VALUE ' ' WIDTH 1500 VCENTERALIGN
...
RETU Nil

STAT FUNC Label_Val()
LOCAL cAls := 'BASECONFIG'
...
This.NAME.Value := Trim( (cAls)->NAME )+' '
* Form1.NAME.Value := Trim( (cAls)->NAME )+' ' // или такую форму записи
...
RETU Nil

Вызывая Label_Val() повторно (изменив поле NAME) производите переотображение Label NAME
Добавление пробела слева смещает текст отображения вправо на ширину пробела в пикселях, т.е. сменили координату X у лабел

Спасибо: 1 
ПрофильЦитата Ответить





Пост N:216
Зарегистрирован:05.11.05
ссылка на сообщение  Отправлено:07.02.20 11:25.Заголовок:SergKis пишет: Доба..


SergKis пишет:

 цитата:
Добавление пробела слева смещает текст отображения вправо на ширину пробела в пикселях, т.е. сменили координату X у лабел



Это понятно.

SergKis пишет:

 цитата:
Я предлагал разделить создание контролов и заполнение их данными в разные процедуры



Может быть это и правильно. Будет побольше времени надо будет попробовать. Спасибо за идею!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N:6576
Зарегистрирован:12.09.06
ссылка на сообщение  Отправлено:07.02.20 16:31.Заголовок:Запускаю прогу на Ми..


Запускаю прогу на МиниГуи.
На форме есть таймер.
        DEFINE TIMER Timer_1 ; 
INTERVAL (StaticTimeUpdate * 100) * 1000 ACTION OperatUsers2()
....
// Функция чтения всех работающих в журнале программы / заглушка
Function OperatUsers2()
LOCAL nSel := SELECT()
? "Timer всех работающих в программе !", TIME(), ProcNameLine(0)
Form_Main.Label_0.Value := "+" + TIME()
SELECT(nSel)
RETURN NIL

После запуска проги, в Фаре работать нельзя, отрубаются клавиши.
Запускаю TeamViewer, пытаюсь набрать пароль в нём, пароль неверен.
Закрываю прогу на МиниГуи - всё прекрасно начинает работать.

Что то с таймером беда... Или опять я нахимичил ....

Спасибо: 0 
ПрофильЦитата Ответить
Ответов -123 ,стр: 1 2 3 4 5 6 7 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
-участник сейчас на форуме
-участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 494
Права: смайлыда,картинкида,шрифтыда,голосованиянет
аватарыда,автозамена ссылоквкл,премодерацияоткл,правканет