pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Fixed ConsoleBrowser2 resize issues

Browse Source 
Renamed TCEFBrowserBitmap.BeginBufferDraw to TCEFBrowserBitmap.BeginDraw
Renamed TCEFBrowserBitmap.EndBufferDraw to TCEFBrowserBitmap.EndDraw
Renamed TCEFBrowserBitmap.UpdateBufferDimensions to TCEFBrowserBitmap.UpdateDimensions
Removed TCEFBrowserBitmap.BufferIsResize
This commit is contained in:
Salvador Díaz Fau
2024-11-30 11:18:21 +01:00
parent 5d4705c34f
commit 6badc8f3bd
7 changed files with 108 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/Delphi_VCL/WebpageSnapshot/uCEFBrowserThread.pas
View File

@@ -377,7 +377,7 @@ begin
FResizeCS.Acquire;
TempForcedResize := False;
if FBrowserBitmap.BeginBufferDraw then
if FBrowserBitmap.BeginDraw then
begin
if (kind = PET_POPUP) then
begin
@@ -401,7 +401,7 @@ begin
end
else
begin
TempForcedResize := FBrowserBitmap.UpdateBufferDimensions(aWidth, aHeight) or not(FBrowserBitmap.BufferIsResized(False));
TempForcedResize := FBrowserBitmap.UpdateDimensions(aWidth, aHeight);
TempWidth := FBrowserBitmap.Width;
TempHeight := FBrowserBitmap.Height;
TempScanlineSize := FBrowserBitmap.ScanlineSize;
@@ -457,7 +457,7 @@ begin
end;
end;
FBrowserBitmap.EndBufferDraw;
FBrowserBitmap.EndDraw;
if (kind = PET_VIEW) then
begin
@@ -587,13 +587,10 @@ begin
if FResizing then
FPendingResize := True
else
if FBrowserBitmap.BufferIsResized then
FBrowser.Invalidate(PET_VIEW)
else
begin
FResizing := True;
FBrowser.WasResized;
end;
begin
FResizing := True;
FBrowser.WasResized;
end;
finally
FResizeCS.Release;
end;