| haav | Дата: Понедельник, 28.05.2012, 14:46 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 1376
Статус: Offline
| Обновление библиотеки от 28.05.2012
Произведены точечные исправления:
Изменена функция GetGadgetText (2 параметр не нужен более, хотя для совместимости оставлен)
Изменены функции работы с изображениями для корректной работы на Windows XP
Изменены функции ImageGadget и ButtonImageGadget для возможной загрузки иконки
Изменены функции TreeViewGadget , AddTreeViewGadget,ReplaceImageItemTreeView для возможной загрузки иконки
Мелкие не существенные исправления
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| Hristo | Дата: Воскресенье, 10.06.2012, 22:15 | Сообщение # 2 |
 Рядовой
Группа: Пользователи
Сообщений: 5
Статус: Offline
| Я встретил такой проблем:
Window9, Примеры для Movie...
Var OFR = OpenFileRequester("","C:\Users\haav-stabud\Desktop\","Media files (*.avi, *.mp3, *.wmv, *.wav, *.mp4, *.mp2, *.mp1)"+Chr(0)+"*.avi; *.mp3; *.wmv; *.wav; *.mp4; *.mp2; *.mp1"+Chr(0))
If OFR<>"" Then
If mov8 Then
FreeMovie(mov8)
EndIf
Програма неправильно выходила из строя при Cancel и сделал так:
OFR = OpenFileRequester("","","Files: (*.avi,*.mpg,*.mpeg,*.mp3,*.wmv,*.mp4,*.mov,*.dat,*.flv,*.swf,*.mkv,*.3gp,*.asf,*.vob)"+Chr(0)+"*.avi;*.mpg;*.mpeg;*.mp3;*.wmv;*.mp4;*.mov;*.dat;*.flv;*.swf;*.mkv;*.3gp;*.asf;*.vob"+Chr(0))
Endif
' При бутон Cancel сначало OFR = "" или потом ascii код 0!
' У Free Basic chr$(0) не равно ""!!
If OFR >= " " Then ' Здесь надо интервал (space)!!
If Mov Then FreeMovie(Mov) ....
|
| |
| |
| haav | Дата: Понедельник, 11.06.2012, 11:15 | Сообщение # 3 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1376
Статус: Offline
| Quote (Hristo) If OFR >= " " Then ' Здесь надо интервал (space)!! If Mov Then FreeMovie(Mov) ....
Неправильно.
Функция OpenFileRequester возвращает либо имя файла либо ""
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
