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

MG: reduced repaints

Browse Source 
git-svn-id: trunk@337 -
This commit is contained in:
lazarus 2001-10-03 21:03:02 +00:00
parent 8155426267
commit 4aed2a0ba4
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -107,7 +107,8 @@ begin
end; end;
function gtkfrmactivate( widget: PGtkWidget; Event : TgdkEventFocus; data: gPointer) : GBoolean; cdecl; function gtkfrmactivate( widget: PGtkWidget; Event : TgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMActivate; Mess : TLMActivate;
begin begin
@ -116,7 +117,8 @@ begin
Result := DeliverPostMessage(Data, Mess); Result := DeliverPostMessage(Data, Mess);
end; end;
function gtkfrmdeactivate( widget: PGtkWidget; Event : TgdkEventFocus; data: gPointer) : GBoolean; cdecl; function gtkfrmdeactivate( widget: PGtkWidget; Event : TgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMActivate; Mess : TLMActivate;
begin begin
@ -131,7 +133,8 @@ begin
EventTrace('map', data); EventTrace('map', data);
end; end;
function GTKExposeEvent(Widget: PGtkWidget; Event : PGDKEventExpose; Data: gPointer): GBoolean; cdecl; function GTKExposeEvent(Widget: PGtkWidget; Event : PGDKEventExpose;
Data: gPointer): GBoolean; cdecl;
var var
// Mess : TLMessage; // Mess : TLMessage;
// fWindow : pgdkWindow; // fWindow : pgdkWindow;
@ -142,6 +145,7 @@ var
begin begin
Result := True; Result := True;
EventTrace('expose-event', data); EventTrace('expose-event', data);
if (Event^.Count > 0) then exit;
msg.msg := LM_PAINT; msg.msg := LM_PAINT;
MSG.DC := GetDC(THandle(Widget)); MSG.DC := GetDC(THandle(Widget));
@ -654,7 +658,8 @@ Writeln('***********************');
end; end;
function gtkswitchpage(widget: PGtkWidget; page: Pgtkwidget; pagenum : integer; data: gPointer) : GBoolean; cdecl; function gtkswitchpage(widget: PGtkWidget; page: Pgtkwidget; pagenum : integer;
data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMNotify; Mess : TLMNotify;
T : tagNMHDR; T : tagNMHDR;
@ -671,7 +676,8 @@ begin
end; end;
function gtkconfigureevent( widget: PGtkWidget; event : PgdkEventConfigure; data: gPointer) : GBoolean; cdecl; function gtkconfigureevent( widget: PGtkWidget; event : PgdkEventConfigure;
data: gPointer) : GBoolean; cdecl;
var var
Allocation : PGtkAllocation; Allocation : PGtkAllocation;
begin begin
@ -1139,8 +1145,8 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.33 2001/09/30 08:34:51 lazarus Revision 1.34 2001/10/03 21:03:02 lazarus
MG: fixed mem leaks and fixed range check errors MG: reduced repaints
Revision 1.32 2001/06/16 09:14:38 lazarus Revision 1.32 2001/06/16 09:14:38 lazarus
MG: added lazqueue and used it for the messagequeue MG: added lazqueue and used it for the messagequeue