想請問一下先進? 我想要把form.icon畫到form.canvas上 結果畫出來的大小是32x32, 使用方法如下： 發現範圍怎麼設都沒用，我是想要畫16x16大小 的圖示， 還請指點。謝謝!        

 
type TExeIcon=class(TIcon);
procedure TfmForm.paintIcon;
var
  LRect:TRect;
begin
  LRect:=Rect(20,0,36,16);////fbbTopHeight);
  TExeIcon(self.Icon).Draw(Canvas,LRect);
end;

    換個方式試試        procedure TfmForm.paintIcon; var   LRect:TRect; begin   LRect:=Rect(20,0,36,16);   Canvas.StretchDraw(LRect,self.Icon); end;    僅供參考,歡迎繼續發言願以此功德 莊嚴佛淨土 上報四重恩 下濟三塗苦 若有見聞者 悉發菩提心 盡此一報身 同生極樂國

------
︿︿

笨方法但測試可行 :

procedure TForm1.FormPaint(Sender: TObject);
var
bmp : Tbitmap;
begin
  bmp := Tbitmap.Create;
  try
    bmp.Height := 32;
    bmp.Width := 32;
    bmp.Canvas.Draw(0,0,Application.Icon);
    Canvas.StretchDraw(Rect(20,0,35,15),bmp);
  finally
    bmp.Free;
  end;
end;

我剛才也是試直接 StretchDraw 在 Canvas 但不成，所以才找估 TBitMap 做中間人。

DrawIconEx(     Canvas.Handle,        // handle to device context     0,        // x-coordinate of upper left corner     0,        // y-coordinate of upper left corner     ICON.Handle,        // handle to icon to draw     300,        // width of the icon     300,        // height of the icon     0,        // index of frame in animated cursor     0,        // handle to background brush     DI_IMAGE        // icon-drawing flags    );    Justmade 哥哥  我試可以ㄋㄟ ^_^     僅供參考,歡迎繼續發言願以此功德 莊嚴佛淨土 上報四重恩 下濟三塗苦 若有見聞者 悉發菩提心 盡此一報身 同生極樂國 發表人 - cmf 於 2003/05/22 18:57:21

------
︿︿

cmf 兄, 我試來試去都是不成的說....(無論用預設的 Application.icon 或 自行載入的 Self.Icon) 會不會是你載入那 icon 本身就是 16X16 的 ?    我這篇指的是 直接 StrechDraw 不是 DrawIconEx 發表人 - Justmade 於 2003/05/22 19:02:02

直接使用icon的話StrechDraw 偶也畫不出來 用DrawIconEx比較簡單，一行就行了。謝謝。