paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: update TCocoaDatePicker to work on macOS 10.6

Browse Source 
git-svn-id: trunk@61191 -
This commit is contained in:
dmitry 2019-05-10 03:20:04 +00:00
parent 868bbcd076
commit 48ed31da02
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/cocoa/cocoadatepicker.pas
View File

@ -84,13 +84,22 @@ begin
inherited setFrame(aframe); inherited setFrame(aframe);
if not autoResize then Exit; if not autoResize then Exit;
fsz:=fittingSize; if Self.respondsToSelector(objcselector('fittingSize')) then
fsz:=fittingSize
else
begin
// hardcoded size of a Calendar for MacOSX 10.6
// as can be seen in Interface Builder
fsz.width := 139;
fsz.height := 148;
end;
if (fsz.width=0) or (fsz.height=0) then Exit; if (fsz.width=0) or (fsz.height=0) then Exit;
sz:=frame.size; sz:=frame.size;
//don't resize if too small already //don't resize if too small already
if (sz.width<fsz.width) or (sz.height<fsz.height) then Exit; if (sz.width<fsz.width) or (sz.height<fsz.height) then Exit;
if retainAspectRatio and (fsz.height>0) and (sz.height<>0) then if retainAspectRatio and (fsz.height>0) then
begin begin
rt:=fsz.width/fsz.height; rt:=fsz.width/fsz.height;
fsz.width:=fsz.width * sz.width / (sz.height*rt); fsz.width:=fsz.width * sz.width / (sz.height*rt);