فهرست منبع

ADD: Viewer plugins - itm_center and itm_wrap support

Alexander Koblov 3 سال پیش
والد
کامیت
3972b94de8
1فایلهای تغییر یافته به همراه9 افزوده شده و 1 حذف شده
  1. 9 1
      src/fviewer.pas

+ 9 - 1
src/fviewer.pas

@@ -1153,7 +1153,15 @@ end;
 procedure TfrmViewer.WMCommand(var Message: TLMCommand);
 begin
   case Message.NotifyCode of
-    itm_next: if Message.ItemID = 0 then cm_LoadNextFile([]);
+    itm_center:
+      miCenter.Checked:= Boolean(Message.ItemID);
+    itm_next: begin
+      if Message.ItemID = 0 then cm_LoadNextFile([]);
+    end;
+    itm_wrap: begin
+      gViewerWrapText:= Boolean(Message.ItemID);
+      actWrapText.Checked:= gViewerWrapText;
+    end;
   end;
 end;