paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:55:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bitmapsizing when handle is created (#11556). Based on patch from Paul.

Browse Source 
git-svn-id: trunk@15630 -
This commit is contained in:
marc 2008-06-30 23:55:54 +00:00
parent 4edc26916d
commit cfa52d2e20
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/include/custombitmap.inc
View File

@ -220,17 +220,53 @@ end;
procedure TCustomBitmap.SetSize(AWidth, AHeight: integer);
var
SCB: TSharedCustomBitmap absolute FSharedImage;
CurIntfImage, NewIntfImage: TLazIntfImage;
NewRawImage: TRawImage;
begin
RawImageNeeded(True);
if AWidth < 0 then AWidth := 0;
if AHeight < 0 then AHeight := 0;
if (SCB.FImage.Description.Height = cardinal(AHeight))
and (SCB.FImage.Description.Width = cardinal(AWidth))
then Exit;
UnshareImage(False);
// for delphi compatibility copy old image
RawImageNeeded(False);
if (SCB.FImage.Description.Height >= cardinal(AHeight))
and (SCB.FImage.Description.Width >= cardinal(AWidth))
then begin
// use the faster ExtractRect. Since it calculates the intersection of source
// and requested rect we can only use it when shrinking the image.
SCB.FImage.ExtractRect(Rect(0, 0, AWidth, AHeight), NewRawImage);
end
else begin
// use slow copy of pixeldata till rawimage can also copy to larger destination
NewRawImage.Description := SCB.FImage.Description;
NewRawImage.Description.Width := AWidth;
NewRawImage.Description.Height := AHeight;
NewRawImage.ReleaseData;
if SCB.FImage.DataSize > 0 then
begin
NewRawImage.CreateData(True);
CurIntfImage := TLazIntfImage.Create(SCB.FImage, False);
NewIntfImage := TLazIntfImage.Create(NewRawImage, False);
NewIntfImage.CopyPixels(CurIntfImage);
CurIntfImage.Free;
NewIntfImage.Free;
end;
end;
SCB.FImage.FreeData;
SCB.FImage.Description.Width := AWidth;
SCB.FImage.Description.Height := AHeight;
SCB.FImage := NewRawImage;
// size was changed => update HBITMAP and HDC
SCB.FreeHandle;
FreeCanvasContext;
Changed(Self);
end;