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

 Отправлено: 30.10.13 22:24. Заголовок: Andrey пишет: как ..

Andrey пишет:

цитата:

как можно получить в программе это значение ?

Используй значение, которое возвращает функция TimeFromStart()

 Отправлено: 05.11.13 09:35. Заголовок: Использую Form_1.Max..

Использую Form_1.Maximize !
Окно открывается на весь экран без учета desktop toolbars !

Как сделать чтобы вычиталось GetTaskBarHeight() ?

 Отправлено: 05.11.13 12:35. Заголовок: Andrey пишет: Испол..

Andrey пишет:

цитата:

Использую Form_1.Maximize

Попробуй вместо этой команды не указывать ширину и высоту окна (как в примере ниже)

#include "minigui.ch" 
  
 Function Main 
  
 	DEFINE WINDOW Win_1 ; 
 		TITLE 'Hello World!' ; 
 		MAIN 
  
 	END WINDOW 
  
 	ACTIVATE WINDOW Win_1 
  
 Return Nil

 Отправлено: 05.11.13 17:08. Заголовок: Непонятно... ну чуть..

Непонятно... ну чуть позже вернусь к этому вопросу.

А как растянуть картинку на всю форму окна ?
nWidth := Form_1.Width
nHeight := Form_1.Height
@ 0, 0 IMAGE Img_Bckgrnd PICTURE cPict WIDTH nWidth HEIGHT nHeight

Если картинка маленькая, то она не растягивается на все окно !

И что лучше использовать в качестве этих заливок (bmp, jpg, png) ?

И как по ходу программы можно сменить картинку фона окна ?
DEFINE BKGBRUSH newBrush PATTERN IN Form_11 BITMAP PAPER

 Отправлено: 05.11.13 17:38. Заголовок: Andrey пишет: как п..

Andrey пишет:

цитата:

как по ходу программы можно сменить картинку фона окна ?

Посмотри пример в папке samples\Basic\WindowBackground
После команды
Andrey пишет:

цитата:

DEFINE BKGBRUSH newBrush PATTERN IN Form_11 BITMAP PAPER

надо вызвать
ERASE WINDOW Form_11

 Отправлено: 07.11.13 20:54. Заголовок: Пытаюсь сделать для ..

Пытаюсь сделать для пользователя на русском языке пример SendMail ! Отличный пример !
Что такое - Message Priority: "Normal", "Highest", "Low" ?
И что за графы Cc: и Bcc: ?

И лог-файл не создается ! Хотя письма доходят нормально, через mail.ru !

 Отправлено: 08.11.13 15:25. Заголовок: тут почитай Cc: (Car..

тут почитай

цитата:

Cc: (Carbon Copy) — адресация копий, этот заголовок является расширением поля «To», он указывает дополнительных получателей письма (получатель «To» видит список всех «Cc») Bcc: (Blind Carbon Copy) — слепая/скрытая копия (получатели не подозревают о других получателях из поля «Bcc»). Message Priority исключительно свободный заголовок, устанавливающий приоритет сообщения. Большинство программ его игнорируют.

 Отправлено: 08.11.13 18:54. Заголовок: LYSK пишет: тут поч..

LYSK пишет:

цитата:

тут почитай

Спасибо БОЛЬШОЕ !

А это:
И лог-файл не создается ! Хотя письма доходят нормально, через mail.ru !
Почему ?

 Отправлено: 09.11.13 11:41. Заголовок: Пытаюсь использовать..

Пытаюсь использовать:
DEFINE BKGBRUSH newBrush PATTERN IN Form_1 BITMAP WALLPIC

WALLPIC засовываю естественно в ресурсы. Не засовывается... пишет:
Error demo3.rc 30 40: Invalid bitmap format

Картинка обычная :
WALLPIC BITMAP picture\Strips.bmp
Что делать ?

Нашел в чем дело, картинка не 24-битная...
А чем вообще можно заменить глючный компилятор ресурсов bcc ?

 Отправлено: 09.11.13 13:01. Заголовок: Делаю CENTER WINDOW..

Делаю CENTER WINDOW Form_1, но эта команда не всегда точно центрирует окно.
А как окно после этой команды поднять вверх ?
Т.е. от самого верха окна экрана допустим на 50 пикселей.

Или как окно прижать к самому верху экрана, но чтобы было по центру экрана ?

 Отправлено: 09.11.13 13:32. Заголовок: куда ж проще то For..

куда ж проще то

Form_1.Row := 50 не работает ?

 Отправлено: 09.11.13 14:44. Заголовок: Haz пишет: Form_1.R..

Haz пишет:

цитата:

Form_1.Row := 50 не работает ?

Блин, не сообразил..
Спасибо !
Иногда на простой вопрос ищешь чер знает что...

 Отправлено: 12.11.13 16:33. Заголовок: А как получить списо..

А как получить список всех ярлыков на рабочем столе компа.
В примерах есть только как создавать ярлыки, а как получить список не нашел....
Может и плохо искал.

Хочу прогу написать по чисте от мусора. Достали юзера...

 Отправлено: 12.11.13 16:40. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как получить список всех ярлыков на рабочем столе компа. В примерах есть только как создавать ярлыки, а как получить список не нашел....

Наверное надо прочитать список файлов в папке "рабочий стол" конкретного юзера, а дальше с массивом файлов делай что хочешь.

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

AlexMyr пишет:

цитата:

Наверное надо прочитать список файлов в папке "рабочий стол" конкретного юзера

А как ?
aFiles := DIRECTORY( )
И еще ведь есть ОБЩИЕ ярлыки ?

 Отправлено: 12.11.13 17:26. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как ? aFiles := DIRECTORY( )

Уже проходили материал, смотри http://clipper.borda.ru/?1-4-0-00000621-000-60-0
Andrey пишет:

цитата:

И еще ведь есть ОБЩИЕ ярлыки ?

прописать в проге общие и пропускать их.

 Отправлено: 12.11.13 17:36. Заголовок: Да у в примерах по М..

Да у в примерах по МиниГуи есть создание ярлыков по разному и через WSH_Service и так.
А как правильно читать папку ярлыков не знаю ?
Достаточно ли использовать:

#define CSIDL_DESKTOPDIRECTORY 0x0010 // <user name>\Desktop

aFiles := DIRECTORY( C_getspecialfolder(CSIDL_DESKTOPDIRECTORY)+"\*.lnk" )

 Отправлено: 12.11.13 17:43. Заголовок: Andrey Ерундой зани..

Andrey
Ерундой занимаешься Да сдались тебе ярлыки юзеров , ярлыки ихние и пущай сами что хотят с ними то и творят.
А то косяк в твоей проге и бац , юзера без ярлыков могут оказаться ;)

 Отправлено: 12.11.13 17:44. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как правильно читать папку ярлыков не знаю ?

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

 Отправлено: 12.11.13 17:47. Заголовок: Dima пишет: Andrey ..

Dima пишет:

цитата:

Andrey Ерундой занимаешься Да сдались тебе ярлыки юзеров , ярлыки ихние и пущай сами что хотят с ними то и творят.

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