Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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
1-29311
Millennium
2004-01-27 23:28
2004.02.10
скрипты


1-29345
Unax
2004-01-29 01:24
2004.02.10
MDI приложение


9-29192
McSimm2
2003-07-29 10:40
2004.02.10
Simple Miner


14-29572
funtik
2004-01-20 12:04
2004.02.10
Интернет Эксплорер


1-29360
Anton.
2004-01-29 11:30
2004.02.10
TApplication





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский