문자열 격자 셀에 이미지 삽입

Question

내 응용 프로그램에서 stringgrid를 사용합니다. 데이터는 데이터베이스 (백엔드 mysql)에서 가져와 stringgrid에 표시됩니다.

나는 각 행의 상태 셀에 이미지를 삽입 할 수 있습니다. 즉

 if status =online then -->image1 
     else --->image2 

누구나 어떻게해야합니까?

Answer 1

OnDrawCell 이벤트를 구현해야합니다.

예 :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Longint; 
    Rect: TRect; State: TGridDrawState); 
var 
    s: string; 
    aCanvas: TCanvas; 
begin 
    if (ACol <> 1) or (ARow = 0) then 
    Exit; 
    s := (Sender as TStringGrid).Cells[ACol, ARow]; 

    // Draw ImageX.Picture.Bitmap in all Rows in Col 1 
    aCanvas := (Sender as TStringGrid).Canvas; // To avoid with statement 
    // Clear current cell rect 
    aCanvas.FillRect(Rect); 
    // Draw the image in the cell 
    if (s = 'online') then 
    aCanvas.Draw(Rect.Left, Rect.Top, Image1.Picture.Bitmap) 
    else 
    aCanvas.Draw(Rect.Left, Rect.Top, Image2.Picture.Bitmap); 
end;