paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Finishes the basic skeleton for position info, accelerometer and messaging, now it includes the lclintf skeleton

Browse Source 
git-svn-id: trunk@34467 -
This commit is contained in:
sekelsenmat 2011-12-28 10:43:25 +00:00
parent e762c4e425
commit 3f997f3ffd
5 changed files with 97 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/intfbaselcl.inc
View File

@ -517,6 +517,21 @@ begin
Result := False;
end;
procedure TWidgetSet.LazDeviceAPIs_RequestPositionInfo(AMethod: TLazPositionMethod);
begin
end;
procedure TWidgetSet.LazDeviceAPIs_SendMessage(AMsg: TLazDeviceMessage);
begin
end;
procedure TWidgetSet.LazDeviceAPIs_UpdateAccelerometerData();
begin
end;
function TWidgetSet.MoveWindowOrgEx(dc: hdc; dX,dY: Integer): boolean;
var
P: TPoint;

15
lcl/include/lclintf.inc
View File

@ -350,6 +350,21 @@ begin
Result := WidgetSet.IsDesignerDC(WindowHandle, DC);
end;
procedure LazDeviceAPIs_RequestPositionInfo(AMethod: TLazPositionMethod);
begin
Widgetset.LazDeviceAPIs_RequestPositionInfo(AMethod);
end;
procedure LazDeviceAPIs_SendMessage(AMsg: TLazDeviceMessage);
begin
Widgetset.LazDeviceAPIs_SendMessage(AMsg);
end;
procedure LazDeviceAPIs_UpdateAccelerometerData();
begin
Widgetset.LazDeviceAPIs_UpdateAccelerometerData();
end;
function MoveWindowOrgEx(dc: hdc; dX,dY: Integer): boolean;
begin
Result := WidgetSet.MoveWindowOrgEx(DC, dX, dY);

5
lcl/include/lclintfh.inc
View File

@ -91,9 +91,12 @@ function GetWindowRelativePosition(Handle : hwnd; var Left, Top: integer): boole
function IntfSendsUTF8KeyPress: Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} deprecated;
function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure LazDeviceAPIs_RequestPositionInfo(AMethod: TLazPositionMethod); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure LazDeviceAPIs_SendMessage(AMsg: TLazDeviceMessage); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure LazDeviceAPIs_UpdateAccelerometerData(); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

52
lcl/lazdeviceapis.pas
View File

@ -46,32 +46,6 @@ type
// TLazMessaging
TLazDeviceMessageKind = (dmkSMS, dmkMMS, dmkEMail);
{ TLazDeviceMessage }
TLazDeviceMessage = class
public
Kind: TLazDeviceMessageKind;
// The commends indicate in which message kind each field is available
// in this order: SMS MMS EMail
//bccAddress N N Y
Body: string; // Y Y Y
{callbackNumber Y N N
ccAddress N N Y}
destinationAddress: TstringList; // Y Y Y
{isRead Y Y Y
messageId Y Y Y
messagePriority Y Y Y
messageType Y Y Y
sourceAddress Y Y Y
Subject N Y Y
Time Y Y Y
validityPeriodHours Y N N}
constructor Create; virtual;
destructor Destroy; override;
end;
TLazMessageSendingStatus = (mssSuccess, mssGeneralError);
TOnMessageSendingFinished = procedure (AMessage: TLazDeviceMessage;
@ -84,7 +58,7 @@ type
FTOnMessageSendingFinished: TOnMessageSendingFinished;
public
// Attempt to send the specified message.
procedure sendMessage(AMsg: TLazDeviceMessage);
procedure SendMessage(AMsg: TLazDeviceMessage);
// Called asynchronously when the message sending is finished
property OnMessageSendingFinished: TOnMessageSendingFinished read FTOnMessageSendingFinished
write FTOnMessageSendingFinished;
@ -92,8 +66,6 @@ type
// TLazPositionInfo
TLazPositionMethod = (pmCellID, pmGPS, pmAGPS);
TOnPositionRetrieved = procedure of object;
TLazPositionInfo = class
@ -125,35 +97,21 @@ implementation
procedure TLazAccelerometer.UpdateAccelerometerData;
begin
//LCLIntf.UpdateAccelerometerData(Self);
LCLIntf.LazDeviceAPIs_UpdateAccelerometerData();
end;
{ TLazPositionInfo }
procedure TLazPositionInfo.RequestPositionInfo(AMethod: TLazPositionMethod);
begin
end;
{ TLazDeviceMessage }
constructor TLazDeviceMessage.Create;
begin
inherited Create;
destinationAddress := TStringList.Create;
end;
destructor TLazDeviceMessage.Destroy;
begin
destinationAddress.Free;
inherited Destroy;
LCLIntf.LazDeviceAPIs_RequestPositionInfo(AMethod);
end;
{ TLazMessaging }
procedure TLazMessaging.sendMessage(AMsg: TLazDeviceMessage);
procedure TLazMessaging.SendMessage(AMsg: TLazDeviceMessage);
begin
//LCLIntf.LazMessaging_SendMessage(Self, AMsg);
LCLIntf.LazDeviceAPIs_SendMessage(AMsg);
end;
initialization

58
lcl/lcltype.pp
View File

@ -96,6 +96,46 @@ type
TNativeCanvasType = (nctWindowsDC, nctLazCanvas);
TNativeCanvasTypes = set of TNativeCanvasType;
// Types for LazDeviceAPIs
TLazPositionMethodCriteria = (
// about quality
pmcBest, // Will try the best available quality
// about price
pmcMightCostMoney, // Might choose a position method which incurs money cost
// about speed
pmFastest,
// about one should try to select a method which gives speed measures
pmMustGiveSpeed
);
TLazPositionMethod = set of TLazPositionMethodCriteria;
{ TLazDeviceMessage }
TLazDeviceMessageKind = (dmkSMS, dmkMMS, dmkEMail);
TLazDeviceMessage = class
public
// The commends indicate in which message kind each field is available
// in this order: SMS MMS EMail
bccAddress: TStringList; // N N Y
Body: string; // Y Y Y
callbackNumber: string; // Y N N
ccAddress: TstringList; // N N Y
destinationAddress: TStringList; // Y Y Y
isRead: Boolean; // Y Y Y
messageId: string; // Y Y Y
//messagePriority Y Y Y
messageType: TLazDeviceMessageKind;//Y Y Y
sourceAddress: string; // Y Y Y
Subject: string; // N Y Y
Time: TDateTime; // Y Y Y
validityPeriod:TTime; // Y N N
constructor Create; virtual;
destructor Destroy; override;
end;
{$ifndef WINDOWS}
THandle = type PtrUInt; // define our own, because the SysUtils.THandle = System.THandle is a longint
HANDLE = THandle;
@ -3230,6 +3270,24 @@ begin
end;
{ TLazDeviceMessage }
constructor TLazDeviceMessage.Create;
begin
inherited Create;
bccAddress := TStringList.Create;
ccAddress := TStringList.Create;
destinationAddress := TStringList.Create;
end;
destructor TLazDeviceMessage.Destroy;
begin
bccAddress.Free;
ccAddress.Free;
destinationAddress.Free;
inherited Destroy;
end;
{ TListWithEvent }
procedure TListWithEvent.Notify(Ptr: Pointer; AnAction: TListNotification);