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

* Fixed chrash on saving checklistboxitems

Browse Source 
git-svn-id: trunk@2829 -
This commit is contained in:
marc 2002-08-18 08:54:36 +00:00
parent 4ba7a4962c
commit 07a9e5a4d9
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,8 +44,8 @@ end;
function DefaultCheckCompareFunc(a, b : gpointer) : gint; cdecl;
var AStr, BStr : PChar;
begin
gtk_label_get(PGtkLabel(PGTKBox(a)^.Children^.Next^.Data), @AStr);
gtk_label_get(PGtkLabel(PGTKBox(b)^.Children^.Next^.Data), @BStr);
gtk_label_get(PPointer(PGTKBox(PGtkBin(a)^.child)^.Children^.Next^.Data)^, @AStr);
gtk_label_get(PPointer(PGTKBox(PGtkBin(b)^.child)^.Children^.Next^.Data)^, @BStr);
Result:= strcomp(AStr, BStr);
end;
@ -393,7 +393,7 @@ end;
function TGtkListStringList.Get(Index : integer) : string;
var
Item : PChar;
ALabel : PGtkWidget;
ALabel : PGtkLabel;
ListItem : PGtkListItem;
begin
//writeln('[TGtkListStringList.Get] Index=',Index,' Count=',Count);
@ -404,14 +404,14 @@ begin
ListItem:=FCachedItems[Index];
if FWithCheckBox
then ALabel:= PGTKBox(ListItem)^.Children^.Next^.Data
else ALabel:= PGtkBin(ListItem)^.child;
then ALabel := PPointer(PGTKBox(PGtkBin(ListItem)^.child)^.Children^.Next^.Data)^
else ALabel := PGTKLabel(PGtkBin(ListItem)^.child);
if ALabel = nil then
Result:= ''
else begin
Item:=nil;
gtk_label_get (PGtkLabel(ALabel), @Item);
gtk_label_get(ALabel, @Item);
Result:= StrPas(Item);
end;
end;
@ -550,7 +550,7 @@ begin
if FWithCheckBox
then begin
li := gtk_list_item_new;
box := gtk_hbox_new(False, 0);
box := gtk_hbox_new(False, 0); //^Pointer(PGTKBox(box)^.children^.Next^.Data)^
gtk_container_add(PGTKContainer(li), box);
cb := gtk_check_button_new;
gtk_box_pack_start(PGTKBox(box), cb, False, False, 0);
@ -760,6 +760,9 @@ end;
{ =============================================================================
$Log$
Revision 1.19 2002/08/18 08:54:36 marc
* Fixed chrash on saving checklistboxitems
Revision 1.18 2003/06/20 01:37:47 marc
+ Added TCheckListBox component