| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

StringGrid

Страницы:   < 1 2 >

Barma ©   (2007-01-16 14:30:00) 

подскажите что сдесь нетак?
var
 Form1: TForm1;
 picture: array of TBitMap;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var X: integer;
begin
if OpenPictureDialog1.Execute then begin
 X := High(picture)+1;
 SetLength(Picture, X+1);
 Picture[X] := TBitMap.Create;
 Picture[X].LoadFromFile(OpenPictureDialog1.FileName);
 StringGrid1.ColCount := X;
 StringGrid1.Cells[X,1] := intTostr(X);
end;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
 var X: integer;
begin
if (ARow = 1) then begin
  X := strToint(StringGrid1.Cells[ACol,1]);
  StringGrid1.Canvas.StretchDraw(Rect,picture[X]);
  end;
  end;
end.

ошибку выдаёт :(

---

Palladin   (2007-01-16 15:38:00) [21]

> if (ARow = 1) then begin
>   X := strToint(StringGrid1.Cells[ACol,1]);
>   StringGrid1.Canvas.StretchDraw(Rect,picture[X]);
>   end;
>   end;

один лишний end, учись код свой сам в уме компилировать

---

clickmaker   (2007-01-16 15:36:00) [22]

а чего тут непонятного?

---

Barma   (2007-01-16 15:13:00) [23]

серьёзно подскажите не все же всё сразу понимают

---

Плохиш   (2007-01-16 15:03:00) [24]

> ошибку выдаёт :(

Предлагаешь пойти кофе заварить?

---

Страницы:   < 1 2 >

Наверх