+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Delphi Linux (https://www.delphican.com/forumdisplay.php?fid=11)
+--- Konu Başlığı: ÇÖZÜLDÜ-zoom yapınca resim pixel rengi beyaz oluyor. (/showthread.php?tid=4498)
ÇÖZÜLDÜ-zoom yapınca resim pixel rengi beyaz oluyor. - sadikacar60 - 06-02-2020
arkadaşlar lazarus windows ortamında bir sorunla karşılaştım.
resmi büyütmeden
Image1.Canvas.Pixels[X, Y ] :=clLime;bu kod ile tıkladığım pixeller yeşil renk oluyor sorun yok
fakat
aşağıdaki kod ile resmi büyülttükten sonra tıkladığımda noktalar beyaz oluyor bunun sebebi ne olabilir acaba
bir önerisi olan var mı saygılarımla.
procedure TForm1.Button1Click(Sender: TObject);
var
picture1: TPicture;
w,h,CopyWidth,CopyHeight:integer;
img:tbitmap;
_Xk:integer;
_Yk:integer;
begin
_Xk:=5;
_Yk:=5;
{
Image1.Picture := nil;
picture1:=TPicture.Create;
picture1.LoadFromFile('Capture\resim.png');
Image1.Picture.Assign(picture1);
}
CopyWidth:=250;
CopyHeight:=200;
w:=_Xk*image1.Picture.Width div image1.width;
h:=_Yk*image1.Picture.Height div image1.height;
Image1.Picture.Bitmap.Width := 120;// CopyWidth;
Image1.Picture.Bitmap.Height := 80;//CopyHeight;
img:=tbitmap.create;
img.Assign(image1.Picture.Graphic);
Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, 720, 480), img.Canvas, Rect(w, h, CopyWidth + w, CopyHeight + h));
img.free;
end;
Cvp: zoom yapınca resim pixel rengi beyaz oluyor. - sadikacar60 - 06-02-2020
arkadaşlar png resimde bu hatayı almıştım sonar jpg resim ekledim ondan mı düzeldi yoksa
image silip boş image ekledim ondan mı oldu bilmiyorum
ama sorun düzeldi.
saygılarımla