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

gtk2 intf: calendar: implemented GetPreferredSize

Browse Source 
git-svn-id: trunk@21202 -
This commit is contained in:
mattias 2009-08-12 15:43:30 +00:00
parent 365837b53b
commit 4e41553208
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkdef.pp
View File

@ -77,6 +77,7 @@ type
lgsTreeView, // for gtk2
lgsToolBar, // toolbar
lgsToolButton, // button placed on toolbar
lgsCalendar, // button placed on toolbar
// user defined
lgsUserDefined
);
@ -107,6 +108,7 @@ const
'treeview',
'toolbar',
'toolbutton',
'calendar',
''
);

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -7935,6 +7935,12 @@ begin
AddToStyleWindow:=true;
StyleObject^.Widget := gtk_statusbar_new;
end
else
If CompareText(WName,LazGtkStyleNames[lgsCalendar])=0 then begin
lgs:=lgsCalendar;
AddToStyleWindow:=true;
StyleObject^.Widget := gtk_calendar_new;
end
else
If CompareText(WName,LazGtkStyleNames[lgsList])=0 then begin
lgs:=lgsList;

11
lcl/interfaces/gtk2/gtk2wscalendar.pp
View File

@ -58,6 +58,9 @@ type
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); override;
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar;
const ADisplaySettings: TDisplaySettings); override;
class procedure GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
end;
@ -292,4 +295,12 @@ begin
gtk_Calendar_Display_options(GetCalendar(ACalendar), gtkCalendarDisplayOptions);
end;
class procedure TGtk2WSCustomCalendar.GetPreferredSize(
const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean);
begin
GetGTKDefaultWidgetSize(AWinControl, PreferredWidth, PreferredHeight,
WithThemeSpace);
end;
end.