Текущий архив: 2007.10.07;
Скачать: CL | DM;

Вниз

TPicture   Найти похожие ветки 

← →
Xmen   (2007-09-11 14:11) [0]

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

---

← →
Ega23 ©   (2007-09-11 14:14) [1]

var
cl : TColor;

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

---

← →
Xmen   (2007-09-11 14:27) [2]

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

---

← →
alshtam ©   (2007-09-11 14:35) [3]

AdvPicture1 класса Timage?

---

← →
alshtam ©   (2007-09-11 14:37) [4]

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

---

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

AdvPicture1: TAdvPicture; //TMS Components Pack

---

← →
alshtam ©   (2007-09-11 14:53) [6]

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

---

← →
Ega23 ©   (2007-09-11 15:02) [7]

> AdvPicture1: TAdvPicture


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

---

← →
DVM ©   (2007-09-11 15:13) [8]

> 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;



---

← →
Xmen   (2007-09-11 15:43) [9]

спасибо !!!

---

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

Текущий архив: 2007.10.07;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.018 c