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

fixes for fpc 1.1

Browse Source 
git-svn-id: trunk@1929 -
This commit is contained in:
mattias 2002-08-17 23:40:16 +00:00
parent a8b08fac69
commit 59e044f78a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkobject.inc
View File

@ -5260,6 +5260,8 @@ end;
with the corresponding GTK-object.
------------------------------------------------------------------------------}
function TgtkObject.GetValue (Sender : TObject; data : pointer) : integer;
type
PCheckBoxState = ^TCheckBoxState;
var
Handle : Pointer;
Year,Month,Day : Integer; //used for csCalendar
@ -5286,8 +5288,8 @@ begin
csRadiobutton,
csCheckbox :
if gtk_toggle_button_get_active (PGtkToggleButton (handle))
then TCheckBoxState (data^) := cbChecked
else TCheckBoxState (data^) := cbUnChecked;
then PCheckBoxState(data)^ := cbChecked
else PCheckBoxState(data)^ := cbUnChecked;
csCalendar :
Begin
@ -6716,6 +6718,9 @@ end;
{ =============================================================================
$Log$
Revision 1.300 2002/12/16 12:12:50 mattias
fixes for fpc 1.1
Revision 1.299 2002/02/09 02:30:56 mattias
added patch from Jeroen van Idekinge