paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 05:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: skeleton for various process events

Browse Source 
git-svn-id: trunk@14606 -
This commit is contained in:
paul 2008-03-21 10:42:22 +00:00
parent 51f3aeafa9
commit f24ba44520
4 changed files with 48 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtint.pp
View File

@ -48,7 +48,6 @@ uses
qtproc;
type
{ TQtWidgetSet }
TQtWidgetSet = Class(TWidgetSet)
@ -134,7 +133,7 @@ type
type
TEventProc = record
Name : String[25];
CallBack : Procedure(Data : TObject);
CallBack : procedure(Data : TObject);
Data : Pointer;
end;

36
lcl/interfaces/qt/qtlclintf.inc
View File

@ -30,6 +30,27 @@
//##apiwiz##sps## // Do not remove
function TQtWidgetSet.AddEventHandler(AHandle: THandle; AFlags: dword;
AEventHandler: TWaitHandleEvent; AData: PtrInt): PEventHandler;
begin
// todo
Result := nil;
end;
function TQtWidgetSet.AddPipeEventHandler(AHandle: THandle;
AEventHandler: TPipeEvent; AData: PtrInt): PPipeEventHandler;
begin
// todo
Result := nil;
end;
function TQtWidgetSet.AddProcessEventHandler(AHandle: THandle;
AEventHandler: TChildExitEvent; AData: PtrInt): PProcessEventHandler;
begin
// todo
Result := nil;
end;
{------------------------------------------------------------------------------
Function: CreateStandardCursor
Params:
@ -540,6 +561,21 @@ begin
Result := 1;
end;
procedure TQtWidgetSet.RemoveEventHandler(var AHandler: PEventHandler);
begin
// todo
end;
procedure TQtWidgetSet.RemovePipeEventHandler(var AHandler: PPipeEventHandler);
begin
// todo
end;
procedure TQtWidgetSet.RemoveProcessEventHandler(var AHandler: PProcessEventHandler);
begin
// todo
end;
function TQtWidgetSet.TextUTF8Out(DC: HDC; X, Y: Integer; Str: PChar; Count: Longint): Boolean;
begin
Result := False;

11
lcl/interfaces/qt/qtlclintfh.inc
View File

@ -30,6 +30,13 @@
//##apiwiz##sps## // Do not remove
function AddEventHandler(AHandle: THandle; AFlags: dword;
AEventHandler: TWaitHandleEvent; AData: PtrInt): PEventHandler; override;
function AddPipeEventHandler(AHandle: THandle;
AEventHandler: TPipeEvent; AData: PtrInt): PPipeEventHandler; override;
function AddProcessEventHandler(AHandle: THandle;
AEventHandler: TChildExitEvent; AData: PtrInt): PProcessEventHandler; override;
function CreateStandardCursor(ACursor: SmallInt): hCursor; override;
procedure DrawArrow(Arrow: TComponent; Canvas: TPersistent); override;
procedure DrawDefaultDockImage(AOldRect, ANewRect: TRect; AOperation: TDockImageOperation); override;
@ -60,6 +67,10 @@ function RawImage_FromBitmap(out ARawImage: TRawImage; ABitmap, AMask: HBITMAP;
function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TRect): Boolean; override;
function ReleaseDesignerDC(Window: HWND; DC: HDC): Integer; override;
procedure RemoveEventHandler(var AHandler: PEventHandler); override;
procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
function TextUTF8Out(DC: HDC; X, Y: Integer; Str: PChar; Count: Longint): Boolean; override;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line

6
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4702,9 +4702,3 @@ begin
end;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line