PBWIN 10 - свершилось

[Smitis-R]

Свершилось чудо.
Релиз PBWIN 10.2 от DOA
http://narod.ru/disk/33902358001/PBWIN10.rar.html
http://rghost.ru/34065551
pw: gceus

Ждём с нетерпением PBCC

П.С.
До кучи - новые инклюды Jose Roca
http://narod.ru/disk/33909430001/WINAPI_II_05.rar.html
pw: gceus

[ger_kar]

Да уж ЧУДО!!! Я уже качаю
Это будет первая версия с которой я начну юзать PB. Попробую сегодня же!

[Smitis-R]

Вот сдесь ещё ссылки
http://rl-team.net/1146563222-powerbasi ... 20999.html

думаю, по варезникам уже расползлось (я с торрента качал)

[jangle]

Cпасибо, будем пробовать!

[ger_kar]

Cпасибо, будем пробовать!

Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.
Мне например сравнивать то не с чем, а знать интересно

[FireFenix]

Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий

[bon818]

радуюсь!
но редактор(undo и всё тут, на все времена ) всё равно нужен левый

[Smitis-R]

Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий

В каждой версии был файл History.txt, во всяком случае начиная с восьмой версии

[FireFenix]

Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий

В каждой версии был файл History.txt, во всяком случае начиная с восьмой версии

Ну в каждой версии это написано в хелпе.... но искать дистрибутив для каждой версии - не айс

[Smitis-R]

FireFenix
Тебе нужны все промежуточные версии?

[jangle]

Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.
Мне например сравнивать то не с чем, а знать интересно

С первого взгляда полезных изменений очень много. Но надо это все в руках повертеть несколько месяцев, прежде чем окончательно станет ясно.

[bon818]

PBWIN 10 ++++++
1. скорость компиляции заметно выросла
2. теперь ресурсы вставлять проще простого #RESOURCE ICON, 100, "Hello.ico"
3. размер програм уменьшается , в одном случае в 3 раза

Вот этот случай 57 килобайт в 9 и 16 килобайт в 10 (оптимизация)

Код: Выделить всё

#compile exe

#include "win32api.inc"
#include "commctrl.inc"
#include "initctrl.inc"

global hinstance&

declare function testgridproc(byval long,byval long,byval long,byval long) as long

declare function creategrid lib "griddll.dll" (byval long, _
                                               byval string, _
                                               byval long,byval long, _
                                               byval long,byval long) _
                                               as long

function winmain(byval hinst&,byval hprev&,byval cmdline as asciiz ptr,byval cmdshow&) as long

     hinstance&=hinst&

     initcomctl32

     ''create class and register it with windows

     dim wclassname as asciiz*80
     dim wclass as wndclass

     wclassname="GridTestWindow"

     wclass.style=%cs_hredraw or %cs_vredraw
     wclass.lpfnwndproc=codeptr(testgridproc)
     wclass.cbclsextra=0
     wclass.cbwndextra=0
     wclass.hinstance=hinstance&
     wclass.hicon=%null
     wclass.hcursor=loadcursor(%null,byval %idc_arrow)
     wclass.hbrbackground=getsyscolorbrush(%color_3dface)
     wclass.lpszmenuname=%null
     wclass.lpszclassname=varptr(wclassname)

     registerclass wclass

     xsize&=getsystemmetrics(%sm_cxscreen)
     ysize&=getsystemmetrics(%sm_cyscreen)

     style&=%ws_overlappedwindow

     hwnd&=createwindow(wclassname, _            ''window class name
                        "Grid Test", _           ''window caption
                        style&, _                ''window style
                        0, _                     ''initial x position
                        0, _                     ''initial y position
                        xsize&, _                ''initial x size
                        ysize&, _                ''initial y size
                        hparent&, _              ''parent window handle
                        %null, _                 ''window menu handle
                        hinstance&, _            ''program instance handle
                        %null)                   ''creation parameters

     showwindow hwnd&,cmdshow&
     updatewindow hwnd&

     dim wmmsg as tagmsg

     while istrue(getmessage(wmmsg,byval %null,0,0))
       translatemessage wmmsg
       dispatchmessage wmmsg
     wend

     function=wmmsg.wparam
end function

