Przeglądaj źródła

show message when auto-resampling image

circular17 5 lat temu
rodzic
commit
1ee3d52a89
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      lazpaint/lazpaintinstance.pas

+ 1 - 1
lazpaint/lazpaintinstance.pas

@@ -418,7 +418,7 @@ begin
   RegisterScripts(True);
   RegisterScripts(True);
 
 
   InColorFromFChooseColor := false;
   InColorFromFChooseColor := false;
-  FImage := TLazPaintImage.Create;
+  FImage := TLazPaintImage.Create(self);
   FImage.OnStackChanged:= @OnStackChanged;
   FImage.OnStackChanged:= @OnStackChanged;
   FImage.OnException := @OnFunctionException;
   FImage.OnException := @OnFunctionException;
   FImage.OnActionProgress:=@OnImageActionProgress;
   FImage.OnActionProgress:=@OnImageActionProgress;