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

win32: cleanup win32proc - remove unused code

Browse Source 
git-svn-id: trunk@30286 -
This commit is contained in:
paul 2011-04-14 00:33:12 +00:00
parent fa1cd514a0
commit 26ede9d979
1 changed files with 2 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
lcl/interfaces/win32/win32proc.pp
View File

@ -76,20 +76,12 @@ Type
function WM_To_String(WM_Message: Integer): string;
function WindowPosFlagsToString(Flags: UINT): string;
procedure AssertEx(const Message: String; const PassErr: Boolean;
const Severity: Byte);
procedure AssertEx(const PassErr: Boolean; const Message: String);
procedure AssertEx(const Message: String);
function GetShiftState: TShiftState;
procedure CallEvent(const Target: TObject; Event: TNotifyEvent;
const Data: Pointer; const EventType: TEventType);
function ObjectToHWND(const AObject: TObject): HWND;
function LCLControlSizeNeedsUpdate(Sender: TWinControl;
SendSizeMsgOnDiff: boolean): boolean;
function LCLControlSizeNeedsUpdate(Sender: TWinControl; SendSizeMsgOnDiff: boolean): boolean;
function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
procedure LCLBoundsToWin32Bounds(Sender: TObject;
var Left, Top, Width, Height: Integer);
procedure LCLBoundsToWin32Bounds(Sender: TObject; var Left, Top, Width, Height: Integer);
procedure Win32PosToLCLPos(Sender: TObject; var Left, Top: SmallInt);
procedure GetWin32ControlPos(Window, Parent: HWND; var Left, Top: integer);
@ -529,67 +521,6 @@ begin
Result := FlagsStr;
end;
{------------------------------------------------------------------------------
function: AssertEx
Params: Message - Message sent
PassErr - Pass error to a catching procedure (default: False)
Severity - How severe is the error on a scale from 0 to 3
(default: 0)
Returns: Nothing
An expanded, better version of Assert
------------------------------------------------------------------------------}
procedure AssertEx(const Message: String; const PassErr: Boolean; const Severity: Byte);
begin
Case Severity Of
0:
begin
Assert(PassErr, Message);
end;
1:
begin
Assert(PassErr, Format('Trace:%S', [Message]));
end;
2:
begin
Case IsConsole Of
True:
begin
WriteLn(rsWin32Warning, Message);
end;
False:
begin
MessageBox(0, PChar(Message), PChar(rsWin32Warning), MB_OK);
end;
end;
end;
3:
begin
Case IsConsole Of
True:
begin
WriteLn(rsWin32Error, Message);
end;
False:
begin
MessageBox(0, PChar(Message), nil, MB_OK);
end;
end;
end;
end;
end;
procedure AssertEx(const PassErr: Boolean; const Message: String);
begin
AssertEx(Message, PassErr, 0);
end;
procedure AssertEx(const Message: String);
begin
AssertEx(Message, False, 0);
end;
{------------------------------------------------------------------------------
function: GetShiftState
Params: None
@ -652,29 +583,6 @@ begin
end;
}
{-----------------------------------------------------------------------------
procedure: CallEvent
Params: Target - the object for which the event will be called
Event - event to call
Data - misc data
EventType - the type of event
Returns: Nothing
Calls an event
-------------------------------------------------------------------------------}
procedure CallEvent(const Target: TObject; Event: TNotifyEvent; const Data: Pointer; const EventType: TEventType);
begin
if Assigned(Target) And Assigned(Event) then
begin
Case EventType Of
etNotify:
begin
Event(Target);
end;
end;
end;
end;
{------------------------------------------------------------------------------
function: ObjectToHWND
Params: AObject - An LCL Object