Платные хостинги     Раскрутка сайта     Книги по программированию

Расположить картинку по центру

- У меня есть на форме Panel1 и DBImage. Panel1 имеет определенные границы, а DBImage выставлено alClient. Я подгружаю на DBImage картинку. Код:procedure TMainForm.N45671Click(Sender: TObject);var PStr : Param;begin if OpenPictureDialog1.Execute then begin DBImage.Picture.LoadFromFile(OpenPictureDialog1.FileName); PStr.PText := OpenPictureDialog1.FileName; DM.ADOTable3.Edit; DM.ADOTable3.FieldValues['Рисунок'] :=PStr.PText; DM.ADOTable3.Post; dxDBGrid1.SetFocus; end;end;Для отображения использую следующий код:// Отображение картинки if DM.ADOTable3.FieldByName('Рисунок').IsNull then // Проверяет на True или False begin MainForm.DBImage.Picture :=nil; end else MainForm.DBImage.Picture.LoadFromFile(DM.ADOTable3.FieldByName('Рисунок').AsString);Вот тут возникает проблема. Во первых если картинка по размерам больше Panel1 то изображение показывает только центр свой, т.к. в свойстве DBImage у меня стоит центровать. Если я выставляю свойство DBImage вписать в окно, то изображение отображается коряво, скажем так если длина картинки 100 а ширина 50, то сами представите как это впишеться в Panel1 имеющие параметры скажем (50 на 50). лицо скажем человека будет приплюснуто. Вопрос как сделать так что бы DBImage принимала размеры картинки и при этом вписывалась в границы Panel1 и там отображалось по центру. Вобщем эффект как если бы вы открыли OpenPictureDialog то с права картинка всегда отображается нормально, несмотря на габориты, и центрируется.Плиз, если можно то пример приведите. Добавлено @ 11:17 Да забыл сказать в Panel1 вписано DBImage.

- Вместо TDBImage юзай TImage, у него есть свойство Proportional

- А если выставить Proportional, то центрирование картинки сработает? Вроде нет?

- Для центрирования установи в True свойство Center...ЗЫ: В TOpenPictureDialog'е как раз-таки и используется TImage...

- Тоесть если выставить в труа Center и Proportional то картинка будет отображаться по центру несмотря на размеры свои, и не смотря на то какого размера сам Image. Скажем квадратный или прямоугольный. А свойство Image в alClient можно при этом выставлять?

- Да, да.Не легче было бы проверить ?

- Проверил все вышло, спасибо за совет!

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD