Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* Права создаваемых файлов изменены с 777 на 664;

Browse Source
This commit is contained in:
edgbla
2016-08-09 14:52:21 +04:00
parent b1139ca83f
commit d39a93ab01
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
umain.pas
View File

@@ -278,7 +278,7 @@ begin
FreeTIM(TIM);
Image^.Free;
Dispose(Image);
{$IFDEF Linux}FpChmod(dlgSavePNG.FileName, &777);{$IFEND}
{$IFDEF Linux}FpChmod(dlgSavePNG.FileName, &664);{$IFEND}
end;
procedure TfrmMain.btnShowClutClick(Sender: TObject);
@@ -442,7 +442,7 @@ begin
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, TIMisIndexed(TIM));
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
{$IFDEF Linux}FpChmod(Path, &664);{$IFEND}
Image^.Free;
Image^ := nil;
@@ -493,7 +493,7 @@ begin
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, TIMisIndexed(TIM));
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
{$IFDEF Linux}FpChmod(Path, &664);{$IFEND}
Image^.Free;
Image^ := nil;
@@ -518,7 +518,7 @@ begin
TIM := SelectedTimInMode;
SaveTimToFile(dlgSaveFile.FileName, TIM);
{$IFDEF Linux}FpChmod(dlgSaveFile.FileName, &777);{$IFEND}
{$IFDEF Linux}FpChmod(dlgSaveFile.FileName, &664);{$IFEND}
FreeTIM(TIM);
end;
@@ -557,7 +557,7 @@ begin
TIM := LoadTimFromFile(FName, OFFSET, IsImage, SIZE);
Path := Path + FormatFileName(FName, I - 1, BIT_MODE, MAGIC);
SaveTimToFile(Path, TIM);
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
{$IFDEF Linux}FpChmod(Path, &664);{$IFEND}
FreeTIM(TIM);
pbProgress.Position := I;
@@ -599,7 +599,7 @@ begin
TIM := LoadTimFromFile(FName, OFFSET, IsImage, SIZE);
Path := Path + FormatFileName(FName, I - 1, BIT_MODE, MAGIC);
SaveTimToFile(Path, TIM);
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
{$IFDEF Linux}FpChmod(Path, &664);{$IFEND}
FreeTIM(TIM);
pbProgress.Position := I;