Добрый день.
Суть программы такая: есть торговая площадь. Загружается карта этажа, на ней отмечается где площадь свободна, где занята, где лишние куски, где проходы и т.д.
Не могу реализовать следующее: Ввожу в один из Edit площадь (Н: 50 кв.м), надо чтобы на карте все "свободные" места, в которые эта площадь влезает как-то выделились (например приобрели другой цвет или рамочку вокруг).
Пример:
Мне нужно поселить арендатора, которому нужна площадь 100 кв. м.
Каждый квадрат на карте означает 75 кв.м., то есть, надо чтобы как-то выделились 2 квадрата с желтым цветом (причем эти квадраты должны стоять рядом друг с другом).
Пыталась сделать что-то такое:
| Код |
procedure TForm1.Button6Click(Sender: TObject);
var pl,sr,xx,yy:integer;
begin
xx:=(z div 2); //z - сторона клетки
yy:=(z div 2);
sr:=(z div 2);
pl:=strtoint(Edit10.Text); //"вносимая" площадь
if x<form1.Image1.Height then
begin
If y<Form1.Image1.Width then
begin
if pl<z then begin
for i:=0 to h do
for j:=0 to w do
begin
Image1.Canvas.Pixels[xx,yy];
if sta=1 then begin
Form1.Image1.Canvas.Brush.Color:= clAqua;
Image1.Canvas.Rectangle(xx-sr,yy-sr,xx+sr,yy+sr);
END
else if (pl>z) and (pl<2*z) then begin
Form1.Image1.Canvas.Pixels[xx,yy];
if sta=1 then begin
Form1.Image1.Canvas.Pixels[xx,yy-z];
if sta=1 then begin
Form1.Image1.Canvas.Brush.Color:= clAqua;
Image1.Canvas.Rectangle(xx-sr,yy-3*sr,xx+sr,yy+sr);
end else
Form1.Image1.Canvas.Pixels[xx-z,yy];
if sta=1 then begin
Form1.Image1.Canvas.Brush.Color:= clAqua;
Image1.Canvas.Rectangle(xx-3*sr,yy-sr,xx+sr,yy+sr);
end else
Form1.Image1.Canvas.Pixels[xx,yy+z];
if sta=1 then begin
Form1.Image1.Canvas.Brush.Color:= clAqua;
Image1.Canvas.Rectangle(xx-sr,yy-sr,xx+sr,yy+3*sr);
end else
Form1.Image1.Canvas.Pixels[xx+z,yy];
if sta=1 then begin
Form1.Image1.Canvas.Brush.Color:= clAqua;
Image1.Canvas.Rectangle(xx-sr,yy-sr,xx+3*sr,yy+sr);
end; end;end; end;
end; y:=y+z;
end; x:=x+z;
end; end;
end.
|
Эта процедура не работает и она плохая, ведь квадратов, которые надо выделить, может быть и 1, и 2, и 22.
P.S. Вот такой зубастый курсач. |