Форум » GUI » Примеры из Минигуи -ошибки, вопросы..... (продолжение) » Ответить
Примеры из Минигуи -ошибки, вопросы..... (продолжение)
Andrey: Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \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.
Andrey: 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 ?
Haz: Andrey пишет: BUTTONEX Что касается кнопок .... у тебя это есть ? C:\MiniGUI\SAMPLES\Advanced\ExpButton\
Haz: рабочий пример на основе 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
Andrey: Haz пишет: рабочий пример на основе TSBROWS Пример классный ! Нужно бы в библиотеку примеров поставить... Такой и не придумаешь сам... Haz пишет: Что касается кнопок .... у тебя это есть ? C:\MiniGUI\SAMPLES\Advanced\ExpButton\ Да есть. Смотрел его и ранее... Но как любит писать Дима - очень много букв... Слишком много вариантов, которые не нужны сейчас и не подходят (не то) для: oBrw:SetColor( { 4 }, { { || { RGB(43,149,168), RGB(0,54,94) } } } ) // 4 , цвет фона шапка таблицы Попроще нет примера ?
Haz: Andrey пишет: Попроще нет примера ? Можешь кнопку из TSBrowse сделать из заголовка - он поддерживает визуальный клик и будет именно oBrw:SetColor( { 4 }, { { || { RGB(43,149,168), RGB(0,54,94) } } } )
Andrey: Не, мне кнопку не надо. Надо получить заливку как TSBrowse. Посмотрел исходник, ничего не понял как оттуда вытащить заливку....
Haz: Andrey пишет: Надо получить заливку как TSBrowse. нарисуй ее в любой графике и поставь как паттерн на кнопку
Andrey: Haz пишет: поставь как паттерн на кнопку Это как ?
Haz: Andrey пишет: Это как ? Андрей, ты издеваешься у buttonEx есть пропертя Picture... 1 рисуешь в граф редакторе свою кнопку с какой хош заливкой на весь размер, 2 сохраняешь ее как bmp 3 DEFINE BUTTONEX Button_1 ... PICTURE "Image_1.bmp" ... END BUTTONEX 4 по желанию используешь On MOUSEHOVER и MOUSELEAVE для смены картинки
Andrey: Haz пишет: Андрей, ты издеваешься Нисколько. У меня не получилось растянуть картинку на всю кнопку. Если задаю глупые вопросы, прошу не обижаться ! Не получилось что-то вот и задаю.... Буду пробовать тогда еще раз.
Haz: продолжу про прогрессбар из 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
Dima: Haz пишет: то градиент из вертикального стоновится горизонтальным ..... сижу гадаю И к чему пришел в итоге ?
Haz: Dima пишет: И к чему пришел в итоге ? к недокументированной фиче или багу но как применить еще не придумал
Andrey: Как сделать чтобы в 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
Haz: 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
Andrey: Haz пишет: выводи перед GET , зачем ты их в пересечение выводишь то? Хочется покрасивей сделать....
Haz: Andrey пишет: Хочется покрасивей сделать.... и в чем противоречие ? картинка переходит в белый фон и сливается с фоном GET GET начинается сразу после картинки не понял зачем ты их пересекаешь по координатам ?
Andrey: Фон у картинки белый. Если его делать голубеньким то он останется за границей GET'a. Я уже не раз с таким сталкивался... Нужно разместить картинку в GET. Если нельзя, то жалко... Можно ли как то сделать чтобы картинка перечитывалась (обновлялась) после наведения мышки ?
Haz: Andrey пишет: Нужно разместить картинку в GET Можно но справа ...
Andrey: Как сделать на одном окне работу(отображение) других функций ? Т.е. на окно с кнопочками (верхний ряд) нужно: 1) заблокировать кнопки первого ряда (это сделал в отдельной функции) 2) добавить кнопочки (средний ряд) и ожидать от юзера нажатий кнопок. У меня кнопки добавляются в отдельной функции на форму ложатся и сразу происходит возврат из этой функции, т.е. не дает ожидания для выбора из вновь появившихся кнопок среднего ряда.
полная версия страницы