Ładny brzuch
Witam
W jaki sposb wstawi obrazek do pojedyczej kratki komponentu DrawGrid1?
trzeba obsuy zdarzenie OnDrawDataCell
Sorki, jestem pocztkujcym programist. Mgby troch dokadniej wyjani w jaki sposb mam zastosowa t funkcj
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var bmp: TBitmap; begin if (ACol = 2) and (ARow = 2) then begin bmp := TBitmap.Create; try bmp.LoadFromFile('plik.bmp'); DrawGrid1.Canvas.Draw(Rect.Left, Rect.Top, bmp); finally FreeAndNil(bmp); end; end; end;
w komrce 2, 2 narysuje bmp odczytan z pliku
Uytkownik Misiekd edytowa ten post 24 kwiecie 2005, 20:15
niestety jest problem. Rysunek pojawia si zawsze w komrce 0, 0
Dziki misiek. Teraz wszystko dziaa jak trza !!!
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
W jaki sposb wstawi obrazek do pojedyczej kratki komponentu DrawGrid1?
trzeba obsuy zdarzenie OnDrawDataCell
Sorki, jestem pocztkujcym programist. Mgby troch dokadniej wyjani w jaki sposb mam zastosowa t funkcj
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var bmp: TBitmap; begin if (ACol = 2) and (ARow = 2) then begin bmp := TBitmap.Create; try bmp.LoadFromFile('plik.bmp'); DrawGrid1.Canvas.Draw(Rect.Left, Rect.Top, bmp); finally FreeAndNil(bmp); end; end; end;
w komrce 2, 2 narysuje bmp odczytan z pliku
Uytkownik Misiekd edytowa ten post 24 kwiecie 2005, 20:15
niestety jest problem. Rysunek pojawia si zawsze w komrce 0, 0
Dziki misiek. Teraz wszystko dziaa jak trza !!!