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

 Отправлено: 12.11.13 17:48. Заголовок: AlexMyr пишет: Еще ..

AlexMyr пишет:

цитата:

Еще опцию в винде можно включить, чтоб сама винда убирала не используемые ярлыки.

+1

 Отправлено: 12.11.13 18:44. Заголовок: Dima пишет: юзера б..

Dima пишет:

цитата:

юзера без ярлыков могут оказаться ;)

Да я хочу удалить ярлыки от своих старых программ. А то достали юзера, видите ли программа не работает. А рядом ярлык рабочей программы не видят. Вот и чтобы по компам не ходить хочу прогу сделать и удалить лишний мусор !
Попробуй по этажам побегай по компам, удалять ярлыки...

 Отправлено: 12.11.13 18:58. Заголовок: AlexMyr пишет: Чем ..

AlexMyr пишет:

цитата:

Чем ярлык отличается от других фалов?

Вот я и уточняю здесь на форуме. Прав я ил не прав...

 Отправлено: 12.11.13 19:00. Заголовок: Andrey При чем тут ..

Andrey
При чем тут Минигуи я только не пойму ;)

 Отправлено: 12.11.13 20:55. Заголовок: Dima пишет: При чем..

Dima пишет:

цитата:

При чем тут Минигуи

Просто у Григория очень большая коллекция примеров, вот я оттуда и беру.
Там есть классный пример \SAMPLES\Advanced\WSH_Service по созданию ярлыков, без всяких
#define CSIDL_DESKTOPDIRECTORY 0x0010 // <user name>\Desktop

Вот я и пытаюсь понять, как правильней делать !

 Отправлено: 12.11.13 21:27. Заголовок: Нет ничего проще..

Ярлык на рабочем столе - это просто файл
Чтобы удалить ярлыки, нужно всего три вещи:
1) знать место размещения - рабочий стол юзера или общий
2) знать имя ярлыка или уметь определять по имени ,что он свой
3) иметь права на удаление файла ярлыка

При старте Ваша же текущая софтина может в раз день шарить
по предполагаемым местам размещения этих файлов,
и будет пытаться удалить все то, что посчитает своим и старым.
Доступен будет рабочий стол юзера, выполнившего вход на том компе
и общий - если юзер -имеет права админа того компа

 Отправлено: 12.11.13 21:38. Заголовок: petr707 Да понятно ..

petr707
Да понятно это. Я спрашивал про доступ к ярлыкам.
Посмотрите пример \SAMPLES\Advanced\WSH_Service и все станет ясно.
Я пытался так же сделать чтение ярлыков.

 Отправлено: 12.11.13 22:05. Заголовок: Лучше знать принципы...

Если Ваши ярлыки - не общие, а юзеровские - проблем с удалением - не будет.

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

 Отправлено: 17.11.13 10:41. Заголовок: Сделал удаление ярлы..

Сделал удаление ярлыков, вроде работает. Тестил на нескольких машинах.

Другой вопрос, явно про Минигуи:
Можно ли сделать компонент TEXTBOX прозрачным на форме ? LABEL делается.
Может пример какой нибудь есть ?

 Отправлено: 19.11.13 11:45. Заголовок: Andrey пишет: Может..

Andrey пишет:

цитата:

Может пример какой нибудь есть ?

Посмотри как это сделано для LISTBOX в примере demo1 из папки samples\Advanced\Transparency
Возможно, такой подход поможет и для TEXTBOX

 Отправлено: 24.11.13 10:21. Заголовок: MiniGUI 2.2.9 у меня..

MiniGUI 2.2.9 у меня не собираются три примера:

...\Samples\Basic\Folder
Error: unresolved external '_HB_FUN_GETFOLDERHANDLE' referenced from \MINIGUI\SAMPLES\BASIC\FOLDER\DEMO.OBJ

...\Samples\Applications\Reservation
Error: unresolved external '_HB_FUN_GETTITLEHEIGHT' referenced from \MINIGUI\SAMPLES\Applications\Reservation\PRESA.OBJ

