| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TPicture [D7]

Xmen ©   (2007-09-11 14:11:00) 

загружаю рисунок так
AdvPicture1.Picture.LoadFromStream(Dataset1.CreateBlobStream(Dataset1.FieldByNam e('PHOTO'), bmRead));
как можно очищать AdvPicture1 или AdvPicture1.Picture
(AdvPicture1 от TMS Components Pack)

---

Xmen   (2007-09-11 15:43:00) [1]

спасибо !!!

---

DVM   (2007-09-11 15:13:00) [2]

> Xmen  

Я вот так делал обычного TImage:


procedure DBDrawJpeg(DataSet: TDataSet; Field:String; Image:TImage);
const
 sNoPhoto='Нет фотографии';
var
 MS: TStream;
 J1: TJPEGImage;
begin
 J1 := TJPEGImage.Create;
 MS := DataSet.CreateBlobStream(DataSet.FieldByName(Field), bmRead);
 try
   try
     MS.Seek(soFromBeginning, 0);
     with J1 do
       begin
         PixelFormat := jf24Bit;
         Scale := jsFullSize;
         Grayscale := False;
         Performance := jpBestQuality;
         ProgressiveDisplay := True;
         ProgressiveEncoding := True;
         LoadFromStream(MS);
       end;
     with Image do
       begin
         Canvas.StretchDraw(ClientRect,j1);
       end;
   except
     with Image.Canvas Do
       begin
         Rectangle(Image.ClientRect);
         TextOut((Image.Width - TextWidth(sNoPhoto)) div 2,Image.Height Div 2,sNoPhoto);
       end;
   end;
 finally
   J1.Free;
   MS.Free;
 end;
End;



---

Ega23   (2007-09-11 15:02:00) [3]

> AdvPicture1: TAdvPicture


Значит canvas должен быть у него.

---

alshtam   (2007-09-11 14:53:00) [4]

не могу подсказать поэтому компоненту конкретно, но могу посоветовать поискать либо Bitmap, либо Tcanvas.

---

Xmen   (2007-09-11 14:39:00) [5]

AdvPicture1: TAdvPicture; //TMS Components Pack

---

alshtam   (2007-09-11 14:37:00) [6]

если да то у него точно есть AdvPicture1.Picture.bitmap

---

alshtam   (2007-09-11 14:35:00) [7]

AdvPicture1 класса Timage?

---

Xmen   (2007-09-11 14:27:00) [8]

оказатся у AdvPicture1.Picture нету Bitmap

---

Ega23   (2007-09-11 14:14:00) [9]

var
cl : TColor;

with AdvPicture1.Picture.Bitmap.Canvas do
begin
 cl := Brush.Color;
 Brush.Color := clWhite;
 FillRect(AdvPicture1.ClientRect);
 Brush.Color := cl;
end;

---

Наверх