[fpc-pascal] WinCE api calls info

[Paul]

----- Original Message ----- 
From: "Felipe Monteiro de Carvalho" <felipemonteiro.carvalho at gmail.com>
To: "FPC-Pascal users discussions" <fpc-pascal at lists.freepascal.org>
Sent: Saturday, September 13, 2008 11:01 PM
Subject: Re: [fpc-pascal] WinCE api calls info


> Please copy here your entire unit.
>

{$mode objfpc}{$H+}

{.$smartlink on}
{.$DEFINE RELEASE}
{.$FPC_LINK_SMART}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, 
StdCtrls,
  ExtCtrls, windows;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }


procedure captureScreen;
var
  MyBitmap: TBitmap;
  ScreenDC: HDC;
begin
  MyBitmap := TBitmap.create;
  ScreenDC := GetDC(0);
  MyBitmap.LoadFromDevice(ScreenDC);
  ReleaseDC(ScreenDC);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
 Mouse.CursorPos:= point(10, 10);
//  WidgetSet.setcursorpos(10, 10);  //  uses InterfaceBase
end;