mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 21:55:56 +02:00
localized gtk interface
git-svn-id: trunk@2815 -
This commit is contained in:
parent
8c4247b4c1
commit
441c243636
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user