paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 11:19:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl doc: TWSWinControl.GetPreferredSize

Browse Source 
git-svn-id: trunk@29041 -
This commit is contained in:
mattias 2011-01-15 18:32:54 +00:00
parent 418685cd28
commit 1be73ee86b
4 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2920,6 +2920,7 @@ docs/xml/lcl/toolwin.xml svneol=LF#text/xml eol=lf
docs/xml/lcl/translations.xml svneol=LF#text/xml eol=lf
docs/xml/lcl/utf8process.xml svneol=native#text/plain
docs/xml/lcl/utrace.xml svneol=LF#text/xml eol=lf
docs/xml/lcl/wscontrols.xml svneol=native#text/plain
docs/xml/lcl/xmlpropstorage.xml svneol=LF#text/xml eol=lf
docs/xml/multi_makeskel.pl svneol=native#text/plain
docs/xml/rtl/README.txt svneol=native#text/plain

6
components/codetools/fileprocs.pas
View File

@ -242,6 +242,7 @@ function FileIsReadableCached(const AFilename: string): boolean;
function FileIsWritableCached(const AFilename: string): boolean;
function FileIsTextCached(const AFilename: string): boolean;
function FileAgeCached(const AFileName: string): Longint;
function FileAgeToStr(aFileAge: longint): string;
procedure InvalidateFileStateCache(const Filename: string = '');
function CompareFileStateItems(Data1, Data2: Pointer): integer;
@ -3056,6 +3057,11 @@ begin
Result:=FileStateCache.FileAgeCached(AFilename);
end;
function FileAgeToStr(aFileAge: longint): string;
begin
Result:=DateTimeToStr(FileDateToDateTime(aFileAge));
end;
procedure InvalidateFileStateCache(const Filename: string);
begin
FileStateCache.IncreaseTimeStamp(Filename);

16
docs/xml/lcl/wscontrols.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0"?>
<fpdoc-descriptions>
<package name="LCL">
<module name="WSControls">
<element name="TWSWinControl.GetPreferredSize">
<short>Returns the preferred size of a widget, independent of current Width, Height, child controls and scrollbars</short>
<descr>Values &lt;=0 mean there is no preferred size. If the control.ControlStyle has flag csAutoSize0x0 then 0 is allowed for this control. At the moment only TPanel has this flag.
The values must be independent of the current Width/Height, because the LCL resizes them depending on these values (circle).
The values must be independent of the child controls, because the LCL moves and resizes them depending on these values (circle).
The values must be independent of scrollbars, because the LCL hides them depending on these values (circle).
The values are only taken if no other constraint/anchor was applied.
If the widgetset does not support some sizes, then it should set interface constraints.</descr>
</element>
</module>
</package>
</fpdoc-descriptions>

5
packager/packagesystem.pas
View File

@ -3006,8 +3006,9 @@ begin
and FileExistsCached(OtherStateFile)
and (FileAgeCached(OtherStateFile)>StateFileAge) then begin
DebugLn('TPkgManager.CheckCompileNeedDueToDependencies Required ',
RequiredPackage.IDAsString,' OtherState file "',OtherStateFile,'"'
,' is newer than State file ',GetOwnerID);
RequiredPackage.IDAsString,' OtherState file "',OtherStateFile,'" (',
FileAgeToStr(FileAgeCached(OtherStateFile)),')'
,' is newer than State file ',GetOwnerID,'(',FileAgeToStr(StateFileAge),')');
Result:=mrYes;
exit;
end;