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

localized gtk interface

Browse Source 
git-svn-id: trunk@2263 -
This commit is contained in:
mattias 2002-08-17 23:41:11 +00:00
parent c8c1f03ef5
commit db8d1de469
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1211,16 +1211,23 @@ end;
Add a childwidget onto a client area (fixed or layout widget).
------------------------------------------------------------------------------}
Procedure FixedPutControl(Parent, Child : PGTKWIdget; Left, Top : Longint);
procedure RaiseInvalidFixedWidget;
begin
// this is in a separate procedure for optimisation
WriteLn('[FixedPutControl] WARNING: Invalid Fixed Widget.',
' Parent=',HexStr(Cardinal(Parent),8),
' Child=',HexStr(Cardinal(Child),8)
);
end;
begin
If GTKWidgetIsA(Parent, GTK_Fixed_Get_Type) then
gtk_fixed_put(PGtkFixed(Parent), Child, Left, Top)
else If GTKWidgetIsA(Parent, GTK_Layout_Get_Type) then
gtk_Layout_Put(PGtkLayout(Parent), Child, Left, Top)
else
WriteLn('[FixedPutControl] WARNING: Invalid Fixed Widget.',
' Parent=',HexStr(Cardinal(Parent),8),
' Child=',HexStr(Cardinal(Child),8)
);
RaiseInvalidFixedWidget;
end;
{------------------------------------------------------------------------------
@ -3985,6 +3992,9 @@ end;
{ =============================================================================
$Log$
Revision 1.161 2003/03/09 21:13:32 mattias
localized gtk interface
Revision 1.160 2003/03/02 23:08:31 mattias
fixed TComboBox.OnChange