XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zwischenablage
Lauffähig ab Profan-Version 5.0
titel:    Zwischenablage
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    21.01.2001
-----------------------------------------------
Erklärung:
----------
Die Zwischenablage in Windows gibt einem Freiheiten,
die so manchen wichtigen Zweck erfüllen kann.
Sei es, man möchte etwas an ein anderes selbstgeschriebenes
Programm übergeben, kurzfristig Daten aufzuheben, und und und....
declare ende%				Variablen vorbereiten
declare edit&,text&,button&,edit$,test$	dito
WINDOW 30,30 - 500,250			Fenster erstellen
WINDOWTITLE Zwischenablage		Fenstertitel
hier werden Objekte zur Bedienung erzeugt (übliche Parameter)
let edit&=CreateEdit (%hwnd,Bitte diesen Text markieren und mit der rechten Maustaste kopieren,5,70,450,20)
let text&=CreateText (%hwnd,,5,100,300,40)
let button&=CreateButton (%hwnd,Zwischenspeicher anzeigen,5,150,200,30)
Print Einfach mal was in das Texfeld eingeben
Print und dann rechte Maustaste und kopieren
Print danach wieder Button drücken
Print Oder etwas in einer Anwendung kopieren und Button drücken :-)
noch darauf hinzuweisen ist das %hwnd, das Hauptfenster ist!

WHILENOT ende%				Solange nicht Variable ende%=1

    WAITINPUT				Wartet auf Maus oder Taste

    If @GetFocus(button&)			Wird der Button gedrückt, so wird

        let test$=GetClip$()    	die Zwischenablage ausgelesen
        SetText text&,test$		den ausgelesenen Text ins Textfeld
        siehte auch:
        ClearClip			Zwischenablage löschen
        PutClip TEXT			Einen Text in die Zwischenablage kopieren

    endif

    WEND					Zurück zu WHILENOT ende%