You've already forked lazarus-ccr
* more adjustments to advanced demo layout
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1106 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -68,7 +68,7 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
FileCtrl, MaskEdit, States;
|
||||
States;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
@ -112,6 +112,7 @@ var
|
||||
SFI: TSHFileInfo;
|
||||
}
|
||||
begin
|
||||
Result := -1;
|
||||
//todo
|
||||
{
|
||||
if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then
|
||||
|
Reference in New Issue
Block a user