在drawgrid中顯示一個表中的一系列圖檔的問題 |
|
尚未結案
|
|
wuherong2000
一般會員   發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
我用的是delphi7，我有一個表格含有一個type,image欄位，現我想把這些圖檔按type分組顯示在一個drawgrid中，請問我該如何做呢，我參照一位前輩的敘述：
public
images:Timagelist;
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
var
i,count:integer;
bmp:Tbitmap;
bmpstr:string;
begin
images:=Timagelist.Create(self);
count:=drawgrid1.ColCount * drawgrid1.RowCount ;
for i:=0 to count-1 do begin
bmp:=Tbitmap.Create ;
images.Add(bmp,nil);
end;
end; procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i:integer;
bmp:Tbitmap;
begin
{i:=ARow*drawgrid1.ColCount + ACol;
images.GetBitmap(i,bmp);//這裡報錯，不能執行
drawgrid1.Canvas.Draw(rect.Left,rect.Top,bmp); }
end;
結果上面提示處出錯，
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i: integer;
bmp: Tbitmap;
begin
bmp := TBitmap.Create;
try
i := ARow*drawgrid1.ColCount ACol;
images.GetBitmap(i, bmp);
drawgrid1.Canvas.Draw(rect.Left, rect.Top, bmp);
finally
bmp.Free;
end;
end;
---
--<-<-<@
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
發表時間：2003-08-11 17:00:11
IP:211.162.xxx.xxx 未訂閱
系統時間：2025-02-26 14:08:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |