ADD: Viewer plugins - itm_center and itm_wrap support

This commit is contained in:
Alexander Koblov 2022-04-02 19:38:04 +03:00
commit 3972b94de8

View file

@ -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;