...\Samples\Applications\Super
Error: unresolved external '_HB_FUN_GETDESKTOPWIDTH' referenced from \MINIGUI\SAMPLES\Applications\Super\FUNCOES.OBJ
Error: unresolved external '_HB_FUN_GETDESKTOPHEIGHT' referenced from \MINIGUI\SAMPLES\Applications\Super\FUNCOES.OBJ

ОС WIN7 компилятор BCC

 Отправлено: 24.11.13 21:15. Заголовок: yury2003 Благодарю ..

yury2003
Благодарю за сообщение!
Эти ошибки будут исправлены в следующей сборке.

А сейчас это можно поправить следующим образом:
- в пример Folder добавить функцию GETFOLDERHANDLE() из исходника source\h_folder.prg
- в примере Reservation убрать ненужный параметр при вызове функции GETTITLEHEIGHT()
- в пример Super добавить в начале файла FUNCOES.PRG строку
#include "minigui.ch"

 Отправлено: 26.11.13 17:39. Заголовок: Собираю програмку, д..

Собираю програмку, добавляю свои иконки.
А после сборки наблюдаю иконки, которые не вставлял !!!
Кто добавил их ? Откуда они добавляются ?
Я в файле своего проекта *.rc их не добавляю !!!


Они не мешали бы, только при установке ярлыка ВМЕСТО своей иконки СТАВИТЬСЯ принтер !!!
Достал этот принтер !
Как можно отключить эту фигню ???

 Отправлено: 26.11.13 17:43. Заголовок: Возможно твой RC цеп..

Возможно твой RC цепляет еще какой то RC где они объявлены.

 Отправлено: 26.11.13 17:50. Заголовок: Andrey Верхняя и ниж..

Andrey
Верхняя и нижняя - это miniGui в statusbar индикация состояния клавиш CapsLock, Insert, ...
другие, думаю тоже.

 Отправлено: 26.11.13 18:20. Заголовок: А как их убрать ? :..

А как их убрать ?
Т.е. как указать у себя в проекте сборку lib без этих иконок ?
Я же не прописываю сборку этих иконок у себя в проекте !
Иконка принтера: \MiniGUI\RESOURCES\print.ico - как убрать из своего проекта ?
Это иконка скорее всего из библиотеки hbprinter.lib
Я её не использую.
Как мне указать в моем МойПроект.hbp - не линковать эту библиотеку ?

Удаление иконки принтера Resource Hacker из готового ехе-ника результата не дало.
Ярлык получается со стандартной иконкой ВИНДОВ, хотя на программе иконка правильная - моя !

 Отправлено: 26.11.13 22:33. Заголовок: Взял код из примера ..

Взял код из примера MiniGUI\SAMPLES\Applications\Daily\set3.prg

//-------------------------------------------------------------\\
FUNCTION CreateLink( LinkName, TargPath, HKey, IconLoc, Descr )

LOCAL NShortcut
LOCAL WshShell := TOleAuto():New( "WScript.Shell" )

IF Ole2TxtError() != 'S_OK'
RETURN .F.
ENDIF

NShortcut := WshShell:CreateShortcut( LinkName )
//Set shortcut placement
NShortcut:TargetPath := TargPath
//Set standard style of window
NShortcut:WindowStyle := 1
//Set hotkey
NShortcut:Hotkey := HKey
//Path to icon
NShortcut:IconLocation := IconLoc + ", 0"
//Set tooltip
NShortcut:Description := Descr
//Set path to application as working directory
NShortcut:WorkingDirectory := GetStartupFolder() // это я здесь сам заменил.
//Save settings and shortcut
NShortcut:Save()

RETURN .T.

Создаю ярлыки:
cNameApp := "Моя_программа"
cPathStUp := GetSpecialFolder( CSIDL_STARTUP )
cFileExe := EXENAME()
cFileLink := cPathStUp + '\' + cNameApp + '.lnk'
IF M->lPubAutoStart // автозапуск программы
CreateLink( cFileLink, cFileExe, '', cFileExe, 'Events control' )
ELSE
FErase( cFileLink )
ENDIF

cPathDeskTop := GetDesktopFolder()
cFileLink := cPathDeskTop + '\' + cNameApp + '.lnk'
IF !FILE(cFileLink) // рабочий стол
CreateLink( cFileLink, cFileExe, '', cFileExe, 'Events control' )
ENDIF

