|
@@ -864,7 +864,7 @@ type
|
|
Zoom: TZoom;
|
|
Zoom: TZoom;
|
|
|
|
|
|
procedure PaintPictureNow;
|
|
procedure PaintPictureNow;
|
|
- procedure InvalidatePicture;
|
|
|
|
|
|
+ procedure InvalidatePicture(AInvalidateAll: boolean = true);
|
|
function TryOpenFileUTF8(filenameUTF8: string; AddToRecent: Boolean=True;
|
|
function TryOpenFileUTF8(filenameUTF8: string; AddToRecent: Boolean=True;
|
|
ALoadedImage: PImageEntry = nil; ASkipDialogIfSingleImage: boolean = false;
|
|
ALoadedImage: PImageEntry = nil; ASkipDialogIfSingleImage: boolean = false;
|
|
AAllowDuplicate: boolean = false; AEntryToLoad: integer = -1): Boolean;
|
|
AAllowDuplicate: boolean = false; AEntryToLoad: integer = -1): Boolean;
|
|
@@ -4390,8 +4390,7 @@ end;
|
|
|
|
|
|
procedure TFMain.OnImageChangedHandler(AEvent: TLazPaintImageObservationEvent);
|
|
procedure TFMain.OnImageChangedHandler(AEvent: TLazPaintImageObservationEvent);
|
|
begin
|
|
begin
|
|
- if Assigned(FImageView) then
|
|
|
|
- FImageView.InvalidatePicture(False, FLayout.WorkArea, Point(0,0), self);
|
|
|
|
|
|
+ InvalidatePicture(false);
|
|
|
|
|
|
if (image.Width <> FLastWidth) or (image.Height <> FLastHeight)
|
|
if (image.Width <> FLastWidth) or (image.Height <> FLastHeight)
|
|
or (image.BPP <> FLastBPP) or (image.FrameIndex <> FLastFrameIndex) then
|
|
or (image.BPP <> FLastBPP) or (image.FrameIndex <> FLastFrameIndex) then
|
|
@@ -4412,7 +4411,7 @@ end;
|
|
|
|
|
|
procedure TFMain.OnImageRenderChanged(Sender: TObject);
|
|
procedure TFMain.OnImageRenderChanged(Sender: TObject);
|
|
begin
|
|
begin
|
|
- InvalidatePicture;
|
|
|
|
|
|
+ InvalidatePicture(false);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TFMain.UpdateEditPicture(ADelayed: boolean = false);
|
|
procedure TFMain.UpdateEditPicture(ADelayed: boolean = false);
|
|
@@ -4604,10 +4603,10 @@ begin
|
|
Layout.StatusText := s;
|
|
Layout.StatusText := s;
|
|
end;
|
|
end;
|
|
|
|
|
|
-procedure TFMain.InvalidatePicture;
|
|
|
|
|
|
+procedure TFMain.InvalidatePicture(AInvalidateAll: boolean = true);
|
|
begin
|
|
begin
|
|
if Assigned(FImageView) and Assigned(FLayout) then
|
|
if Assigned(FImageView) and Assigned(FLayout) then
|
|
- FImageView.InvalidatePicture(True, FLayout.WorkArea, Point(0,0), self);
|
|
|
|
|
|
+ FImageView.InvalidatePicture(AInvalidateAll, FLayout.WorkArea, Point(0,0), self);
|
|
end;
|
|
end;
|
|
|
|
|
|
function TFMain.GetUseImageBrowser: boolean;
|
|
function TFMain.GetUseImageBrowser: boolean;
|