pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz, fix 64 bit compile

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1016 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2009-11-23 18:01:51 +00:00
parent 7ff8d383ef
commit 11698c0782
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/jvcllaz/run/JvExControls.pas
View File

@ -132,8 +132,8 @@ type
procedure DrawDotNetControl(Control: TWinControl; AColor: TColor; InControl: Boolean); procedure DrawDotNetControl(Control: TWinControl; AColor: TColor; InControl: Boolean);
procedure HandleDotNetHighlighting(Control: TWinControl; const Msg: TLMessage; procedure HandleDotNetHighlighting(Control: TWinControl; const Msg: TLMessage;
MouseOver: Boolean; Color: TColor); MouseOver: Boolean; Color: TColor);
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: Longint): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF} function CreateWMMessage(Msg: Integer; WParam: PtrInt; LParam: PtrInt): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: TControl): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF} function CreateWMMessage(Msg: Integer; WParam: PtrInt; LParam: TControl): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
function SmallPointToLong(const Pt: TSmallPoint): Longint; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF} function SmallPointToLong(const Pt: TSmallPoint): Longint; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
function ShiftStateToKeyData(Shift: TShiftState): Longint; function ShiftStateToKeyData(Shift: TShiftState): Longint;
@ -162,8 +162,8 @@ type
FOnMouseEnter: TNotifyEvent; FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent; FOnMouseLeave: TNotifyEvent;
FOnParentColorChanged: TNotifyEvent; FOnParentColorChanged: TNotifyEvent;
function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: PtrInt = 0; LParam: Longint = 0): Integer; overload;
function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Ptrint; LParam: TControl): Integer; overload;
function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer;
protected protected
procedure WndProc(var Msg: TLMessage); override; procedure WndProc(var Msg: TLMessage); override;
@ -347,7 +347,7 @@ end;
begin begin
end; end;
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: Longint): TLMessage; function CreateWMMessage(Msg: Integer; WParam: PtrInt; LParam: PtrInt): TLMessage;
begin begin
Result.Msg := Msg; Result.Msg := Msg;
Result.WParam := WParam; Result.WParam := WParam;
@ -355,9 +355,9 @@ begin
Result.Result := 0; Result.Result := 0;
end; end;
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: TControl): TLMessage; function CreateWMMessage(Msg: Integer; WParam: PtrInt; LParam: TControl): TLMessage;
begin begin
Result := CreateWMMessage(Msg, WParam, Integer(LParam)); Result := CreateWMMessage(Msg, WParam, Ptrint(LParam));
end; end;
{ TStructPtrMessage } { TStructPtrMessage }
@ -366,7 +366,7 @@ begin
inherited Create; inherited Create;
Self.Msg.Msg := AMsg; Self.Msg.Msg := AMsg;
Self.Msg.WParam := WParam; Self.Msg.WParam := WParam;
Self.Msg.LParam := Longint(@LParam); Self.Msg.LParam := PtrInt(@LParam);
Self.Msg.Result := 0; Self.Msg.Result := 0;
end; end;
@ -452,7 +452,7 @@ begin
if Assigned(AControl) and Assigned(AControl.Parent) then if Assigned(AControl) and Assigned(AControl.Parent) then
begin begin
AHintInfo := HintInfo; AHintInfo := HintInfo;
AControl.Parent.Perform(CM_HINTSHOW, 0, Integer(@AHintInfo)); AControl.Parent.Perform(CM_HINTSHOW, 0, PtrInt(@AHintInfo));
HintInfo.HintColor := AHintInfo.HintColor; HintInfo.HintColor := AHintInfo.HintColor;
end; end;
end; end;
@ -760,7 +760,7 @@ begin
FHintColor := clDefault; FHintColor := clDefault;
end; end;
function TJvExCustomControl.BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; function TJvExCustomControl.BaseWndProc(Msg: Integer; WParam: PtrInt = 0; LParam: Longint = 0): Integer;
var var
Mesg: TLMessage; Mesg: TLMessage;
begin begin
@ -769,7 +769,7 @@ begin
Result := Mesg.Result; Result := Mesg.Result;
end; end;
function TJvExCustomControl.BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; function TJvExCustomControl.BaseWndProc(Msg: Integer; WParam: PtrInt; LParam: TControl): Integer;
var var
Mesg: TLMessage; Mesg: TLMessage;
begin begin
@ -914,17 +914,17 @@ end;
procedure TJvExCustomControl.ControlsListChanging(Control: TControl; Inserting: Boolean); procedure TJvExCustomControl.ControlsListChanging(Control: TControl; Inserting: Boolean);
begin begin
if Inserting then if Inserting then
BaseWndProc(CM_CONTROLLISTCHANGE, Integer(Control), Integer(Inserting)) BaseWndProc(CM_CONTROLLISTCHANGE, PtrInt(Control), Integer(Inserting))
else else
BaseWndProc(CM_CONTROLCHANGE, Integer(Control), Integer(Inserting)); BaseWndProc(CM_CONTROLCHANGE, PtrInt(Control), Integer(Inserting));
end; end;
procedure TJvExCustomControl.ControlsListChanged(Control: TControl; Inserting: Boolean); procedure TJvExCustomControl.ControlsListChanged(Control: TControl; Inserting: Boolean);
begin begin
if not Inserting then if not Inserting then
BaseWndProc(CM_CONTROLLISTCHANGE, Integer(Control), Integer(Inserting)) BaseWndProc(CM_CONTROLLISTCHANGE, PtrInt(Control), Integer(Inserting))
else else
BaseWndProc(CM_CONTROLCHANGE, Integer(Control), Integer(Inserting)); BaseWndProc(CM_CONTROLCHANGE, PtrInt(Control), Integer(Inserting));
end; end;
procedure TJvExCustomControl.GetDlgCode(var Code: TDlgCodes); procedure TJvExCustomControl.GetDlgCode(var Code: TDlgCodes);