paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:40:54 +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 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',
'' ''
); );

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

@ -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;

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 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.