Кинозал

[kalugin19]

Здравствуйте, подскажите, реально ли создать такую модель зала кинотеатра и сделать так, чтобы забронированные места (считываемые из файла) полностью закрашивались каким либо цветомзал.jpg

[type_Oleg]

Думаю, можно использовать StringGrid, и закрашивать его ячейки.

[Stilet]

Можно. Примерно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    procedure DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with DrawGrid1 do begin
    Align:=alClient;
    RowCount:=15;
    ColCount:=28;
    DefaultColWidth:=Width div ColCount;
    DefaultRowHeight:=Height div RowCount;
    FixedCols:=0;
    FixedRows:=0;
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  with DrawGrid1 do begin
    DefaultColWidth:=Width div ColCount;
    DefaultRowHeight:=Height div RowCount;
  end;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  with TStringGrid(sender).Canvas do begin
   if aRow=0 then Brush.Color:=clYellow else
     if (aRow>0) and (aRow<14) then Brush.Color:=clGreen else
       if aRow>13 then Brush.Color:=clBlue;
   if (aRow>0)and(aRow<8)and(aCol>7)and(aCol<23) then Brush.Color:=clGray;
   FillRect(aRect);
  end;
end;

end.

[kalugin19]

почему то у меня пустое окно запускается

я делаю в lazarus

[igh0st]

Можно выложить все места Panel и их красить в зависимости от условий. 1 место - 1 Panel.

[Stilet]

я делаю в lazarus

Аналогично. Научись сначала привязывать код к событиям потом окно будет рисоваться. Не зная этого дальше нет смысла практиковать. Я тебе просто дал предполагаемый код стратегии, а как ты им распорядишься дело твое.