paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

localized gtk interface

Browse Source 
git-svn-id: trunk@2815 -
This commit is contained in:
mattias 2002-08-18 08:54:29 +00:00
parent 8c4247b4c1
commit 441c243636
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtklistsl.inc
View File

@ -604,7 +604,7 @@ end;
constructor TGtkCListStringList.Create(List : PGtkCList); constructor TGtkCListStringList.Create(List : PGtkCList);
begin begin
inherited Create; inherited Create;
if List = nil then raise Exception.Create('Unspecified list widget'); if List = nil then RaiseException('TGtkCListStringList.Create: Unspecified list widget');
FGtkCList:= List; FGtkCList:= List;
end; end;
@ -687,7 +687,7 @@ var
Item : PChar; Item : PChar;
begin begin
if (Index < 0) or (Index >= Count) if (Index < 0) or (Index >= Count)
then raise Exception.Create('Out of bounds.') then RaiseException('TGtkCListStringList.Get Out of bounds.')
else begin else begin
Item := nil; Item := nil;
gtk_clist_get_text(FGtkCList, Index, 0, @Item); gtk_clist_get_text(FGtkCList, Index, 0, @Item);
@ -771,6 +771,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.12 2003/03/09 21:13:32 mattias
localized gtk interface
Revision 1.11 2002/11/17 11:10:04 mattias Revision 1.11 2002/11/17 11:10:04 mattias
TComboBox and TListBox accelerated and now supports objects TComboBox and TListBox accelerated and now supports objects