forum.boolean.name - Как создать интерфейс типа Excel-таблицы?

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Как создать интерфейс типа Excel-таблицы? (http://forum.boolean.name/showthread.php?t=4619)

Как создать интерфейс типа Excel-таблицы?

Коллеги, как создать интерфейс типа Excel-таблицы с возможностью навигации по ячейкам таблицы и ввода данных в них?

Re: Как создать интерфейс типа Excel-таблицы?

Вот например код для поля как в сапере, здесь можно использовать чтото подобное:

Код:

program NewProject;

var

x,y:integer;

ix,iy,oix,oiy:integer;

key:integer;



procedure drawbutton(x,y,w,h:integer;pressed:boolean);

begin

setcolor(128,128,128);

fillrect(x,y,w,h);

if pressed then

begin

setcolor(0,0,0);

drawline(x,y,x+w,y);

drawline(x,y,x,y+h);

setcolor(255,255,255);

drawline(x+w,y+h,x+w,y);

drawline(x+w,y+h,x,y+h);

end;



if not pressed then

begin

setcolor(255,255,255);

drawline(x,y,x+w,y);

drawline(x,y,x,y+h);

setcolor(0,0,0);

drawline(x+w,y+h,x+w,y);

drawline(x+w,y+h,x,y+h);

end;

end;





begin

iy:=1;

ix:=1;

oix:=1;

oiy:=1;

for y:= 1 to 10 do

for x:= 1 to 10 do

begin

drawbutton(x*10,y*10,9,9,false);

end;

repaint;

repeat



key:=getkeyclicked;

if key=ke_key6 then ix:=ix+1;

if key=ke_key4 then ix:=ix-1;

if key=ke_key2 then iy:=iy-1;

if key=ke_key8 then iy:=iy+1;



if key<>ke_none then

begin

drawbutton(ix*10,iy*10,9,9,true);

drawbutton(oix*10,oiy*10,9,9,false);

oix:=ix;

oiy:=iy;

repaint;

end;

key:=ke_none;

until key=ke_key0;



repaint;        

delay(20000);

end.

Re: Как создать интерфейс типа Excel-таблицы?

ViNT
Спасибо, буду пробовать.