Окна и менюшки в ВР7

← →
syte_ser78 © (2004-01-19 14:41) [0]

Что посоветуете почитать по созданию окон и менюшек в текстовом режиме в ВР7.
Желательно по созданию их с нуля.

← →
Nikolay M. © (2004-01-19 14:44) [1]

Turbo Vision?

← →
PVOzerski © (2004-01-19 14:45) [2]

Справочники по TurboVision. Впрочем, естественно, TurboVision - не единственная библиотека, пригодная для этих целей. Есть, например, Turbo Professional от TurboPower, причем, если не ошибаюсь, она стала бесплатной.

← →
syte_ser78 © (2004-01-19 14:52) [3]

В програмировании я не то чтобы чайник, но и не спец. Пишу время от времени так как получается, и тоэтому хочу услышать ваши отзывы о таком коде:

Procedure Window_my(x,y,dx,dy,tc,bc:integer);
Var
i:integer;
begin
FullScreen; // мой аналог window(1,1,80,25);
TextColor(black);
for i:=0 to (dx) do
begin
gotoxy(x+1+i,y+dy);
write("І");
end;
for i:=0 to (dy-1) do
begin
gotoxy(x+1+dx,y+i+1);
write("І");
end;
FullScreen;
window(x,y,x+dx,y+dy);
TextColor(tc);
TextBackground(bc);
write("Й");
for i:=0 to (dx-2) do
begin
write("Н");
end;
write("»");
for i:=0 to (dy-3) do
begin
gotoxy(1,2+i);
write("є");
gotoxy(1+dx,2+i);
write("є");
end;
write("И");
for i:=0 to (dx-2) do
begin
write("Н");
end;
write("ј");
window(x+1,y+1,x+dx-1,y+dy-2);
TextColor(tc);
TextBackground(bc);
clrscr;
end;

ЗЫ. То что написано во Write - элементы псевдографики для рисования краев окна, вот так они после вставки из буфера выглядят :( Ну да это не столь важно.
Эта процедура выводит на экран окно с координатами XY , шириной/высотой DX|DY , цветом текста/фона TC|BC

Если в текстовом режиме и с нуля - crt.

> syte_ser78 © (19.01.04 14:41)
> Что посоветуете почитать по созданию окон и менюшек в текстовом
> режиме в ВР7.
> Желательно по созданию их с нуля.

Исходники Turbo Vision.

Окна и менюшки в ВР7 Найти похожие ветки