Newsgroup: it.comp.software.newsreader
Titolo: [Dialog] Traduci da newsreader

xpost it.cultura.linguistica.inglese,it.comp.software.newsreader
Per gli utenti di Dialog.
Grazie a uno script della brillantissima MLC, è possibile lanciare una ricerca
su Onelook direttamente da Dialog. In pratica, basta selezionare una parola 
o  una frase nel testo di un messaggio e premere un tasto
Lo script originario di MLC, ulteriormente migliorato da Lem Novantotto
e "A.Pigafetta",  serve per cercare in Google, se ne parla in
http://groups.google.com/group/it.comp.software.newsreader/browse_thread/thread/d4d89b5c5624a065/74375423b9814ba7?#74375423b9814ba7
ma con una semplicissima modifica è possibile usarlo per Onelook.
Riporto di seguito lo script adattato.
Naturalmente occorre
 
1. Aprire la finestra Script dal menu Impostazioni di Dialog
(verificare che gli Script siano abilitati)
2. Selezionare il tab Script personali e creare un nuovo script vuoto 
(File - Nuovo script)
3. Tagliare le righe già presenti e incollarci il testo dello script
(attenzione che non si perdano pezzi delle righe lunghe negli a capo)
4. Salvare (File - Salva), compilare (Script- Compila) 
e, non si sa mai, ricaricare (Script-Ricarica script)
5. Associare allo script una Icona e un Hint, per esempio "Onelook",
nelle finestrelle in basso a sinistra della Finestra degli script.
6. Associare allo script un pulsante sula barra di comando di Dialog.
Per questo, sempre dalla finestra degli script:
"Mostra config. pulsanti" - "Scripts" - "Onelook" e trascinare l'icona
sulla barra.
Inoltre, si può associare lo script a una combinazione di tasti non già
utilizzata, per esempio io ho scelto Ctrl-Shift-O
Terminata la procedura, chiudere la finestra degli script e usare normalmente
Dialog. Quando si vorrà lanciare Onelook per cercare una parola, basterà
selezionarla col mouse e premere il pulsante associato allo script, 
o la relativa combinazione di tasti.
Se si vuole usare sia per Onelook sia per Google, basta creare due script, 
uno per ciascuna variante.
==================================
Script per cercare in Onelook.com
==================================
copiare da qui sotto:
Program CercaInOnelook;
  uses
    Forms, StdCtrls;
 
  var testo: string;                                      
 
  function ShellExecute(hWnd: THandle; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): THandle;
   external 'ShellE...@shell32.dll stdcall';
 
  function GetClipboard: String;
  var
    MioMemo: TMemo;
    MioForm: TForm;
 
  begin
    MioForm:=TForm.Create(nil);
    MioMemo:=TMemo.Create(MioForm);
    MioMemo.Parent:=MioForm;
    MioMemo.PasteFromClipboard;
    Result:=MioMemo.Text;
    MioMemo.Free;
    MioForm.Free;      
  end;
 
  Begin
   Ado('Copy');
   // Postkey(67,false,false,true,false,false,false,false,false); //Ctrl+C  
   testo := '%22'+GetClipboard+'%22';                                      
   ShellExecute(0, 'open', PChar('
http://www.onelook.com/?w='+testo
), '', '', 1);       
  End.

 uno per ciascuna variante.
Perdona la 'gnoranza: come si fa?
:)
-- 
Presidente:"Fummo andati in Brasile e comprammo Juary" - Giornalista:
"Siamo" - Presidente:"Dicevo che fummo andati in Brasile a comprare.."
Giornalista:"Presidente:SIAMO!" - Presidente con tono iracondo:"Ma che
sì venuto pure tu?". (Antonio Sibilia ex Presidente dell’Avellino)

 Perdona la 'gnoranza: come si fa?
ShellExecute(0, 'open', PChar('
http://www.google.com/search?q='+testo
),
'', '', 1);       
Ok, ok! ^_^
-- 
"Ho un modo infallibile per calciare i rigori: li metto dentro".
(Eric Cantona)

   End.
c'è rimasto (commentato) l'inutile Postkey del Ctrl+C (si può cavare).
Per la precisione :-D
-- 
 /   _ _ | Navigare necesse est, vivere non est necesse  -- Pompeo
( (/( (/ | Concepción, Victoria, Sant'Antonio, Trinidad, Sant Jago

 l'articolo di *Lem*...
Vedi, come Meucci e Bell! Non l'hai scritto ma l'avevo intuito! ;-)
-- 
Enrico C
nuovo indirizzo email: 
http://snipurl.com/MyEmailAddress