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

AJ: added LoadStockPixmap routine & minor fixes to/for GNOMEInt

Browse Source 
git-svn-id: trunk@1262 -
This commit is contained in:
lazarus 2002-02-09 01:48:11 +00:00
parent 4488594228
commit c86144a046
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gnome/gnomeint.pp
View File

@ -138,14 +138,29 @@ begin
gnome_app_enable_layout_config(P, True);
TMenu(Sender).Items.Handle := HMenu(p);
end
else
else begin
inherited CreateComponent(Sender);
If (Sender is TCustomEdit) then
With (Sender as TCustomEdit) do
If Popupmenu = nil then
If Pointer(Handle) <> nil then
gnome_widget_add_help(Pointer(Handle), nil)
end;
end;
{$I gnomewinapi.inc}
initialization
gnome_init('lazarus', '0.8.5', argc, argv);
finalization
end.
{
$Log$
Revision 1.3 2002/10/10 13:29:08 lazarus
AJ: added LoadStockPixmap routine & minor fixes to/for GNOMEInt
}