From: "Mike Shkolnik" <mshkolnik@rs-ukraine.kiev.ua>
Subject: Re: Easy TPicture question...
Date: 17 May 1999 00:00:00 GMT
Message-ID: <7hp3hc$9bb15@forums.borland.com>
References: <373E3ED0.38D62E10@altavista.net>
Organization: Another Netscape Collabra Server User
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Newsgroups: borland.public.delphi.graphics

procedure LoadPict(Field: TField);
var DrawPict: TPicture;
begin
    DrawPict := TPicture.Create;
    try
        if Assigned(Field) and Field.IsBlob then
        begin
          DrawPict.Assign(Field);
          if (DrawPict.Graphic = nil) or DrawPict.Graphic.Empty then
            FillRect(ClientRect)
          else
            StretchDraw(ClientRect, DrawPict.Graphic)
      finally
          DrawPict.Free;
      end;
end;

--
With best regards, Mike Shkolnik.
FIDO: 2:463/106.14
E-Mail: mshkolnik@rs-ukraine.kiev.ua
        mike@woccu.freenet.kiev.ua
WEB: http://www.geocities.com/SiliconValley/Grid/3989

Vincent Bergeron пишет в сообщении <373E3ED0.38D62E10@altavista.net> ...
>Hi!
>   I want to display a picture in a TPicture component.
>My picture is stored in a BLOB field in a paradox table.
>How can I do?
>
>Vincent
>
>P.S: I cannot use a TDBImage component...