paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 07:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed menubar.inc

Browse Source 
git-svn-id: trunk@2489 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent b7f7c592cf
commit 3b55afb7e0
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4404,6 +4404,25 @@ end;
Procedure TgtkObject.FinishComponentCreate(Sender : TObject;
Handle : Pointer; SetupProps : Boolean);
{procedure SetWidgetFont(AWinControl: TWinControl; AWidget: PGtkWidget);
var
AStyle: PGtkStyle;
begin
writeln('SetWidgetFont A ',AWinControl.Name,':',AWinControl.ClassName,' AWidget=',HexStr(Cardinal(AWidget),8));
AStyle:=gtk_widget_get_style(AWidget);
if Style=nil then begin
writeln('SetWidgetFont B no style');
exit;
end;
AGdkFont:=AStyle^.Font;
if AGdkFont=nil then begin
writeln('SetWidgetFont C no font');
exit;
end;
end;}
begin
// MWE: next will be obsoleted by WinWidgetInfo
//Set these for functions like GetWindowLong Added 01/07/2000
@ -4442,6 +4461,8 @@ begin
{$IfNDef win32}
if Sender is TCustomForm then
gtk_widget_set_app_paintable(Handle,true);
//if AComponent is TWinControl then
// SetWidgetFont(TWinControl(Sender),PGtkWidget(Handle));
{$EndIf}
HookSignals(Sender);
end;
@ -7325,6 +7346,9 @@ end;
{ =============================================================================
$Log$
Revision 1.369 2003/06/09 09:20:27 mattias
removed menubar.inc
Revision 1.368 2003/06/07 09:34:21 mattias
added ambigius compiled unit test for packages