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

AJ: minor fixes for FPC 1.1

Browse Source 
git-svn-id: trunk@1026 -
This commit is contained in:
lazarus 2002-02-09 01:47:40 +00:00
parent 612201a886
commit c4252e6d98
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3084,7 +3084,7 @@ begin
QueueItem:=FMessageQueue.First;
while (QueueItem<>nil) do begin
MsgPtr := PMsg(QueueItem^.Data);
if (MsgPtr^.HWnd=Handle) then begin
if (MsgPtr^.hWnd=Handle) then begin
// remove message
if (MsgPtr^.Message=LM_PAINT) or (MsgPtr^.Message=LM_GtkPAINT) then begin
FPaintMessages.Remove(QueueItem);
@ -4969,7 +4969,7 @@ var
begin
aDC := TDeviceContext(TCanvas(Sender).Handle);
if aDC = nil then exit;
Widget := PgtkWidget(aDC.HWnd);
Widget := PgtkWidget(aDC.Wnd);
Image := gtk_Object_get_data(pgtkobject(widget),'Image');
if Image = nil then begin
@ -5015,7 +5015,7 @@ var
begin
aDC := TDeviceContext(TCanvas(Sender).Handle);
if aDC = nil then exit;
Widget := PgtkWidget(aDC.HWnd);
Widget := PgtkWidget(aDC.Wnd);
Image := gtk_Object_get_data(pgtkobject(Widget),'Image');
if Image = nil then begin
@ -5839,7 +5839,7 @@ begin
aDC := nil;
aDC := NewDC;
aDC.hWnd := HWND(TheWidget);
aDC.Wnd := HWND(TheWidget);
if TheWidget = nil
then begin
@ -6088,7 +6088,7 @@ end;
function TgtkObject.HashPaintMessage(p: pointer): integer;
var h: integer;
begin
h:=PMsg(PLazQueueItem(p)^.Data)^.HWnd;
h:=PMsg(PLazQueueItem(p)^.Data)^.hWnd;
if h<0 then h:=-h;
Result:=((h mod 5364329)+(h mod 17)) mod FPaintMessages.Capacity;
end;
@ -6110,12 +6110,12 @@ begin
HashItem:=FPaintMessages.GetHashItem(h);
if HashItem<>nil then begin
Result:=PLazQueueItem(HashItem^.Item);
if PMsg(Result^.Data)^.HWnd=HandleWnd then
if PMsg(Result^.Data)^.hWnd=HandleWnd then
exit;
HashItem:=HashItem^.Next;
while (HashItem<>nil) and (HashItem^.IsOverflow) do begin
Result:=PLazQueueItem(HashItem^.Item);
if PMsg(Result^.Data)^.HWnd=HandleWnd then
if PMsg(Result^.Data)^.hWnd=HandleWnd then
exit;
HashItem:=HashItem^.Next;
end;
@ -6535,6 +6535,9 @@ end;
{ =============================================================================
$Log$
Revision 1.255 2002/10/20 19:03:56 lazarus
AJ: minor fixes for FPC 1.1
Revision 1.254 2002/10/18 16:08:10 lazarus
AJ: Partial HintWindow Fix; Added Screen.Font & Font.Name PropEditor; Started to fix ComboBox DropDown size/pos