Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c