function testgridproc(byval hwnd&,byval msg&,byval wparam&,byval lparam&) as long

     select case msg&
       case %wm_create

         hparent&=hwnd&
         rows&=30
         cols&=9

         title$="Test Grid"+space$(55)  ''64 characters long

         '' column data ''''''''''''''''''''''''''''''''''''''''''''''''

         coldata$=chr$(40)+chr$(140)+"LT0Test 1"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 2"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 3"+space$(14) _
                 +chr$(10)+chr$(60)+"LC1Test 4"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 5"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 6"+space$(14) _
                 +chr$(10)+chr$(60)+"LC1Test 7"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 8"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 9"+space$(14)

         ''chrwidth&(col&)=cvl(mid$(coldata$,1,1))   ''character length
         ''colwidth&(col&)=cvl(mid$(coldata$,2,1))   ''column width
         ''coljustify$(col&)=mid$(coldata$,3,1)      ''justify (LCR)
         ''coltype$(col&)=mid$(coldata$,4,1)         ''T-text,etc
         ''colchange&(col&)=val(mid$(coldata$,5,1))  ''1=changeable

         '' row data ''''''''''''''''''''''''''''''''''''''''''''''''''

         rowdata$="Test Row  1"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  2"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  3"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  4"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  5"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  6"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  7"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _


         allowflags?=0

         bit set allowflags?,0  ''allowinsert& on
         bit set allowflags?,1  ''allowdelete& on
         'bit set allowflags?,2  ''allowcoledit& on
         bit set allowflags?,3  ''allowcolsort& on

         b$=title$+mkl$(cols&)+mkl$(rows&)+mkl$(1)+mkl$(1) _
           +chr$(allowflags?)+coldata$+rowdata$

         tmpfile$="test.dat"

         ff&=freefile
         open tmpfile$ for binary as #ff& base=0
         seek #ff&,0
         put$ #ff&,b$
         close #ff&

         xstt&=30
         ystt&=50
         xlen&=512
         ylen&=384

         creategrid hparent&,tmpfile$, _
                    xstt&,ystt&,xlen&,ylen&

       case %wm_paint
         dim ps as paintstruct
         hdc&=beginpaint(hwnd&,ps)

         endpaint hwnd&,ps
       case %wm_syscommand
         if lowrd(wparam&)<>%sc_close then exit select
         destroywindow hwnd&
         function=1
         exit function
       case %wm_command

       case %wm_destroy
         postquitmessage 0
         function=0
         exit function
     end select

     function=defwindowproc(hwnd&,msg&,wparam&,lparam&)
end function


[ger_kar]

Значит не зря ждали . Хорошо, конечно, что размер исполняемого файла уменьшился, главное, что-бы такая оптимизация не отразилась на скорости исполнения.

[HouseMD]

ААА!!! (извините за истерику) аж руки дрожат от возбуждения. сейчас будем посмотреть.

[HouseMD]

и сразу вопрос - почему у меня импортируется сразу две функции MessageBoxA и MessageBoxW
как создать полностью юникодный проект?

[jangle]

Вышел апдейт 10.03

[Smitis-R]

Вышел апдейт 10.03

Кто-нибудь уже скачал?

[Smitis-R]

На exelab.ru выложили PBCC 6.02
Без инсталятора, но он, собственно, и не нужен.

[jangle]

На exelab.ru выложили PBCC 6.02
Без инсталятора, но он, собственно, и не нужен.

Можешь на rghost.ru перезалить?

[Smitis-R]

Можешь на rghost.ru перезалить?

Могу, надеюсь там не обидятся
P.S. Ты же вроде на exelab aka cracklab зарегистрирован?

http://rghost.ru/36114882

ещё от туда PwrDev
http://rghost.ru/36114775

pw: exelab.ru

[jangle]

Smitis-R - спасибо!

[Smitis-R]

Smitis-R - спасибо!

Поздно
Уже пошли 10.03 и 6.03
Искать на варезниках, например http://rl-team.net/1146574146-powerbasi ... v-603.html

[jangle]

http://rl-team.net/1146574146-powerbasic-for-windows-v-1003-powerbasic-console-compiler-v-603.html

Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

[Lapex]

См. http://www.revenge-crew.com/

[Smitis-R]

Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

Какое-то странное предвзятое мнение. И не файлообменник, а варезник. Не буду спорить насчёт rl-team, так как то же самое можно сказать о любом варезном сайте. А PB там есть.

[HouseMD]

Какое-то странное предвзятое мнение. И не файлообменник, а варезник. Не буду спорить насчёт rl-team, так как то же самое можно сказать о любом варезном сайте. А PB там есть.

добро пожаловать в Интернет. на всех подобных варезниках по прямой ссылке можно скачать разве что платный архив (в лучшем случае. в худшем - троян) со статическим размером, будь то ПБ, фотошоп или виндовс (да-да, все они будут весить до 10 МБ). и твоя ссылка тому подтверждение. по крайней мере потрудился бы сам скачать и проверить, прежде чем бросать сюда ссылку и ещё и спорить.

[Qwertiy]

Можно и в других местах найти 6.03, 10.03

[iGrok]

Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

добро пожаловать в Интернет.

Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.
А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".

[HouseMD]

Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".

добро пожаловать в дискуссию, которую ты начал читать с последнего поста. ok.
здесь обсуждается ссылка, вброшенная в топик юзером Smitis-R, а не торренты, летитбиты и депозиты. okay?

[Qwertiy]

Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".

добро пожаловать в дискуссию, которую ты начал читать с последнего поста. ok.
здесь обсуждается ссылка, вброшенная в топик юзером Smitis-R, а не торренты, летитбиты и депозиты. okay?

Я там регистрироваться не собираюсь, но внизу по той ссылке есть надпись:

Внимание! У вас нет прав для просмотра скрытого текста.

Подозреваю, что для зарегистрированных пользователей там как раз и будут ссылки на летитбит, депозит и остальные. Где-то уже такая система попадалась, и вполне соответствует тому, что написал iGrok