Hallo,
ja, ich nutze Pasteinformation unter R8.01.
Hier mein Code für das Smart Icon:
database := "Global\\pasteinformation.nsf" ;
choicelist := @DbColumn("" : "ReCache" ; @ServerName : database ; "($All)" ; 0 );
dockey := @Prompt([OkCancelList] ; "Add text..." ; "Bitte wählen den Textbaustein, der an der aktuellen Cursorposition eingefügt werden soll." ; "" ; choicelist) ;
@PostedCommand([FileOpenDatabase]; @ServerName : database ; "($All)" ; dockey ; 1 ; 1 ) ;
@PostedCommand([EditDocument]) ;
@PostedCommand([EditGotoField] ; "Body" ) ;
@PostedCommand([EditSelectAll]) ;
@PostedCommand([EditCopy]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([EditPaste])
Wobei ich auch mal die Fehlermeldung hatte.
Gruß
Bernd