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

 Отправлено: 24.02.15 22:53. Заголовок: Haz пишет: а Перед ..

Haz пишет:

цитата:

а Перед DRAW в custom progress вставь строку SetProperty( cWindowName, "Label_1", "Width", nFinishCol )

Сделал пример по твоему совету ! То что надо ! Классно работает !!!
И даже не "мельтешит" ....


Dima пишет:

цитата:

Не оно ?

Да нет...

Как получить вот такую заливку как в Tbrowse:


oBrw:SetColor( { 4 }, { { || { RGB(43,149,168), RGB(0,54,94) } } } ) // 4 , цвет фона шапка таблицы

Как сделать такую же заливку на объектах: LABEL или BUTTONEX ?

 Отправлено: 25.02.15 11:03. Заголовок: Andrey пишет: BUTTO..

Andrey пишет:

цитата:

BUTTONEX

Что касается кнопок ....
у тебя это есть ?
C:\MiniGUI\SAMPLES\Advanced\ExpButton\

 Отправлено: 25.02.15 11:27. Заголовок: рабочий пример на ос..

рабочий пример на основе TSBROWS
#include "minigui.ch"
#include "tsbrowse.ch"


Procedure Main()

DEFINE WINDOW Form1 AT 0,0 WIDTH 840 HEIGHT 480 TITLE "TsBrowse Progressbar Test" MAIN FONT 'Tahoma' SIZE 9
END WINDOW

DEFINE TBROWSE oBrw1 AT 60,10 OF Form1 WIDTH 800 HEIGHT 21 FONT "Verdana" SIZE 9 GRID
END TBROWSE

oBrw1:SetArray( {{''}} , .T.)
oBrw1:nHeightCell := oBrw1:nHeight-1
oBrw1:nHeightHead := 0
oBrw1:lNoVScroll := .T.
oBrw1:lNoHScroll := .T.


oBrw1:aColumns[1]:nAlign := DT_CENTER
oBrw1:SetColor( { 5 }, { RGB(255,255,255) } )
oBrw1:SetColor( { 2 }, { { Rgb( 255, 250, 205 ), Rgb( 200, 200, 200 ) } } )
oBrw1:SetColor( { 6 }, { { RGB( 43, 149, 168 ), RGB( 0, 74, 104 )} } )


DEFINE TIMER Timer_1 OF Form1 INTERVAL 100 ACTION TimerProc()

ACTIVATE WINDOW Form1

Return Nil


Func TimerProc()
IF oBrw1:aColSizes[1] < oBrw1:nWidth
oBrw1:aColumns[ 1 ]:nWidth := oBrw1:aColSizes[1] + 5
oBrw1:aColSizes[ 1 ] := oBrw1:aColSizes[1] + 5
oBrw1:aArray[ 1, 1 ] := Ntoc(oBrw1:aColSizes[1])
oBrw1:Refresh(.F.)
END
Return nil

 Отправлено: 25.02.15 13:00. Заголовок: Haz пишет: рабочий ..

Haz пишет:

цитата:

рабочий пример на основе TSBROWS

Пример классный ! Нужно бы в библиотеку примеров поставить...
Такой и не придумаешь сам...

Haz пишет:

цитата:

Что касается кнопок .... у тебя это есть ? C:\MiniGUI\SAMPLES\Advanced\ExpButton\

Да есть. Смотрел его и ранее... Но как любит писать Дима - очень много букв...
Слишком много вариантов, которые не нужны сейчас и не подходят (не то) для:
oBrw:SetColor( { 4 }, { { || { RGB(43,149,168), RGB(0,54,94) } } } ) // 4 , цвет фона шапка таблицы

Попроще нет примера ?

 Отправлено: 25.02.15 13:50. Заголовок: Andrey пишет: Попро..

Andrey пишет:

цитата:

Попроще нет примера ?

Можешь кнопку из TSBrowse сделать из заголовка - он поддерживает визуальный клик и будет именно oBrw:SetColor( { 4 }, { { || { RGB(43,149,168), RGB(0,54,94) } } } )

 Отправлено: 25.02.15 20:58. Заголовок: Не, мне кнопку не на..

