بزرگنمائي عكس در دلفي

باسلام . من مي خوام توسط دلفي يك عكس ر بزرگ و كوچك كنم مثلا 2 تا دكمه بزارم كه يكيش كار كوچك كردن عكس رو انجام بده و دكمه ديگه روي عكس زوم كنه . مثل بزرگ و كوچك كردن عكس توسط ويندوز . لطفا اگه كسي راهي به زهنش مي رسه كمك كنه . با تشكر .

دوست عزیز شما می تونی طول و عرضش رو به یه نسبت بزرگ و کوچیک کنی اینجوری بزرگ نمایی انجام دادی.

سلام

اين يك روش : (براي فايلهاي BMP)

کد:

---

procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);
var
  i: Integer;
begin
  if AZoomFactor = 100 then
    SetMapMode(Canvas.Handle, MM_TEXT)
  else
  begin
    SetMapMode(Canvas.Handle, MM_ISOTROPIC);
    SetWindowExtEx(Canvas.Handle, AZoomFactor, AZoomFactor, nil);
    SetViewportExtEx(Canvas.Handle, 100, 100, nil);
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  try
    bitmap.Assign(Form1.image1.Picture.Bitmap);
    SetCanvasZoomFactor(bitmap.Canvas, 50);
    Canvas.Draw(30, 30, bitmap);
  finally
    bitmap.Free
  end;
end;

---

يك راه هم استفاده از كامپوننت است،‌توي Torry.net بگرديد.

من منظور شما رو از بزرگ نمایی شاید درست متوجه نمی شم
شما تو نرم افزار های نمایش عکس اگر روی یک عکس بزرگ نمایی داشته باشین مگر چه اتفاقی می افته جز اینکه اون عکس بزرگ تر میشه؟!

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

اين يك روش : (براي فايلهاي BMP)

کد:

---

procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);
var
  i: Integer;
begin
  if AZoomFactor = 100 then
    SetMapMode(Canvas.Handle, MM_TEXT)
  else
  begin
    SetMapMode(Canvas.Handle, MM_ISOTROPIC);
    SetWindowExtEx(Canvas.Handle, AZoomFactor, AZoomFactor, nil);
    SetViewportExtEx(Canvas.Handle, 100, 100, nil);
  end;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  try
    bitmap.Assign(Form1.image1.Picture.Bitmap);
    SetCanvasZoomFactor(bitmap.Canvas, 50);
    Canvas.Draw(30, 30, bitmap);
  finally
    bitmap.Free
  end;
end;

---

يك راه هم استفاده از كامپوننت است،‌توي Torry.net بگرديد.

---

سلام دوست من میشه بگین کدتون دقیقا چکار می کنه؟!

براي بزرگ كردن عكس بايد از فرمول هاي مربوطش استفاده كنينازكارهاي ساده اي مثل تكرار 2 بار نقطه هم در طول و هم در عرض براي 4 برابر كردن عكس ميشه تا گذاشتن ضريب و ميانگين نقطا براي نقطه هايي كه بايد وسط اضافه بشههدف نهايي رو بگين شايد بتونم كمكي كنم