mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 20:19:29 +02:00
gtk2 intf: calendar: implemented GetPreferredSize
git-svn-id: trunk@21202 -
This commit is contained in:
parent
365837b53b
commit
4e41553208
@ -77,6 +77,7 @@ type
|
|||||||
lgsTreeView, // for gtk2
|
lgsTreeView, // for gtk2
|
||||||
lgsToolBar, // toolbar
|
lgsToolBar, // toolbar
|
||||||
lgsToolButton, // button placed on toolbar
|
lgsToolButton, // button placed on toolbar
|
||||||
|
lgsCalendar, // button placed on toolbar
|
||||||
// user defined
|
// user defined
|
||||||
lgsUserDefined
|
lgsUserDefined
|
||||||
);
|
);
|
||||||
@ -107,6 +108,7 @@ const
|
|||||||
'treeview',
|
'treeview',
|
||||||
'toolbar',
|
'toolbar',
|
||||||
'toolbutton',
|
'toolbutton',
|
||||||
|
'calendar',
|
||||||
''
|
''
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -7935,6 +7935,12 @@ begin
|
|||||||
AddToStyleWindow:=true;
|
AddToStyleWindow:=true;
|
||||||
StyleObject^.Widget := gtk_statusbar_new;
|
StyleObject^.Widget := gtk_statusbar_new;
|
||||||
end
|
end
|
||||||
|
else
|
||||||
|
If CompareText(WName,LazGtkStyleNames[lgsCalendar])=0 then begin
|
||||||
|
lgs:=lgsCalendar;
|
||||||
|
AddToStyleWindow:=true;
|
||||||
|
StyleObject^.Widget := gtk_calendar_new;
|
||||||
|
end
|
||||||
else
|
else
|
||||||
If CompareText(WName,LazGtkStyleNames[lgsList])=0 then begin
|
If CompareText(WName,LazGtkStyleNames[lgsList])=0 then begin
|
||||||
lgs:=lgsList;
|
lgs:=lgsList;
|
||||||
|
@ -58,6 +58,9 @@ type
|
|||||||
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); override;
|
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); override;
|
||||||
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar;
|
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar;
|
||||||
const ADisplaySettings: TDisplaySettings); override;
|
const ADisplaySettings: TDisplaySettings); override;
|
||||||
|
class procedure GetPreferredSize(const AWinControl: TWinControl;
|
||||||
|
var PreferredWidth, PreferredHeight: integer;
|
||||||
|
WithThemeSpace: Boolean); override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -292,4 +295,12 @@ begin
|
|||||||
gtk_Calendar_Display_options(GetCalendar(ACalendar), gtkCalendarDisplayOptions);
|
gtk_Calendar_Display_options(GetCalendar(ACalendar), gtkCalendarDisplayOptions);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
class procedure TGtk2WSCustomCalendar.GetPreferredSize(
|
||||||
|
const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer;
|
||||||
|
WithThemeSpace: Boolean);
|
||||||
|
begin
|
||||||
|
GetGTKDefaultWidgetSize(AWinControl, PreferredWidth, PreferredHeight,
|
||||||
|
WithThemeSpace);
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user