FreeBasic
Главная
Вход
Регистрация
Среда, 07.12.2022, 20:50Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » Обновление библиотеки от 28.05.2012 (Обновление библиотеки от 28.05.2012)
Обновление библиотеки от 28.05.2012
haavДата: Понедельник, 28.05.2012, 14:46 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Обновление библиотеки от 28.05.2012


Произведены точечные исправления:

Изменена функция GetGadgetText (2 параметр не нужен более, хотя для совместимости оставлен)
Изменены функции работы с изображениями для корректной работы на Windows XP
Изменены функции ImageGadget и ButtonImageGadget для возможной загрузки иконки
Изменены функции TreeViewGadget , AddTreeViewGadget,ReplaceImageItemTreeView для возможной загрузки иконки
Мелкие не существенные исправления


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
HristoДата: Воскресенье, 10.06.2012, 22:15 | Сообщение # 2
Рядовой
Группа: Пользователи
Сообщений: 5
Репутация: 0
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Quote (Hristo)
If OFR >= " " Then ' Здесь надо интервал (space)!! If Mov Then FreeMovie(Mov) ....


Неправильно.

Функция OpenFileRequester возвращает либо имя файла либо ""


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » Обновление библиотеки от 28.05.2012 (Обновление библиотеки от 28.05.2012)
  • Страница 1 из 1
  • 1
Поиск: