Programa resim ekleme

[KgK]

Arkadaşlar ben şu an yaptığım bir programda kullanıcının bilgisayarında kayıtlı olan bir resmi programa kaydetmesini sağlamaya çalışıyorum. Bunun için tahminimce dialog sekmesindeki savepicture veya openpicture bileşenlerinden birini kullanmam gerekiyor ama ben bu bileşenlerin kullanımını tam olarak bilmiyorum. Bana bu konuda yardımcı olursanız sevinirim..!

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  bitmap:=tbitmap.create;
  bitmap.loadfromfile('c:\program files\borland\delphi 3\images\splash\256color\finance.bmp');

end;

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
if openpicturedialog1.execute then
  bitmap.loadfromfile(openpicturedialog1.filename);

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
if savepicturedialog1.execute then   begin
  bitmap.loadfromfile(savepicturedialog1.filename);
  FormPaint(sender);
  invalidate;
  end;

end;

Kod: Tümünü seç

procedure TForm1.FormPaint(Sender: TObject);
var
  x, y: Integer;
begin
  y := 0;
  while y < Height do
  begin
    x := 0;
    while x < Width do
    begin
      Canvas.Draw(x, y, Bitmap);
      x := x + Bitmap.Width;
    end;
    y := y + Bitmap.Height;
  end;
end;

[KgK]

bu yazdığınız kodları save ve openpicture bileşenlerinde mi kullanacağım acaba?Biraz safça bi soru oldu ama kusuruma bakmayın.

[vedatkaba]

Evet , zaten kodları incelerseniz openpicture ve savepicture dialo kutularının kullanımına güzel bir örnek

Kod: Tümünü seç

var
         Form1:Tform1;
         Bitmap:Tbitmap;

bitmapı tanımlamayı unutmayın.

[ALUCARD]

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject); 
begin 
if openpicturedialog1.execute then 
  bitmap.loadfromfile(openpicturedialog1.filename);

burda

openpicturedialog

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject); 
begin 
if savepicturedialog1.execute then   begin 
  bitmap.loadfromfile(savepicturedialog1.filename); 
  FormPaint(sender); 
  invalidate; 
  end; 

end;

burdada

savepicturedialog1

kullanacaksın

[KgK]

çok sağolun.