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

MG: removed interfaces

Browse Source 
git-svn-id: trunk@1954 -
This commit is contained in:
lazarus 2002-08-17 23:40:23 +00:00
parent 65867d6762
commit 44db1cb51c
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/gtk/gtkglarea/gtkglarea.pp
View File

@ -20,8 +20,8 @@ unit gtkglarea;
interface
uses
Classes, SysUtils, VCLGlobals, LCLLinux, LCLType,glib, gdk, gtk, gtkglarea_int, gl,
Controls, gtkint, gtkwinapiwindow, LMessages;
Classes, SysUtils, VCLGlobals, LCLLinux, LCLType, glib, gdk, gtk,
gtkglarea_int, gl, Controls, gtkint, gtkwinapiwindow, LMessages;
type
TCustomGTKGLAreaControl = class(TWinControl)
@ -84,7 +84,7 @@ begin
Handle := longint(gtk_gl_area_new(pgint(@InitAttrList)));
if Widget <> nil then begin
gtk_object_set_data(pgtkobject(Widget),'Sender',Self);
gtk_object_set_data(pgtkobject(Widget), 'Class', Pointer(Self));
gtk_object_set_data(pgtkobject(Widget),'Class', Pointer(Self));
gtk_object_set_data(pgtkObject(Widget),'Style',0);
gtk_object_set_data(pgtkObject(Widget),'ExStyle',0);
end else begin
@ -100,7 +100,6 @@ end;
procedure InternalInit;
begin
(* OpenGL functions can be called only if make_current returns true *)
if not InitGl then begin
WriteLn('OpenGL is not supported on this system');
Halt(2);
@ -109,8 +108,7 @@ end;
initialization
InternalInit;
InternalInit;
finalization

6
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -163,7 +163,8 @@ begin
if Result then begin
GdkWindow:=GetControlWindow(PgtkWidget(hwnd));
gdk_window_raise(GdkWindow);
// how to the keyboard focus to the raised window?
// how to set the keyboard focus to the raised window?
gtk_window_activate_focus(PGtkWindow(hWnd));
end;
end;
@ -7484,6 +7485,9 @@ end;
{ =============================================================================
$Log$
Revision 1.175 2002/10/29 19:33:42 lazarus
MG: removed interfaces
Revision 1.174 2002/10/29 12:30:45 lazarus
AJ: fixed initial result in clipping/region routines