急切的询问,如何在kol_ce的窗体上面绘制位图文件,需要代码

sun_catboy

最近在搞WinCE的游戏,但是不知道如何能够打开一个位图,然后绘制到屏幕上,有知道的大侠请留言,谢谢了
我看了一些Lazarus kol的代码,如下,但是在ce上面没有反应,请各位帮帮忙,谢谢了


program KolBitmapDemo;

{$DEFINE UNICODE_CTRLS}
uses
Windows,
  Messages,
  Kol;


var
  //Applet,                {A main form or application}
  PaintBox:pControl;       {A simple static paintbox}
  Bit:pBitmap;          {A bitmap}
  Dialog:pOpenSaveDialog;  {Our FileOpen Dialog}
  Menu:pMenu;              {And a menu}
  //Bitmap2:pBitmap;
{
This handles the OnPaint event from the Paintbox
It draws the bitmap on the PaintBox's Canvas}

procedure paint(dummy:pointer;sender:pcontrol;DC:HDC);
//var Rect:Trect;
begin
  Bit.Draw(DC,0,0);
end;

{This handles the Menuclicks}
procedure MenuClick(dummy:pointer;sender:pmenu;Item:integer);
begin
  begin
    case item of
    1:begin
//        Dialog.execute;
//        Bit.Clear;
//        if Trim(Dialog.Filename)<> '' then
//        begin
//          {We have selected a file, Load it}
//          Bit.LoadFromFile(Dialog.Filename);
//          Applet.SimplestatusText:=ExtractFileNameWOExt(Dialog.Filename);
//          {Do some housekeeping}
//          PaintBox.Width:=BitMap.Width;
//          PaintBox.Height:=Bitmap.Height;
//          Applet.ClientHeight:=Bitmap.Height + Applet.Border * 2;//Resizeparent doesnot work
//        end;
      end;
    3:begin
        {Create simplest aboutbox}
        MsgOk('Kol Bitmap Viewer Demo'+
        #13#10+
        #13#10+
        'Does not support all palettes,'+
        #13#10+
        'so it may not always look good'+
        #13#10+
        #13#10+
        '(c)2001, Thaddy de Koning');
      end;
    end;
  end;
end;

begin
  {Create a form and set some defaults}
  Applet:=NewForm(Nil,'Kol Bitmap Viewer Demo').SetSize(400,250);
  Applet.CenterOnParent;
  {Create a statusbar to display filenames}
  Applet.SimplestatusText:='';

  {Create a FileOpen Dialog}
  Dialog:=NewOpenSaveDialog('Image','',[]);
  Dialog.Filename:='';
  Dialog.Filter:='Bitmap files|*.bmp';

  {Create a menu with just one item:File}
  {Menu:=}NewMenu(Applet,0,['&File','(','&Open',')','&Help','(','&About',')',''],TonMenuItem(MakeMethod(nil,@MenuClick)));

  {Create the Paintbox to draw the bitmap on}
  PaintBox:=NewPaintbox(Applet).setalign(caClient);
  PaintBox.OnPaint:=TOnPaint(MakeMethod(nil,@Paint));
  Paintbox.Transparent:=true;

  {Create the bitmap itself}
  Bit:=NewBitMap(0,0);

  {Show some 'Art' by Thaddy de Koning}
  If FileExists('Kol.bmp')
    then Bit.LoadfromFile('Kol.bmp');

  {Run our application}
  Run(Applet);

  {Free the bitmap:it has no parent}
  Bit.free;
  {Free the dialog:it has no parent}
  Dialog.free;
end.

ilost

我也想知道，原来的方法无效