Скачать: CL | DM;

как сохранить файл bmp из панели, используя SavePictureDialog   Найти похожие ветки 

← →
Vladimir1984   (2006-11-01 21:01) [0]

C SavePictureDialog не пойму вообще! А вот просто с сохранением фала что то получается но криво ужос...файл получается но пустой без изображения...
procedure TfrmBmpHView.Button3Click(Sender: TObject);
var
 Bitmap: TBitmap;
 Source: TRect;
 Dest: TRect;
begin
 Bitmap := TBitmap.Create;
 try
   with Bitmap do
   begin
     Width := panel7.Width;
     Height := panel7.Height;
     Dest := Rect(0, 0, Width, Height);
   end;
   with panel7 do
     Source := Rect(0, 0, Width, Height);
   Bitmap.Canvas.CopyRect(Dest, bitmap.Canvas, Source);

   Bitmap.SaveToFile("MYFILE.BMP");
 finally
   Bitmap.Free;
 end;
end;

---

← →
@!!ex ©   (2006-11-01 21:07) [1]

Господи.. Что это?

---

← →
XP UserR-rr   (2006-11-01 21:14) [2]

видимо, код

---

← →
DesktopDraw   (2006-11-01 21:17) [3]

По крайней мере похож, ты где это взял?

---

← →
DesktopDraw   (2006-11-01 21:17) [4]

как удобно близнеца иметь

---

← →
DesktopDraw   (2006-11-01 21:22) [5]

а тебе именно из панели нада?

---

← →
Vladimir1984   (2006-11-01 21:27) [6]

да из панели, имено на ней формируетмя изображение...

---

← →
Vladimir1984   (2006-11-01 21:28) [7]

> По крайней мере похож, ты где это взял?

хз искал по яндексу =)

---

← →
DesktopDraw   (2006-11-01 21:32) [8]

может чё нибудь с panel.paintto

---

← →
Правильный Вася   (2006-11-01 21:43) [9]

может, лучше отрисовывать на битмап и его выводить на панель или сохранять, чем так через ж..

---

← →
Vladimir1984   (2006-11-01 21:47) [10]

дело в том что изображение уже появляется на панеле, и его как раз и надо как то сохранить....единственное что смог сделать это принт скрин програмно...

---

← →
Ketmar ©   (2006-11-01 21:48) [11]

>[10] Vladimir1984 1-Nov-2006, 21:47
>дело в том что изображение уже появляется на панеле
Аллах присылает?

---

← →
Vladimir1984   (2006-11-01 21:54) [12]

> Аллах присылает?

лес там===>

---

← →
Leonid Troyanovsky ©   (2006-11-01 22:30) [13]

> Vladimir1984   (01.11.06 21:54) [12]

> > Аллах присылает?

> лес там===>


Не верю.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.972 c