----- Original Message ----- From: "Felipe Monteiro de Carvalho" <[EMAIL PROTECTED]>
To: "FPC-Pascal users discussions" <fpc-pascal@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;


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to