From 22347e2a45e7ee6d76f33b64f65fe49ab1cf0e7d Mon Sep 17 00:00:00 2001 From: George Hazan Date: Sun, 15 Jun 2014 18:00:33 +0000 Subject: removed support for mathmodule & speech git-svn-id: http://svn.miranda-ng.org/main/trunk@9507 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/HistoryPlusPlus/hpp_externalgrid.pas | 77 +++++++++------------------- 1 file changed, 24 insertions(+), 53 deletions(-) (limited to 'plugins/HistoryPlusPlus/hpp_externalgrid.pas') diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index 98dd52d235..33199467c2 100644 --- a/plugins/HistoryPlusPlus/hpp_externalgrid.pas +++ b/plugins/HistoryPlusPlus/hpp_externalgrid.pas @@ -140,7 +140,6 @@ type procedure OnEventsFilterItemClick(Sender: TObject); procedure OnBrowseReceivedFilesClick(Sender: TObject); procedure OnOpenFileFolderClick(Sender: TObject); - procedure OnSpeakMessage(Sender: TObject); public constructor Create(AParentWindow: HWND; ControlID: Cardinal = 0); destructor Destroy; override; @@ -178,8 +177,6 @@ uses hpp_events, hpp_services, hpp_forms, hpp_bookmarks, hpp_messages, hpp_options, hpp_sessionsthread; -{$include m_speak.inc} - { TExtHistoryGrid } constructor TExtHistoryGrid.Create(AOwner: TComponent); @@ -424,7 +421,6 @@ begin pmGrid := TPopupMenu.Create(Grid); pmGrid.ParentBiDiMode := False; pmGrid.Items.Add(NewItem('Sh&ow in history', 0, False, True, OnOpenClick, 0, 'pmOpen')); - pmGrid.Items.Add(NewItem('Speak Message', 0, False, True, OnSpeakMessage, 0, 'pmSpeakMessage')); pmGrid.Items.Add(NewItem('-', 0, False, True, nil, 0, 'pmN1')); pmGrid.Items.Add(NewItem('&Copy', TextToShortCut('Ctrl+C'), False, True, OnCopyClick, 0, 'pmCopy')); pmGrid.Items.Add(NewItem('Copy &Text', TextToShortCut('Ctrl+T'), False, True, OnCopyTextClick, 0, 'pmCopyText')); @@ -782,45 +778,44 @@ var begin GridSelected := (Grid.Selected <> -1); pmGrid.Items[0].Visible := GridSelected and (Grid.State = gsIdle) and not Items[Grid.Selected].Custom; - pmGrid.Items[1].Visible := MeSpeakEnabled; + pmGrid.Items[2].Visible := GridSelected; pmGrid.Items[3].Visible := GridSelected; - pmGrid.Items[4].Visible := GridSelected; - pmGrid.Items[5].Visible := GridSelected and (Grid.State = gsInline); + pmGrid.Items[4].Visible := GridSelected and (Grid.State = gsInline); // works even if not in pseudo-edit - pmGrid.Items[6].Visible := GridSelected; - pmGrid.Items[8].Visible := GridSelected and (Grid.State = gsInline); - pmGrid.Items[9].Visible := GridSelected; + pmGrid.Items[5].Visible := GridSelected; + pmGrid.Items[7].Visible := GridSelected and (Grid.State = gsInline); + pmGrid.Items[8].Visible := GridSelected; if GridSelected then begin - pmGrid.Items[8].Checked := GridOptions.TextFormatting; + pmGrid.Items[7].Checked := GridOptions.TextFormatting; if Grid.State = gsInline then - pmGrid.Items[3].Enabled := Grid.InlineRichEdit.SelLength > 0 + pmGrid.Items[2].Enabled := Grid.InlineRichEdit.SelLength > 0 else - pmGrid.Items[3].Enabled := True; - pmGrid.Items[9].Enabled := pmGrid.Items[2].Enabled; + pmGrid.Items[2].Enabled := True; + pmGrid.Items[8].Enabled := pmGrid.Items[2].Enabled; end; - pmGrid.Items[10].Visible := GridSelected and not Items[Grid.Selected].Custom; - pmGrid.Items[11].Visible := GridSelected; + pmGrid.Items[9].Visible := GridSelected and not Items[Grid.Selected].Custom; + pmGrid.Items[10].Visible := GridSelected; if GridSelected then begin if Items[Grid.Selected].Custom then - pmGrid.Items[11].Visible := False + pmGrid.Items[10].Visible := False else if Grid.Items[Grid.Selected].Bookmarked then - TMenuItem(pmGrid.Items[11]).Caption := TranslateW('Remove &Bookmark') + TMenuItem(pmGrid.Items[10]).Caption := TranslateW('Remove &Bookmark') else - TMenuItem(pmGrid.Items[11]).Caption := TranslateW('Set &Bookmark'); + TMenuItem(pmGrid.Items[10]).Caption := TranslateW('Set &Bookmark'); end; - pmGrid.Items[13].Visible := (Grid.SelCount > 1); - pmGrid.Items[15].Visible := GridSelected and IsFileEvent(Grid.Selected); - if pmGrid.Items[15].Visible then - pmGrid.Items[15].Items[1].Visible := (SavedFileDir <> ''); + pmGrid.Items[12].Visible := (Grid.SelCount > 1); + pmGrid.Items[14].Visible := GridSelected and IsFileEvent(Grid.Selected); + if pmGrid.Items[14].Visible then + pmGrid.Items[14].Items[1].Visible := (SavedFileDir <> ''); + pmGrid.Items[15].Visible := (Grid.State = gsIdle); + pmGrid.Items[15].Items[0].Checked := not FUseHistoryRTLMode; + pmGrid.Items[15].Items[1].Checked := FUseHistoryRTLMode; pmGrid.Items[16].Visible := (Grid.State = gsIdle); - pmGrid.Items[16].Items[0].Checked := not FUseHistoryRTLMode; - pmGrid.Items[16].Items[1].Checked := FUseHistoryRTLMode; - pmGrid.Items[17].Visible := (Grid.State = gsIdle); - pmGrid.Items[17].Items[0].Checked := not FUseHistoryCodepage; - pmGrid.Items[17].Items[1].Checked := FUseHistoryCodepage; - pmGrid.Items[19].Visible := (Grid.State = gsIdle); + pmGrid.Items[16].Items[0].Checked := not FUseHistoryCodepage; + pmGrid.Items[16].Items[1].Checked := FUseHistoryCodepage; + pmGrid.Items[18].Visible := (Grid.State = gsIdle); pmGrid.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y); end; @@ -1369,28 +1364,4 @@ begin ShellExecuteA(0, 'open', Path, nil, nil, SW_SHOW); end; -procedure TExternalGrid.OnSpeakMessage(Sender: TObject); -var - mesW: String; - mesA: AnsiString; - hContact: THandle; -begin - if not MeSpeakEnabled then - exit; - if Grid.Selected = -1 then - exit; - // if Items[Grid.Selected].Custom then exit; - hContact := Items[Grid.Selected].hContact; - mesW := Grid.Items[Grid.Selected].Text; - if GridOptions.BBCodesEnabled then - mesW := DoStripBBCodes(mesW); - if Boolean(ServiceExists(MS_SPEAK_SAY_W)) then - CallService(MS_SPEAK_SAY_W, hContact, LParam(PChar(mesW))) - else - begin - mesA := WideToAnsiString(mesW, Items[Grid.Selected].Codepage); - CallService(MS_SPEAK_SAY_A, hContact, LParam(PAnsiChar(mesA))); - end; -end; - end. -- cgit v1.2.3