paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 08:00:45 +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; QueueItem:=FMessageQueue.First;
while (QueueItem<>nil) do begin while (QueueItem<>nil) do begin
MsgPtr := PMsg(QueueItem^.Data); MsgPtr := PMsg(QueueItem^.Data);
if (MsgPtr^.HWnd=Handle) then begin if (MsgPtr^.hWnd=Handle) then begin
// remove message // remove message
if (MsgPtr^.Message=LM_PAINT) or (MsgPtr^.Message=LM_GtkPAINT) then begin if (MsgPtr^.Message=LM_PAINT) or (MsgPtr^.Message=LM_GtkPAINT) then begin
FPaintMessages.Remove(QueueItem); FPaintMessages.Remove(QueueItem);
@ -4969,7 +4969,7 @@ var
begin begin
aDC := TDeviceContext(TCanvas(Sender).Handle); aDC := TDeviceContext(TCanvas(Sender).Handle);
if aDC = nil then exit; if aDC = nil then exit;
Widget := PgtkWidget(aDC.HWnd); Widget := PgtkWidget(aDC.Wnd);
Image := gtk_Object_get_data(pgtkobject(widget),'Image'); Image := gtk_Object_get_data(pgtkobject(widget),'Image');
if Image = nil then begin if Image = nil then begin
@ -5015,7 +5015,7 @@ var
begin begin
aDC := TDeviceContext(TCanvas(Sender).Handle); aDC := TDeviceContext(TCanvas(Sender).Handle);
if aDC = nil then exit; if aDC = nil then exit;
Widget := PgtkWidget(aDC.HWnd); Widget := PgtkWidget(aDC.Wnd);
Image := gtk_Object_get_data(pgtkobject(Widget),'Image'); Image := gtk_Object_get_data(pgtkobject(Widget),'Image');
if Image = nil then begin if Image = nil then begin
@ -5839,7 +5839,7 @@ begin
aDC := nil; aDC := nil;
aDC := NewDC; aDC := NewDC;
aDC.hWnd := HWND(TheWidget); aDC.Wnd := HWND(TheWidget);
if TheWidget = nil if TheWidget = nil
then begin then begin
@ -6088,7 +6088,7 @@ end;
function TgtkObject.HashPaintMessage(p: pointer): integer; function TgtkObject.HashPaintMessage(p: pointer): integer;
var h: integer; var h: integer;
begin begin
h:=PMsg(PLazQueueItem(p)^.Data)^.HWnd; h:=PMsg(PLazQueueItem(p)^.Data)^.hWnd;
if h<0 then h:=-h; if h<0 then h:=-h;
Result:=((h mod 5364329)+(h mod 17)) mod FPaintMessages.Capacity; Result:=((h mod 5364329)+(h mod 17)) mod FPaintMessages.Capacity;
end; end;
@ -6110,12 +6110,12 @@ begin
HashItem:=FPaintMessages.GetHashItem(h); HashItem:=FPaintMessages.GetHashItem(h);
if HashItem<>nil then begin if HashItem<>nil then begin
Result:=PLazQueueItem(HashItem^.Item); Result:=PLazQueueItem(HashItem^.Item);
if PMsg(Result^.Data)^.HWnd=HandleWnd then if PMsg(Result^.Data)^.hWnd=HandleWnd then
exit; exit;
HashItem:=HashItem^.Next; HashItem:=HashItem^.Next;
while (HashItem<>nil) and (HashItem^.IsOverflow) do begin while (HashItem<>nil) and (HashItem^.IsOverflow) do begin
Result:=PLazQueueItem(HashItem^.Item); Result:=PLazQueueItem(HashItem^.Item);
if PMsg(Result^.Data)^.HWnd=HandleWnd then if PMsg(Result^.Data)^.hWnd=HandleWnd then
exit; exit;
HashItem:=HashItem^.Next; HashItem:=HashItem^.Next;
end; end;
@ -6535,6 +6535,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 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 AJ: Partial HintWindow Fix; Added Screen.Font & Font.Name PropEditor; Started to fix ComboBox DropDown size/pos