Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[4632] [답변] 바보래요/ string grid에 그림 넣기
nurisoft [ ] 2718 읽음    1998-09-23 18:09
답변이 될지 모르겠네요.
제가 전에 어느책에선가 본것인데..
다음과 같이 했던 것으로 기억합니다.
먼저 StringGrid에 이미지를 Object로 등록...

var
  Bitmap: TBitmap
begin
  Bitmap := TBitmap.Create;

  Bitmap.LoadFromFile('c:\bitmaps\Arrow.bmp');
  StringGrid1.Objects[0, 0] := Bitmap;
end;

그리고 출력은 OnDrawCell이벤트에서...
다음과 같이

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer
  Rect: TRect; State: TGridDrawState);
var
  Bit: TBitmap;
begin
  Bit := TBitmap(StringGrid1.Objects[ACol, ARow]);

  With StringGrid1.Canvas do
  begin
    Draw(Rect.Left+2, Rect.Top+2, Bit);
    TextOut(Rect.Left+Bit.Width, Rect.Top+3, StringGrid1.Cells[ARow, ACol]);
  end;
end;

오래전에 본것을 머리속으로만 하려니깐 좀 헤깔리네요.
혹 이것보다 더 좋은 방법이 있는지도 모르겠습니다.
음...도움이 될수 있을런지 모르겠지만 되었으면 좋겠네요.



+ -

관련 글 리스트
4632 [답변] 바보래요/ string grid에 그림 넣기 nurisoft 2718 1998/09/23
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.