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

MG: reduced compiler warnings

Browse Source 
git-svn-id: trunk@889 -
This commit is contained in:
lazarus 2002-02-09 01:47:15 +00:00
parent f4c44fae10
commit 66b574b3b8
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/control.inc
View File

@ -638,11 +638,11 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMLButtonDown(var Message: TLMLButtonDown);
begin
Writeln('TCONTROL WMLBUTTONDOWN 1');
// Writeln('TCONTROL WMLBUTTONDOWN 1');
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then Include(FControlState, csClicked);
DoMouseDown(Message, mbLeft, []);
Writeln('TCONTROL WMLBUTTONDOWN 2');
// Writeln('TCONTROL WMLBUTTONDOWN 2');
end;
{------------------------------------------------------------------------------
@ -678,10 +678,10 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMLButtonDblClk(var Message: TLMLButtonDblClk);
begin
//TODO: SendCancelMode(self);
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then DblClick;
DoMouseDown(Message, mbleft ,[ssDouble]);
//TODO: SendCancelMode(self);
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then DblClick;
DoMouseDown(Message, mbleft ,[ssDouble]);
end;
{------------------------------------------------------------------------------
@ -718,7 +718,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMLButtonUp(var Message: TLMLButtonUp);
begin
Writeln('TCONTROL WMLBUTTONUP 1');
// Writeln('TCONTROL WMLBUTTONUP 1');
if csCaptureMouse in ControlStyle then
MouseCapture := False;
@ -731,8 +731,7 @@ begin
end;
end;
DoMouseUp(Message, mbLeft);
Writeln('TCONTROL WMLBUTTONUP 2');
// Writeln('TCONTROL WMLBUTTONUP 2');
end;
{------------------------------------------------------------------------------
@ -747,7 +746,6 @@ begin
// inherited;
DoMouseUp(Message, mbRight);
if Message.Result = 0 then CheckMenuPopup(Message.pos);
end;
{------------------------------------------------------------------------------
@ -767,7 +765,7 @@ end;
{------------------------------------------------------------------------------}
Procedure TControl.Click;
Begin
if Assigned (FOnClick) then FOnClick(Self);
if Assigned (FOnClick) then FOnClick(Self);
end;
{------------------------------------------------------------------------------}
@ -775,7 +773,7 @@ end;
{------------------------------------------------------------------------------}
procedure TControl.AddControl;
begin
CNSendMessage(LM_AddChild, Self, nil);
CNSendMessage(LM_AddChild, Self, nil);
end;
{------------------------------------------------------------------------------}
@ -1506,6 +1504,9 @@ end;
{ =============================================================================
$Log$
Revision 1.40 2002/03/27 08:57:16 lazarus
MG: reduced compiler warnings
Revision 1.39 2002/03/25 17:59:20 lazarus
GTK Cleanup
Shane

9
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -34,7 +34,7 @@ function CreateCompatibleDC(DC: HDC): HDC; override;
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
function CreatePenIndirect(const LogPen: TLogPen): HPEN; override;
function CreatePixmapIndirect(const Data: Pointer; const TransColor: Longint): HBITMAP; override;
function CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
function CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN; override;
function DeleteDC(hDC: HDC): Boolean; override;
function DeleteObject(GDIObject: HGDIOBJ): Boolean; override;
@ -84,7 +84,7 @@ function MaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YS
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer; override;
function MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint): Boolean; override;
function PeekMessage(var lpMsg : TMsg; Handle : HWND; wMsgFilterMin, wMsgFilterMax,wRemoveMsg : UINT): Boolean;
function PeekMessage(var lpMsg : TMsg; Handle : HWND; wMsgFilterMin, wMsgFilterMax,wRemoveMsg : UINT): Boolean; override;
function Pie(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean; override;
function Polygon(DC: HDC; Points: PPoint; NumPts: Integer; Winding: boolean): boolean; override;
function Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean; override;
@ -115,7 +115,7 @@ function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues)
Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; override;
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; override;
function SetTimer(hWnd: HWND; nIDEvent, uElapse: integer; lpTimerFunc: TFNTimerProc) : integer; override;
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): LongInt;
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): LongInt; override;
function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; var Point: TPoint) : Boolean; override;
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
X, Y, cx, cy: Integer; uFlags: UINT): Boolean; override;
@ -133,6 +133,9 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
{ =============================================================================
$Log$
Revision 1.25 2002/03/27 08:57:17 lazarus
MG: reduced compiler warnings
Revision 1.24 2002/02/03 00:24:02 lazarus
TPanel implemented.
Basic graphic primitives split into GraphType package, so that we can