equal
deleted
inserted
replaced
1070 |
1070 |
1071 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
1071 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
1072 var tmpsurf: PSDL_Surface; |
1072 var tmpsurf: PSDL_Surface; |
1073 s: shortstring; |
1073 s: shortstring; |
1074 begin |
1074 begin |
1075 WriteToConsole(msgLoading + filename + '.png [flags:'); |
1075 WriteToConsole(msgLoading + filename + '.png (flags: ' + inttostr(imageFlags)+') '); |
|
1076 {$IFDEF DEBUGFILE} |
|
1077 WriteToConsole('[flag translation:'); |
1076 if imageFlags = ifNone then |
1078 if imageFlags = ifNone then |
1077 WriteToConsole(' None') |
1079 WriteToConsole(' None') |
1078 else |
1080 else |
1079 begin |
1081 begin |
1080 if (imageFlags and ifAlpha) <> 0 then WriteToConsole(' Alpha'); |
1082 if (imageFlags and ifAlpha) <> 0 then WriteToConsole(' Alpha'); |
1082 if (imageFlags and ifTransparent) <> 0 then WriteToConsole(' Transparent'); |
1084 if (imageFlags and ifTransparent) <> 0 then WriteToConsole(' Transparent'); |
1083 if (imageFlags and ifIgnoreCaps) <> 0 then WriteToConsole(' IgnoreCaps'); |
1085 if (imageFlags and ifIgnoreCaps) <> 0 then WriteToConsole(' IgnoreCaps'); |
1084 if (imageFlags and ifLowRes) <> 0 then WriteToConsole(' LowRes'); |
1086 if (imageFlags and ifLowRes) <> 0 then WriteToConsole(' LowRes'); |
1085 end; |
1087 end; |
1086 WriteToConsole('] '); |
1088 WriteToConsole('] '); |
|
1089 {$ENDIF} |
1087 |
1090 |
1088 s:= filename + '.png'; |
1091 s:= filename + '.png'; |
1089 tmpsurf:= IMG_Load(Str2PChar(s)); |
1092 tmpsurf:= IMG_Load(Str2PChar(s)); |
1090 |
1093 |
1091 if (imageFlags and ifLowRes) <> 0 then |
1094 if (imageFlags and ifLowRes) <> 0 then |