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

wince, qt: remove EventTrace method

Browse Source 
git-svn-id: trunk@29829 -
This commit is contained in:
paul 2011-03-14 02:38:46 +00:00
parent dd4583c8bf
commit 1f7c7a9d74
2 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -197,7 +197,6 @@ type
pTRect = ^TRect; pTRect = ^TRect;
procedure EventTrace(message : string; data : pointer);
function HwndFromWidgetH(const WidgetH: QWidgetH): HWND; function HwndFromWidgetH(const WidgetH: QWidgetH): HWND;
function DTFlagsToQtFlags(const Flags: Cardinal): Integer; function DTFlagsToQtFlags(const Flags: Cardinal): Integer;
function GetQtVersion: String; function GetQtVersion: String;
@ -302,11 +301,6 @@ begin
Result := Result or QtTextExpandTabs; Result := Result or QtTextExpandTabs;
end; end;
procedure EventTrace(message: string; data: pointer);
begin
end;
function QtObjectFromWidgetH(const WidgetH: QWidgetH): TQtWidget; function QtObjectFromWidgetH(const WidgetH: QWidgetH): TQtWidget;
var var
V: QVariantH; V: QVariantH;

18
lcl/interfaces/wince/winceproc.pp
View File

@ -53,7 +53,6 @@ type
function WM_To_String(WM_Message: Integer): string; function WM_To_String(WM_Message: Integer): string;
function WindowPosFlagsToString(Flags: UINT): string; function WindowPosFlagsToString(Flags: UINT): string;
procedure EventTrace(Message: String; Data: TObject);
procedure AssertEx(const Message: String; const PassErr: Boolean; procedure AssertEx(const Message: String; const PassErr: Boolean;
const Severity: Byte); const Severity: Byte);
procedure AssertEx(const PassErr: Boolean; const Message: String); procedure AssertEx(const PassErr: Boolean; const Message: String);
@ -373,23 +372,6 @@ begin
Result := FlagsStr; Result := FlagsStr;
end; end;
{------------------------------------------------------------------------------
Procedure: EventTrace
Params: Message - Event name
Data - Object which fired this event
Returns: Nothing
Displays a trace about an event
------------------------------------------------------------------------------}
procedure EventTrace(Message: String; Data: TObject);
Begin
If Data = Nil Then
//DebugLn(Format('Trace:Event [%S] fired', [Message]))
Else
//DebugLn(Format('Trace:Event [%S] fired for %S',[Message, Data.Classname]));
End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: AssertEx Function: AssertEx
Params: Message - Message sent Params: Message - Message sent