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


Это маленькое обновление(багфикс)

1)Удалена процедура инициализации, которая вызывала ошибку в многомодульных проектах
2)Добавлена возможность использовать константу WM_DROPFILES в встроенном обработчике событий.


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
HristoДата: Воскресенье, 13.05.2012, 19:56 | Сообщение # 2
Рядовой
Группа: Пользователи
Сообщений: 5
Репутация: 0
Статус: Offline
Проблем:
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna

' fbc -version: 0.23.0 (08-14-2011) for win32

' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!

#INCLUDE "WINDOW9.BI" ' 06-02-2012

DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=""
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
IF Buffer<" " THEN
MessBox("Who is this: Buffer < "+chr$(34)+" "+chr$(34)+"??",Buffer )
MessBox("", "Firstly mark and copy (Windows'98)WinHelp !!", MB_OK)
END ' If not exist MB_OK (default) - it not work??
ENDIF
MessBox("This is well!",Buffer )
FileNum = FREEFILE
OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum

PRINT #FileNum, Buffer: Close FileNum: Buffer=""
' Added: аММММММММ or Њ Њ Њ Њ Њ Њ Њ Њ in BUFFER.TXT!!
OPEN "BUFFER.TXT" FOR INPUT AS FileNum
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
SHELL("NOTEPAD.EXE BUFFER.TXT")
END
 
haavДата: Воскресенье, 13.05.2012, 22:37 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Hi Hristo!

I have your code works correctly. Your system uses Unicode?
That function returns GetClipBoardText?

Quote
If not exist MB_OK (default) - it not work??


No. MessBox wrapper MessageBox. Their return values ​​are the same


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
HristoДата: Четверг, 17.05.2012, 06:16 | Сообщение # 4
Рядовой
Группа: Пользователи
Сообщений: 5
Репутация: 0
Статус: Offline

Здравствуйте,
Примеры для Free Basic & Power Basic

Проблем:
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna
' fbc -version: 0.23.0 (08-14-2011) for win32

' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!

#INCLUDE "WINDOW9.BI" ' 06-02-2012

DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
IF Buffer<"" or Buffer<=CHR$(0) THEN
MessBox("Who is this: Buffer < "+chr$(34)+""+chr$(34)+"??",Buffer )
MessBox("", "Firstly mark and copy (Windows'98)WinHelp !!", MB_OK)
END ' If not exist MB_OK (default) - it not work??
ENDIF
MessBox("This is well!",Buffer )
FileNum = FREEFILE
OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum

PRINT #FileNum, Buffer: Close FileNum: Buffer=""
' Added: аММММММММ or Њ Њ Њ Њ Њ Њ Њ Њ in BUFFER.TXT!!
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не работает
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT") ' что-то добавляет
END

--------------------------------------------------------------------------------------------------------------------
Хорошо:
' Pbedit'05 (хорошо для кириллицы) + Pbwin10.02 (но нет Debug)
#COMPILE EXE
#OPTION WIN95 ' поддержка UNICODE
#DIM ALL

FUNCTION PBMAIN () AS LONG

DIM Buffer AS STRING , RowStr AS STRING
DIM FileNum AS INTEGER

CLIPBOARD GET TEXT TO Buffer : Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
IF Buffer<"" THEN
MSGBOX Buffer,,"Who is this: Buffer < "+CHR$(34)+""+CHR$(34)+"??"
MSGBOX "Firstly mark and copy (Windows'98)WinHelp !!"
END
END IF
MSGBOX Buffer,,"This is well!"
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum

PRINT #FileNum, Buffer: CLOSE FileNum: Buffer=""
' Not Added: аММММММММ or Њ Њ Њ Њ Њ Њ Њ Њ in BUFFER.TXT!!
OPEN "BUFFER.TXT" FOR INPUT AS FileNum
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:LOOP
MSGBOX Buffer,,"This is well, BUFFER.TXT also is well !!"
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT")

END FUNCTION

Добавлено (17.05.2012, 06:13)
---------------------------------------------
Проблем: (обновление)

' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna

' fbc -version: 0.23.0 (08-14-2011) for win32

' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!

#INCLUDE "WINDOW9.BI" ' 06-02-2012

DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
' Еще: В FBIDE интервал (междина/межа) " " не то що в Notepad...
IF Buffer="" OR Buffer<=CHR$(0) THEN
MessBox("Who is this(1):",Buffer, MB_OK) ' Не работает если Buffer=""??
MessBox("Who is this(2):","", MB_OK) ' Работает!!
MessBox("?", "Firstly mark and copy (Windows'98)WinHelp !!")
END
ENDIF

' Buffer=Buffer+STR$(ASC(Buffer)) ' Не работает!? Not work!?
MessBox("This is well!",Buffer)
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer
Close FileNum ' Здесь уже что-то добавляет в BUFFER.TXT!

Buffer=""
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не понимает!?
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum

SHELL("NOTEPAD.EXE BUFFER.TXT")
END

Добавлено (17.05.2012, 06:16)
---------------------------------------------
Проблем: (обновление)
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna

' fbc -version: 0.23.0 (08-14-2011) for win32

' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!

#INCLUDE "WINDOW9.BI" ' 06-02-2012

DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
' Еще: В FBIDE интервал (междина/межа) " " не то що в Notepad...
IF Buffer="" OR Buffer<=CHR$(0) THEN
MessBox("Who is this(1):",Buffer, MB_OK) ' Не работает если Buffer=""??
MessBox("Who is this(2):","", MB_OK) ' Работает!!
MessBox("?", "Firstly mark and copy (Windows'98)WinHelp !!")
END
ENDIF

' Buffer=Buffer+STR$(ASC(Buffer)) ' Не работает!? Not work!?
MessBox("This is well!",Buffer)
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer
Close FileNum ' Здесь уже что-то добавляет в BUFFER.TXT!

Buffer=""
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не понимает!?
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum

SHELL("NOTEPAD.EXE BUFFER.TXT")
END

 
haavДата: Четверг, 17.05.2012, 08:06 | Сообщение # 5
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Hi Hristo!

Library are not intended for Unicode, and I do not do support for Unicode in the library .. If you do not have problems with language VisualBasic or PowerBasic why not write to them?


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