Не, мне кнопку не надо. Надо получить заливку как TSBrowse.
Посмотрел исходник, ничего не понял как оттуда вытащить заливку....

 Отправлено: 25.02.15 21:46. Заголовок: Andrey пишет: Надо ..

Andrey пишет:

цитата:

Надо получить заливку как TSBrowse.

нарисуй ее в любой графике и поставь как паттерн на кнопку

 Отправлено: 25.02.15 21:48. Заголовок: Haz пишет: поставь..

Haz пишет:

цитата:

поставь как паттерн на кнопку

Это как ?

 Отправлено: 25.02.15 22:50. Заголовок: Andrey пишет: Это к..

Andrey пишет:

цитата:

Это как ?

Андрей, ты издеваешься
у buttonEx есть пропертя Picture...
1 рисуешь в граф редакторе свою кнопку с какой хош заливкой на весь размер,
2 сохраняешь ее как bmp
3 DEFINE BUTTONEX Button_1
...
PICTURE "Image_1.bmp"
...
END BUTTONEX

4 по желанию используешь On MOUSEHOVER и MOUSELEAVE для смены картинки

 Отправлено: 26.02.15 00:17. Заголовок: Haz пишет: Андрей, ..

Haz пишет:

цитата:

Андрей, ты издеваешься

Нисколько. У меня не получилось растянуть картинку на всю кнопку.
Если задаю глупые вопросы, прошу не обижаться !
Не получилось что-то вот и задаю....
Буду пробовать тогда еще раз.

 Отправлено: 26.02.15 14:32. Заголовок: продолжу про прогрес..

продолжу про прогрессбар из TsBrows

с удивлением обнаружил если в градиентной заливке ВТОРОЙ цвет сделать отрицательным - то градиент из вертикального стоновится горизонтальным ..... сижу гадаю

вот пример

#include "minigui.ch"
#include "tsbrowse.ch"


Procedure Main()

DEFINE WINDOW Form1 AT 0,0 WIDTH 840 HEIGHT 200 TITLE "TsBrowse Progressbar Test" MAIN FONT 'Tahoma' SIZE 9
END WINDOW

DEFINE TBROWSE oBrw1 AT 60,10 OF Form1 WIDTH 800 HEIGHT 20 FONT "Verdana" SIZE 9 GRID
END TBROWSE

oBrw1:SetArray( {{''}} , .T.)
oBrw1:nHeightCell := oBrw1:nHeight-1
oBrw1:nHeightHead := 0
oBrw1:lNoVScroll := .T.
oBrw1:lNoHScroll := .T.
oBrw1:SetColSize(1, 0)


oBrw1:aColumns[1]:nAlign := DT_CENTER
oBrw1:SetColor( { 5 }, { RGB(255,255,255) } )
// oBrw1:SetColor( { 2 }, { { Rgb( 255, 250, 205 ), -Rgb( 200, 200, 200 ) } } )
oBrw1:SetColor( { 2 }, { { Rgb( 130, 210, 200 ), -Rgb( 255, 250, 205 ) } } )
oBrw1:SetColor( { 6 }, { { RGB( 43, 189, 198 ), -RGB( 0, 74, 134 )} } )
oBrw1:SetColor( { 12 }, { { RGB( 43, 189, 198 ), -RGB( 0, 74, 134 )} } )



DEFINE TBROWSE oBrw2 AT 100,10 OF Form1 WIDTH 100 HEIGHT 32 FONT "Verdana" SIZE 9 GRID
END TBROWSE

oBrw2:SetArray( {{''}} , .T.)
oBrw2:nHeightCell := 1
oBrw2:nHeightHead := oBrw2:nHeight-2
oBrw2:lNoVScroll := .T.
oBrw2:lNoHScroll := .T.
oBrw2:lNoChangeOrd := .T.
oBrw2:nColOrder := 0
oBrw2:aColumns[1]:bHLClicked := { || Test()}
oBrw2:aColumns[1]:cHeading := "Click me"

oBrw2:SetColSize(1, oBrw2:nWidth)

oBrw2:aColumns[1]:nAlign := DT_CENTER
oBrw2:SetColor( { 3 }, { RGB(255,255,255) } )
oBrw2:SetColor( { 4 }, { { RGB( 43, 189, 198 ), RGB( 0, -74, -255 )} } )


ACTIVATE WINDOW Form1

Return Nil


Func Test()
oBrw1:aColumns[ 1 ]:nWidth := 0
oBrw1:aColSizes[ 1 ] := 0
oBrw1:aArray[ 1, 1 ] := Ntoc(oBrw1:aColSizes[1])
oBrw1:Refresh(.F.)

oBrw1:SetFocus()
While oBrw1:aColSizes[1] < oBrw1:nWidth
oBrw1:aColumns[ 1 ]:nWidth := oBrw1:aColSizes[1] + 5
oBrw1:aColSizes[ 1 ] := oBrw1:aColSizes[1] + 5
oBrw1:aArray[ 1, 1 ] := Ntoc(oBrw1:aColSizes[1])
oBrw1:Refresh(.F.)
do Events
inkey(0.01)
END
Return nil

 Отправлено: 26.02.15 20:42. Заголовок: Haz пишет: то гради..

Haz пишет:

цитата:

то градиент из вертикального стоновится горизонтальным ..... сижу гадаю

И к чему пришел в итоге ?

 Отправлено: 26.02.15 21:53. Заголовок: Dima пишет: И к чем..

Dima пишет:

цитата:

И к чему пришел в итоге ?

к недокументированной фиче или багу но как применить еще не придумал

 Отправлено: 27.02.15 11:17. Заголовок: Как сделать чтобы в ..

Как сделать чтобы в GET'е слева была картинка, а справа был ввод ?
Картинку вывожу просто в GET слева, но мышкой наведешь на GET и картинка исчезает.

@ 200, 20 GETBOX Text_Pswd ;
HEIGHT 34 WIDTH nWidth-45 ;
VALUE cPswd ;
PICTURE 'xxx-xxx-xxx-xxx';
SIZE 18 BOLD ;
RIGHTALIGN

@ 202, 24 IMAGE Img_3 PICTURE 'BMPPASS' WIDTH 72 HEIGHT 30

 Отправлено: 27.02.15 11:45. Заголовок: Andrey пишет: мышк..

Andrey пишет:

цитата:

мышкой наведешь на GET и картинка исчезает.

выводи перед GET , зачем ты их в пересечение выводишь то?

@ 200, 96 GETBOX Text_Pswd ;
HEIGHT 34 WIDTH nWidth-45 ;
VALUE cPswd ;
PICTURE 'xxx-xxx-xxx-xxx';
SIZE 18 BOLD ;
RIGHTALIGN

@ 202, 24 IMAGE Img_3 PICTURE 'BMPPASS' WIDTH 72 HEIGHT 30

 Отправлено: 27.02.15 12:06. Заголовок: Haz пишет: выводи п..

Haz пишет:

цитата:

выводи перед GET , зачем ты их в пересечение выводишь то?

Хочется покрасивей сделать....

 Отправлено: 27.02.15 12:57. Заголовок: Andrey пишет: Хочет..

Andrey пишет:

цитата:

Хочется покрасивей сделать....

и в чем противоречие ? картинка переходит в белый фон и сливается с фоном GET
GET начинается сразу после картинки

не понял зачем ты их пересекаешь по координатам ?

 Отправлено: 27.02.15 16:10. Заголовок: Фон у картинки белый..

Фон у картинки белый. Если его делать голубеньким то он останется за границей GET'a.
Я уже не раз с таким сталкивался... Нужно разместить картинку в GET.
Если нельзя, то жалко...
Можно ли как то сделать чтобы картинка перечитывалась (обновлялась) после наведения мышки ?

 Отправлено: 27.02.15 16:28. Заголовок: Andrey пишет: Нужн..

Andrey пишет:

цитата:

Нужно разместить картинку в GET

Можно но справа ...

 Отправлено: 05.03.15 18:13. Заголовок: Как сделать на одном..

Как сделать на одном окне работу(отображение) других функций ?
Т.е. на окно с кнопочками (верхний ряд) нужно:
1) заблокировать кнопки первого ряда (это сделал в отдельной функции)
2) добавить кнопочки (средний ряд) и ожидать от юзера нажатий кнопок.

У меня кнопки добавляются в отдельной функции на форму ложатся и сразу происходит возврат из этой функции, т.е. не дает ожидания для выбора из вновь появившихся кнопок среднего ряда.