FreePascal.ru

очень странно, подобный try-except код у меня выполняется очень быстро.
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
f: Double;
t: tdatetime;
begin
t := now;
for i := 0 to 10000000 do
begin
try
f := strtofloat('aaa');
except
f := 111 ...

может тогда можно как-то привести картинку к подходящему формату? Ибо нужен PNG из-за сжатия без потерь и альфа-канала

Доброго времени суток.
Столкнулся с проблемой что нормальное сглаживание при масштабировании в TImage нормально работает ТОЛЬКО когда туда загружен jpeg. Ни BMP ни PNG не сглаживают нормально при масштабировании.
Это видно даже на стандартном примере \lazarus\examples\imgviewer\
Может эта проблема ...