draw grid

0

znalazłem arta na temat wgrywania do draw grid bitmap ale nie działa mi
mamy draw grida 5 na 5
we wszystkich polach ma byc wyświetlony rysunek aa.bmp
w polach po przekatnej bb.bmp
rozmiar komórki to 32 na 32
proszę o pomoc

0

Z tego co pamietam to wystarczy to kopiowanie bitmap umiescic w zdarzeniu onDrawCell

0

miszczu prosiłbym jak krowie na rowie mi to pokazać, tj przykładem poprzeć bo nie wiem co dokładnie
w ondrawcell robie co? cell.loadfromfile?

0

procedure TForm1.FormCreate(Sender: TObject);
var
I,II:integer;
begin
cell:=Tbitmap.Create;
cell.Width:=32;
cell.Height:=32;

for I:=1 to dg.rowcount-1 do
for II:=1 to dg.colcount-1 do
begin
cell.LoadFromFile(extractfiledir(application.ExeName)+''+inttostr(map[II,I])+'.bmp');

dg.Canvas.stretchdraw(dg.CellRect(I,II),cell);

end;
end;

czemu to nie działa

0

<font color="green">cell.LoadFromFile(extractfiledir(application.ExeName)+''+inttostr(map[II,I])+'.bmp');</span>

Co to jest map[II, I] ?? .. a w ogóle to ExtractFileDir wyciąga scieżke bez znaku \ na końcu, więc radzę Ci wstawić po tej linii:

ShowMessage(extractfiledir(application.ExeName)+''+inttostr(map[II,I])+'.bmp'));

.. i sprawdzić, czy dobrze określasz ścieżkę do pliku...

0

wiecie co? ale ze mnie [CENZURA] ... już mi wszystko działa :]

1 użytkowników online, w tym zalogowanych: 0, gości: 1