Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

как сохранить файл 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.057 c
2-1162383769
ice321i
2006-11-01 15:22
2006.11.19
Компонент TIdFTP


1-1160114258
DVM
2006-10-06 09:57
2006.11.19
Фреймы самопроизвольно превращаются в формы!


2-1162367551
Antonq
2006-11-01 10:52
2006.11.19
Как сообщением поменять курсор мыши


2-1162229245
dreamse
2006-10-30 20:27
2006.11.19
Подскажите компонент в котором реализована бегущая строка


15-1162105239
Pazitron_Brain
2006-10-29 10:00
2006.11.19
Сколько тратит IP телефония трафика?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский