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

MG: removed ClientRectBugfix defines

Browse Source 
git-svn-id: trunk@743 -
This commit is contained in:
lazarus 2002-02-09 01:46:10 +00:00
parent 2d9e85e554
commit 7184c53542
1 changed files with 39 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4379,9 +4379,10 @@ var
begin begin
Result := 0; // default if nobody sets it Result := 0; // default if nobody sets it
if Sender is TWinControl if Sender is TWinControl then
then Assert(False, Format('Trace: [TgtkObject.GetValue] %s', [Sender.ClassName])) Assert(False, Format('Trace: [TgtkObject.GetValue] %s', [Sender.ClassName]))
else Assert(False, Format('Trace:WARNING: [TgtkObject.GetValue] %s --> No Decendant of TWinControl', [Sender.ClassName])); else
Assert(False, Format('Trace:WARNING: [TgtkObject.GetValue] %s --> No Decendant of TWinControl', [Sender.ClassName]));
Handle := Pointer(TWinControl(Sender).Handle); Handle := Pointer(TWinControl(Sender).Handle);
Assert (Handle = nil, 'WARNING: [TgtkObject.GetValue] --> got nil pointer (no gtkobject)'); Assert (Handle = nil, 'WARNING: [TgtkObject.GetValue] --> got nil pointer (no gtkobject)');
@ -4396,21 +4397,23 @@ begin
csRadiobutton, csRadiobutton,
csCheckbox : if gtk_toggle_button_get_active (PGtkToggleButton (handle)) csCheckbox :
if gtk_toggle_button_get_active (PGtkToggleButton (handle))
then TCheckBoxState (data^) := cbChecked then TCheckBoxState (data^) := cbChecked
else TCheckBoxState (data^) := cbUnChecked; else TCheckBoxState (data^) := cbUnChecked;
csCalendar :Begin csCalendar :
Begin
gtk_calendar_get_date(PgtkCalendar(handle),@Year, @Month, @Day); gtk_calendar_get_date(PgtkCalendar(handle),@Year, @Month, @Day);
//TODO: account for local settings like date format //TODO: account for local settings like date format
//Form some reason, the month is zero based. //Form some reason, the month is zero based.
TLMCalendar(data^).Date := StrtoDate(Inttostr(Day)+'-'+Inttostr(Month+1)+'-'+Inttostr(Year)); TLMCalendar(data^).Date :=
StrtoDate(Inttostr(Day)+'-'+Inttostr(Month+1)+'-'+Inttostr(Year));
end; end;
csSpinEdit : Begin csSpinEdit :
Single(Data^) := gtk_spin_button_get_value_As_Float(PgtkSpinButton(Handle)); Begin
Single(Data^):=gtk_spin_button_get_value_As_Float(PgtkSpinButton(Handle));
end; end;
@ -5347,6 +5350,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.165 2002/08/17 15:45:34 lazarus
MG: removed ClientRectBugfix defines
Revision 1.164 2002/08/16 17:47:38 lazarus Revision 1.164 2002/08/16 17:47:38 lazarus
MG: added some IDE menuicons, fixed submenu indicator bug MG: added some IDE menuicons, fixed submenu indicator bug