Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.jangle писал(а):Cпасибо, будем пробовать!
FireFenix писал(а):Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий
Smitis-R писал(а):FireFenix писал(а):Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий
В каждой версии был файл History.txt, во всяком случае начиная с восьмой версии
ger_kar писал(а):Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.
Мне например сравнивать то не с чем, а знать интересно
#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
jangle писал(а):Вышел апдейт 10.03
Smitis-R писал(а):На exelab.ru выложили PBCC 6.02
Без инсталятора, но он, собственно, и не нужен.
jangle писал(а):Можешь на rghost.ru перезалить?
jangle писал(а):Smitis-R - спасибо!
Smitis-R писал(а):http://rl-team.net/1146574146-powerbasic-for-windows-v-1003-powerbasic-console-compiler-v-603.html
jangle писал(а):Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.
Smitis-R писал(а):Какое-то странное предвзятое мнение. И не файлообменник, а варезник. Не буду спорить насчёт rl-team, так как то же самое можно сказать о любом варезном сайте. А PB там есть.
jangle писал(а):Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.
HouseMD писал(а):добро пожаловать в Интернет.
iGrok писал(а):Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".
HouseMD писал(а):iGrok писал(а):Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".
добро пожаловать в дискуссию, которую ты начал читать с последнего поста. ok.
здесь обсуждается ссылка, вброшенная в топик юзером Smitis-R, а не торренты, летитбиты и депозиты. okay?
Подозреваю, что для зарегистрированных пользователей там как раз и будут ссылки на летитбит, депозит и остальные. Где-то уже такая система попадалась, и вполне соответствует тому, что написал iGrokВнимание! У вас нет прав для просмотра скрытого текста.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 52