Так вот вопрос, в одной программе ярлыки создает/удаляет нормально, а в другой нет ! Я уже полдня бьюсь с этим...
Вторая программа сидит в трее, при записи настроек пытаюсь создать ярлыки - ни один не создается !
Хотя откуда брал, там тоже программа в трее сидит...
В чем дело ?
Может кто посмотрит, свежим взглядом ?

Подключил создание ярлыка из \MiniGUI\SAMPLES\Applications\LINK_EXECUTOR\LinkExecutor.prg - работает всегда !
Правда удалить эти ярлыки из программы не могу уже...
Что не сделаешь - везде "засада"...

 Отправлено: 28.11.13 23:07. Заголовок: Всем привет. Подскаж..

Всем привет. Подскажите как правильно перерисовать объекты на ФОРМЕ ?
Я рисую объекты:

потом удаляю ОДИН файл (крестиком) и удаляю в цикле ВСЕ нарисованные объекты.
Потом пытаюсь заново нарисовать эти объекты и получаю облом ... нет новых объектов...
И остается "мусор" после LABEL и BUTTONEX :

Что не правильно делаю ?

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

//////////////////////////////////////////////////////////////////////////// // рисуем иконки прикрепленных файлов FUNCTION ViewPngFile() ............. FOR nI := 1 TO LEN(aDim) .......................... cObj := "Img_File"+LTRIM(STR(nI)) cImage := MaskaTypeFile(cFile ) @ nRow, nColTek IMAGE &cObj OF Form_1 PICTURE cImage WIDTH 131 HEIGHT 59 cObj2 := "Label_File"+LTRIM(STR(nI)) @ nRow+40, nColTek+5 LABEL &cObj2 VALUE cFile WIDTH 131-10 HEIGHT 16 ; FONT 'Tahoma' SIZE 9 ; TRANSPARENT FONTCOLOR aFontColor CENTERALIGN OF Form_1 cObj2 := "Label_Size"+LTRIM(STR(nI)) @ nRow+20, nColTek+25 LABEL &cObj2 VALUE cFSize WIDTH 131-15 HEIGHT 16 ; FONT 'Tahoma' SIZE 9 BOLD ; TRANSPARENT FONTCOLOR GRAY CENTERALIGN OF Form_1 cObj3 := "Button_Del"+LTRIM(STR(nI)) cRun := "File_Delete("+LTRIM(STR(nI))+")" // Удаляем прикрепленный файл @ nRow, nColTek+131-16 BUTTONEX &cObj3 OF Form_1 ; WIDTH 16 HEIGHT 16 ; ACTION &cRun ICON "iDel16" NEXT RETURN NIL ///////////////////////////////////////////////////////////////////////////// // Удаляем прикрепленный файл FUNCTION File_Delete(nDel) LOCAL cObj, cObj2, cObj2a, cObj3 LOCAL aDim := ACLONE(M->aGet[7]), cFilePath, cRun M->aGet[7] := {} FOR nI := 1 TO LEN(aDim) IF nI # nDel AADD(M->aGet[7],aDim[nI]) ENDIF cObj := "Img_File"+LTRIM(STR(nI)) cObj2 := "Label_File"+LTRIM(STR(nI)) cObj2a := "Label_Size"+LTRIM(STR(nI)) cObj3 := "Button_Del"+LTRIM(STR(nI)) RELEASE CONTROL &cObj3 OF Form_1 RELEASE CONTROL &cObj2a OF Form_1 RELEASE CONTROL &cObj2 OF Form_1 RELEASE CONTROL &cObj OF Form_1 NEXT DO EVENTS ViewPngFile() // перерисуем иконки файлов RETURN NIL

 Отправлено: 29.11.13 21:24. Заголовок: После подсказки Григ..

После подсказки Григория - добился нормальной работы.
Нужно не удалять объект, а просто его скрывать. Если не хватает объекта, то добавляем объект и показываем.
Мусора нет, все прекрасно работает. Кому интересно могу выложить код.
Все короче просто, если знаешь куда копать...

 Отправлено: 29.11.13 22:01. Заголовок: Andrey пишет: Все к..

Andrey пишет:

цитата:

Все короче просто, если знаешь куда копать...

Да это так.