Форум: "Потрепаться";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];
ВнизОкна и менюшки в ВР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
← →
Думкин (2004-01-19 18:26) [4]Если в текстовом режиме и с нуля - crt.
← →
Verg (2004-01-19 18:34) [5]
> syte_ser78 © (19.01.04 14:41)
> Что посоветуете почитать по созданию окон и менюшек в текстовом
> режиме в ВР7.
> Желательно по созданию их с нуля.
Исходники Turbo Vision.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c