paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 14:58:16 +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);
begin
inherited Create;
if List = nil then raise Exception.Create('Unspecified list widget');
if List = nil then RaiseException('TGtkCListStringList.Create: Unspecified list widget');
FGtkCList:= List;
end;
@ -687,7 +687,7 @@ var
Item : PChar;
begin
if (Index < 0) or (Index >= Count)
then raise Exception.Create('Out of bounds.')
then RaiseException('TGtkCListStringList.Get Out of bounds.')
else begin
Item := nil;
gtk_clist_get_text(FGtkCList, Index, 0, @Item);
@ -771,6 +771,9 @@ end;
{ =============================================================================
$Log$
Revision 1.12 2003/03/09 21:13:32 mattias
localized gtk interface
Revision 1.11 2002/11/17 11:10:04 mattias
TComboBox and TListBox accelerated and now supports objects