Показать сообщение отдельно
  #7  
Старый 28.10.2012, 10:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
  if OpenPictureDialog1.Execute then
  begin
    Table1.Edit;
    TGraphicField(Table1.FieldByName('Graphic')).LoadFromFile(OpenPictureDialog1.FileName);
    Table1.Post;
  end;

Код:
DBImage1.Stretch:=True;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием