GDI+ Подскажите пожалуйста, как расчитать пропорции изображения.

← →
M.A. (2014-11-19 18:04) [0]

Здравствуйте. Достать из файла и отобразить в Static получилось.
Кооринаты верхнего левого угла картинки, при изменение размера картинки и Statica, определяются правильно. Только картинка пропадает, прихотитсь заново перерисовывыть после изменения размера Statica(Не в этом горе, пока что).
А вот пропорции, если ширина или высота картинки больше ширины или высоты Statica -------- ну ни как.

Подскажите пожалуйста как расчитать пропорции.

function getPicture(FormImg, HW: HWND; Tagis : TAudioGenie3): boolean; var m: string; img: TMemoryStream; fg : IStream; imgFile{, OutImage}: TGPImage; Graphics : TGPGraphics; Brush : TGPSolidBrush; tr: TRect; ImNachHeight , ImNachWidth : Integer; begin m:=AUDIOPictureExtract(img{fg}, Tagis); img.Seek(0, soFromBeginning); fg := TMyStreamAdapter.Create(img, soReference) as IStream; imgFile := TGPImage.Create(fg); Windowdc:=GetDC(HW); Graphics:=TGPGraphics.Create(Windowdc); Brush := TGPSolidBrush.Create(MakeColor(0, 0, 0)); GetClientRect(HW, tr); Graphics.FillRectangle( Brush , MakeRect(0, 0, tr.Right, tr.Bottom )); if tr.Right >= imgFile.GetWidth then ImNachWidth := (tr.Right - imgFile.GetWidth) div 2 else if imgFile.GetWidth > tr.Right then begin ImNachWidth:= 0; end else begin ImNachWidth := (imgFile.GetWidth - tr.Right) div 2; end; if tr.Bottom >= imgFile.GetHeight then begin ImNachHeight := (tr.Bottom - imgFile.GetHeight) div 2; end else if imgFile.GetHeight > tr.Bottom then begin ImNachHeight := 0; end else begin ImNachHeight := (imgFile.GetHeight - tr.Bottom) div 2; end; Graphics.DrawImage(imgFile, ImNachWidth, ImNachHeight, imgFile.GetWidth, imgFile.GetHeight); imgFile.Free;//уничтожаем класс изображения Graphics.Free; ReleaseDC(FormImg,windowdc); img.Clear; Brush.Free; fg := nil; end:

← →
M.A. (2014-11-19 20:14) [1]

Нашел. решение

float srcwidth = source.Width; float srcheight = source.Height; float dstwidth = width; float dstheight = height; if (srcwidth <= dstwidth && srcheight <= dstheight) // Исходное изображение меньше целевого { int left = (width - source.Width) / 2; int top = (height - source.Height) / 2; gr.DrawImage(source, left, top, source.Width, source.Height); } else if (srcwidth / srcheight > dstwidth / dstheight) // Пропорции исходного изображения более широкие { float cy = srcheight / srcwidth * dstwidth; float top = ((float) dstheight - cy) / 2.0f; if (top < 1.0f) top = 0; gr.DrawImage(source, 0, top, dstwidth, cy); } else // Пропорции исходного изображения более узкие { float cx = srcwidth / srcheight * dstheight; float left = ((float) dstwidth - cx) / 2.0f; if (left < 1.0f) left = 0; gr.DrawImage(source, left, 0, cx, dstheight); } return dest;

На Delphi:

GetClientRect(HW, tr); if ((imgFile.GetWidth <= tr.Right) and (imgFile.GetHeight <= tr.Bottom)) then // Исходное изображение меньше целевого begin ImNachWidth := (tr.Right - imgFile.GetWidth) div 2; ImNachHeight := (tr.Bottom - imgFile.GetHeight) div 2; Graphics.DrawImage(imgFile, ImNachWidth, ImNachHeight, imgFile.GetWidth, imgFile.GetHeight); end else if (imgFile.GetWidth / imgFile.GetHeight > tr.Right / tr.Bottom) then // Пропорции исходного изображения более широкие begin ImKonHeight := Round(imgFile.GetHeight / imgFile.GetWidth * tr.Right); ImNachHeight := Round((tr.Bottom - ImKonHeight) / 2.0); if (ImNachHeight < 1) then ImNachHeight := 0; Graphics.DrawImage(imgFile, 0, ImNachHeight, tr.Right, ImKonHeight); end else // Пропорции исходного изображения более узкие begin ImKonWidth := Round(imgFile.GetWidth / imgFile.GetHeight * tr.Bottom); ImNachWidth := Round((tr.Right - ImKonWidth) / 2); if (ImNachWidth < 1) then ImNachWidth := 0; Graphics.DrawImage(imgFile, ImNachWidth, 0, ImKonWidth, tr.Bottom); end;

← →
M.A. (2014-11-19 21:13) [2]

А как сдеать, чтоб ы нарисованное не проподало при изменение размера Statica?

← →
KilkennyCat © (2014-11-19 23:18) [3]

Static - это чегось?

← →
Endy (2014-11-20 10:35) [4]

Здесь не видно что вы делаете при WM_PAINT и откуда вызываете getPicture().
В любом случае нужно вовремя вызывать Repaint, иначе бы не затиралось.

← →
M.A. (2014-11-22 02:43) [5]

> Endy (20.11.14 10:35) [4]
> Здесь не видно что вы делаете при WM_PAINT и откуда вызываете
> getPicture().

Вызывается по клику по ListView.
Вот и думаю как организовать рсование при изменение размера Statica.

← →
M.A. (2014-11-22 21:27) [6]

Получилось. Только вот при изменение размеров, мерцают Editы. Как исправить?

GDI+ Подскажите пожалуйста, как расчитать пропорции изображения. Найти похожие ветки