Het hol van de Code

28 februari, 2006

Demonstratie: Het manipuleren van het Klembord in Delphi

Filed onder: Het 5:07 p.m. van Delphi - van Brian @

Hier is een snelle demonstratie van hoe de gemakkelijke programmering in Delphi is.

Dit kleine app staat u toe om tekst en verleden te kopiëren het opnieuw rechtsweg met het omgezet in juiste geval of hoofdletters.  Dit werd geschreven voor een gebruiker ZTree die een bos van dossiers had dat hij t anders noemt aan gedeeltelijk in hoofdletters wilde.  Er was geen manier om het deel van de naam uit te kiezen die hij in hoofdletters heeft gewild. Zo schreef ik deze routine om hem toe te staan om een deel van de tekst te benadrukken, exemplaar te raken en dan deeg te raken.  En altviool, hij het worden bevestigd.

Zo in Delphi, hoe hebt u tot het klembord toegang? Goed, kon het niet eenvoudiger zijn.  Voeg enkel de clipbrdeenheid aan uw gebruiksverklaring als toe dit:

GEWONE TEKST
DELPHI:
  1. gebruik Clipbrd;

Dan kunt u aan het klembord als tekst als dit lezen en schrijven:

GEWONE TEKST
DELPHI:
  1. A: = Clipboard.AsText;
  2. Clipboard.AsText: = A + `BC';

Natuurlijk is het best om te controleren dat u tekstbefor behandelt u probeert om de informatie van het klembord terug te krijgen.  Dat kan als dit worden gedaan:

GEWONE TEKST
DELPHI:
  1. als (Clipboard.HasFormat (CF_TEXT)) dan DoIt;

Zie! Het is ongecompliceerd DAT.  Als u wilt zien wat andere klembordformaten daar zijn, enkel zal het hoogtepunt CF_TEXT in Delphi en klap F1 en u een volledige lijst krijgen.

Waarde Betekenis
CF_TEXT Tekst met een combinatie Cr-LF aan het eind van elke lijn. Een ongeldig karakter identificeert het eind van de tekst.
CF_BITMAP Grafisch bitmap van Vensters.
CF_METAFILEPICT Een grafisch metadossier van Vensters.
CF_PICTURE Een voorwerp van type TPicture.
CF_COMPONENT Om het even welk blijvend voorwerp.

Zo zijn de instructies om volledige app tot stand te brengen vrij eenvoudig:
In Delphi, creÃër nieuwe app. In de Inspecteur van Objecten, noem de belangrijkste vorm frmCBFix, verander de stijl van de Grens in bsToolWindow, en verander de vormstijl in fsStayOnTop

Plaats een TEdit op de vorm en noem het editCorrected tekst, ontruimend de standaardtekstwaarde.

Voeg Clipbrd aan het gebruik toe.

Zet een TTimer op de vorm en klik de tijdopnemergebeurtenis in de Inspecteur van Objecten tweemaal.

Kleef de volgende code in de eenheid die de automatische geproduceerde procedure Timer1Timer vervangt:

GEWONE TEKST
DELPHI:
  1. {******************************************************************************
  2.   ProperCase
  3.   Zet een koord in juist geval om door elke brief na een ruimte te kapitaliseren of
  4.   punctuatie.  De enige gemeenschappelijke gebruikte niet punctuatie is het weglatingsteken/kiest uit
  5.   citaat.  Dit vermijdt veranderend niet niet, maar zal geciteerde zinnen
  6.   de binnen enige citaten zullen hun eerste gekapitaliseerde brief niet hebben.
  7. ******************************************************************************}
  8. functie ProperCase (aSrcStr: Koord): Koord;
  9. var
  10.   Len, Index: geheel;
  11. begin
  12.   aSrcStr: = In kleine letters (aSrcStr);
  13.   Len: = Lengte (aSrcStr);
  14.   aSrcStr [1]: = In hoofdletters (koord (aSrcStr [1]))[1];
  15.   voor Index: = 1 aan Len - 1
  16.   beginnen
  17.     als (aSrcStr [Index] in [``, $ `', `„', `(', `) ', ``', `! ', `? ', `< ', `! ', `> ', `# ', `= ', `+ ', `: ', `, ', `/', `. ', `& ', `- ', `{', `} „, „[“,“] `, `|'])
  18.     dan aSrcStr [Index + 1]: = In hoofdletters (Koord (aSrcStr [Index + 1]))[1];
  19.   eind;
  20.   Resultaat: = aSrcStr;
  21. eind;
  22.  
  23. {******************************************************************************
  24.   Timer1Timer
  25.   De branden periodiek (oorspronkelijk elke 250ms), controleert het klembord tekst,
  26.   als het is veranderd, zet het in juist geval om en zet het resultaat in
  27.   het klembord en geeft controle uit.
  28. ******************************************************************************}
  29. procedure TfrmCBFix.Timer1Timer (Afzender: TObject);
  30. begin met // Timer1Timer
  31.   als Clipboard.HasFormat (CF_TEXT)
  32.   dan begin
  33.     als (editCorrectedText.Text <> Clipboard.AsText)
  34.     dan begin
  35.       editCorrectedText.Text: = ProperCase (Clipboard.AsText);
  36.       Clipboard.AsText: = editCorrectedText.Text;
  37.     eind;
  38.   eind;
  39. eind;  // Timer1Timer

En u wordt gedaan!

Hier zijn de dossiers voor dit project:
http://www.TheCodeCave.com/downloads/delphi/CBFixerUpper.exe
http://www.TheCodeCave.com/downloads/delphi/CBFixerUpper.dpr
http://www.TheCodeCave.com/downloads/delphi/u_CBFix.dfm
http://www.TheCodeCave.com/downloads/delphi/u_CBFix.pas

1 commentaar “

  1. [...] Zo is wat de code hierboven doet vraagt om het document in het oudervenster (waarin u met de rechtermuisknop aanklikte). Het vraagt dan om de huidige selectie (als om het even welk). Het wordt dan de huidige selectie als tekst en vraagt dan om het clibboardvoorwerp voor het huidige venster. Op dat punt is het een eenvoudige vraag aan SetData en de geselecteerde tekst wordt toegevoegd (met een paar toevoegingen) aan clippboard. Er zijn geen veel meer dan dat. Één ding dat zou moeten worden genoteerd is dat het type van gegevens in clibboard, in dit geval, als tekst moet worden gespecificeerd. U kunt meer over de andere types van gegevens lezen die een clibraad in mijn artikel over de manipulatie van het Klembord met Delphi kan behandelen HIER: [...]

    Pingback door het Hol van de Code - 2 Juni, het 12:48 am van 2006 @

Voer RSS voor commentaren op deze post. TrackBack URL

Verlaat een commentaar

Aangedreven door WordPress