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

added Timer patch from Vincent Snijders

Browse Source 
git-svn-id: trunk@2301 -
This commit is contained in:
mattias 2002-08-17 23:41:14 +00:00
parent bcba8e1353
commit 37e89aa9ff
2 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/winapi.inc
View File

@ -508,11 +508,6 @@ begin
Result := InterfaceObject.InvalidateRect(aHandle, Rect, bErase);
end;
function KillTimer (hWnd : HWND; uIDEvent : cardinal) : boolean;
begin
Result := InterfaceObject.KillTimer(hWnd, uIDEvent);
end;
function LineTo(DC: HDC; X, Y: Integer): Boolean;
begin
Result := InterfaceObject.LineTo(DC, X, Y);
@ -833,11 +828,6 @@ begin
Result := InterfaceObject.SetTextColor(DC, Color);
end;
function SetTimer(hWnd: HWND; nIDEvent, uElapse: integer; lpTimerFunc: TFNTimerProc) : integer;
begin
Result := InterfaceObject.SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc);
end;
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): LongInt;
begin
Result := InterfaceObject.SetWindowLong(handle, Idx, NewLong);
@ -1386,6 +1376,9 @@ end;
{ =============================================================================
$Log$
Revision 1.62 2002/11/23 13:48:44 mattias
added Timer patch from Vincent Snijders
Revision 1.61 2002/11/09 15:02:07 lazarus
MG: fixed LM_LVChangedItem, OnShowHint, small bugs

6
lcl/include/winapih.inc
View File

@ -144,8 +144,6 @@ Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolea
//function IsCharAlphaNumeric --> independent
//function IsRectEmpty --> independent
function KillTimer (hWnd : HWND; uIDEvent : cardinal) : boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LineTo(DC: HDC; X, Y: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function LoadStockPixmap(StockID: longint) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -205,7 +203,6 @@ function SetScrollInfo(Handle: HWND; SBStyle : Integer; ScrollInfo: TScrollInfo;
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetTimer(hWnd: HWND; nIDEvent, uElapse: integer; lpTimerFunc: TFNTimerProc) : integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; var OldPoint: TPoint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
@ -336,6 +333,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
{ =============================================================================
$Log$
Revision 1.55 2002/11/23 13:48:44 mattias
added Timer patch from Vincent Snijders
Revision 1.54 2002/11/09 15:02:07 lazarus
MG: fixed LM_LVChangedItem, OnShowHint, small bugs