Witam,
bezskutecznie próbuje zmniejszyć obraz w formacie *.PNG za pomocą StretchDraw...
próbowałem tak:
var
png,png2: tpngobject;
begin
png := tpngobject.Create;
png.loadfromfile('C:\1.png');
png2 := tpngobject.Create;
png2.Canvas.StretchDraw(rect(0,0,50,50),png);
form1.Canvas.Draw(0,0,png);
end;
to wyskakuje błąd "canvas does not allow drawing"
próbowałem również tak:
begin
png := tpngobject.Create;
png.loadfromfile('C:\1.png');
png2 := tpngobject.Create;
png2.loadfromfile('C:\1.png');
png2.Canvas.StretchDraw(rect(0,0,50,50),png);
form1.Canvas.Draw(0,0,png2);
end;
ale wyświetla się tylko jeden obraz (na png2 powinny wyświetlić się 2 obrazy - jeden na drugim)
pierwszy błąd jest jeszcze do zrozumienia, ale czemu 2 procedura nie działa prawidłowo ?
oczywiście pierwszy obraz jest większy niż drugi.