AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Comment-Tool gebastelt, aber beim Clipboard knallts noch....

Comment-Tool gebastelt, aber beim Clipboard knallts noch....

Ein Thema von henrik · begonnen am 12. Aug 2007 · letzter Beitrag vom 13. Aug 2007
Antwort Antwort
henrik

Registriert seit: 25. Nov 2003
36 Beiträge
 
Delphi 2007 Professional
 
#1

Comment-Tool gebastelt, aber beim Clipboard knallts noch....

  Alt 12. Aug 2007, 20:12
hallo,

leider gibt es bis Delphi 2005 keine automatische Kommentarfunktion ( markierten Quelltext mit einem Klick oder Tastenkombi mit "//" versehen). Auch eine Codeblock - Einrückfunktion werden sicherlich viele Benutzer von Delphi < 2005 vermissen.

Folgender Code realisiert dies im Prinzip. Leider macht das Clipboard -Objekt manchmal Probleme (zB. nach mehreren Einrückoperationen hintereinander) :

"Zwischenablage kann nicht geöffnet werden". Das passiert in der Funktion "copyMarkedTextToClipBoard()".


Habe diesbezuglüch schon mehrere Zugriffs-Varianten auf das Clipboard ausprobiert - ohne dauerhaften Erfolg.

Vielleicht fällt euch dazu was ein !?


Wenn das Ding dann mal fehlerfrei funktioniert, könnte man es zB. zu den Delphi Editor Tools hinzufügen und im Hintergrund laufen lassen und sich so manch stupides Codegeschubse ersparen.


Der markierte Text wird sich übrigens per Tastendrucksimulation STRG C / V besorgt. Könnte man evtl. auch mit WM_COPY o.ä. realisieren. Ansonsten wird im onTimer -event geprüft ob die entsprechende Tastenkombination vorliegt:


TODO wäre u.a. noch ,den zuvor in der Zwischenablage enthaltenen Code zu sichern und nach dem Paste-Vorgang wieder zuzuweisen.



Gruss
Henrik


STRG + # = comment marked codeblock
STRG + SHIFT+ # = uncomment marked codeblock
STRG + "+"/"-" = shift marked codeblock right/left

(Benötigt wird eine TTimer -komponente.)


Delphi-Quellcode:
unit UComment;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Clipbrd, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  blocked, releasedFunctionKey : boolean;
  FunctionKey: integer; // + , - , #

  lastMouseUp, lastMouseDown: TPoint;//Var. um Markierung im Editor wdhzustellen
  lastMouseVal: integer;

implementation

{$R *.dfm}

//##############################################################################
function copyMarkedTextToClipBoard(): string;
var
  i: integer;
  MyHandle: THandle;
  TextPtr: PChar;

  clipb: TClipboard;

begin
  clipb := TClipboard.Create;

  Result := '';

  keybd_event(VK_CONTROL, 0, 0, 0); // STRG + C
  keybd_event(67, 0, 0, 0);

  sleep(5);

  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // Tasten loslassen
  keybd_event(67, 0, KEYEVENTF_KEYUP, 0);

  Result := clipb.AsText; // Hier knallts ab und zu ...


// MyHandle := clipb.GetAsHandle(CF_TEXT);
// TextPtr := GlobalLock(MyHandle);
// Result := StrPas(TextPtr);
// GlobalUnlock(MyHandle);

   clipb.Free; // ...oder hier

end;
//##############################################################################
procedure pasteClipBoardTextInEditor();
begin
  sleep(5);

            keybd_event(VK_CONTROL, 0, 0, 0);
            keybd_event(86, 0, 0, 0);

  sleep(5);

            keybd_event(86, 0, KEYEVENTF_KEYUP, 0);
end;
//##############################################################################
procedure reSelectText();
begin
 // die durch den Paste-Vorgang verlorengegangene Selektierung wiederherstellen

       SetCursorPos(lastMouseDown.X, lastMouseDown.Y);
       Mouse_Event(MOUSEEVENTF_LEFTDOWN, lastMouseDown.X, lastMouseDown.Y, 0, 0);
       SetCursorPos(lastMouseUp.X, lastMouseUp.Y);
       Mouse_Event(MOUSEEVENTF_LEFTUP, lastMouseUp.X, lastMouseUp.Y, 0, 0);

end;
//##############################################################################
procedure TForm1.Timer1Timer(Sender: TObject);
var
  strings: TStringList;
  i: integer;
begin

  if (ABS(GetKeyState(VK_ESCAPE)) > 1) then
  begin
    Timer1.Enabled := False;

    Application.Terminate;
  end;


  if blocked then exit;



  if NOT (ABS(GetKeyState(FunctionKey)) > 1) then
        releasedFunctionKey:=true; // zB. "+" losgelassen

  if not releasedFunctionKey Then exit;

  // wurde die linke maustaste gerade gedrückt oder losgelassen und wenn WO ? :

  if (ABS(GetKeyState(VK_LBUTTON)) >= 127) then //gerade gedrückt
  begin
    if (lastMouseVal <= 1) then // zuletzt nicht gedrückt
    begin
      GetCursorPos(lastMouseDown);
    end;

  end
  else
   if (ABS(GetKeyState(VK_LBUTTON)) <= 1) then //gerade nicht gedrückt
   begin
     if (lastMouseVal > 1) then // zuletzt gedrückt
     begin
       GetCursorPos(lastMouseUp);
     end;
   end;

    lastMouseVal := ABS(GetKeyState(VK_LBUTTON));



  // die eigentlichen Textoperationen :




  // Kommentare setzen/entfernen -----STRG + # ---------------------------------
  if (ABS(GetKeyState(VK_CONTROL)) > 1) and (ABS(GetKeyState(191)) > 1) then
  begin
    blocked := True;
    FunctionKey:=191;
    releasedFunctionKey:=false;
    // Text kopieren

    strings := TStringList.Create;
    strings.Text := copyMarkedTextToClipBoard();


    // SHIFT gedrückt ?:

    if (ABS(GetKeyState(VK_SHIFT)) > 1) then //ja : Kommentar entfernen:
    begin
      for i := 0 to strings.Count - 1 do
      begin
        strings.Strings[i] := StringReplace(strings.Strings[i], '//', '', []);
      end;

      keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); // shift wieder hoch
    end
    else // mit Kommentar versehen :
    begin

      for i := 0 to strings.Count - 1 do
      begin
        strings.Strings[i] := '//' + strings.Strings[i];
      end;

    end;


    Clipboard.AsText := strings.Text;

    // und in editor einfügen:

    pasteClipBoardTextInEditor();
    strings.Free;

  end
  else
  //Textblock einrücken rechts -----> -----STRG + "+" -----------------------:

  if (ABS(GetKeyState(VK_CONTROL)) > 1) and (ABS(GetKeyState(187)) > 1) then
  begin
    blocked := True;
    FunctionKey:=187;
    releasedFunctionKey:=false;

    //markierten Text im Editor kopieren

    strings := TStringList.Create;
    strings.Text := copyMarkedTextToClipBoard();



    for i := 0 to strings.Count - 1 do
    begin
      strings.Strings[i] := ' ' + strings.Strings[i];
    end;



    Clipboard.AsText := strings.Text;

    // und einfügen
    pasteClipBoardTextInEditor();

    //Markierung wiederherstellen:
    reSelectText();

    strings.Free;


  end
  else
  //Textblock einrücken left <----- ------STRG + "-" ----------------------:
                                                    
  if (ABS(GetKeyState(VK_CONTROL)) > 1) and (ABS(GetKeyState(189)) > 1) then
  begin
    blocked := True;
    FunctionKey:=189;
    releasedFunctionKey:=false;
    // Text kopieren

    strings := TStringList.Create;
    strings.Text := copyMarkedTextToClipBoard();



    for i := 0 to strings.Count - 1 do
    begin
      if copy(strings.Strings[i], 1, 1) = ' then
        strings.Strings[i] := copy(strings.Strings[i], 2, length(strings.Strings[i]));
    end;


    Clipboard.AsText := strings.Text;

    // und einfügen
    pasteClipBoardTextInEditor();

    //Markierung wiederherstellen:

    reSelectText();


    strings.Free;


  end;

  blocked := False;


end;
//##############################################################################
procedure TForm1.FormCreate(Sender: TObject);
begin
  lastMouseVal := 1;
  releasedFunctionKey:=true;
  timer1.Interval:=50;
  timer1.OnTimer:=Timer1Timer;
  timer1.Enabled:=true;
end;
//##############################################################################
end.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 12. Aug 2007, 20:24
Ähm, sehe ich das richtig, du kontrolliesrt ständig in einem Timer, was der Bneutzer macht und kopierst dann den Text in die Zwischenablage? Und was passiert mit dem Inhalt der Zwischenablage?

So was macht man über die Programmierschnittstelle der IDE, der sogenannten ToolsAPI.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 12. Aug 2007, 20:30
Hallo,

Zitat von Luckie:
So was macht man über die Programmierschnittstelle der IDE, der sogenannten ToolsAPI.
Du meinst, so wie es die Funktion Comment Code bei den GExperts macht?

Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 12. Aug 2007, 21:50
Zitat von Hawkeye219:
Zitat von Luckie:
So was macht man über die Programmierschnittstelle der IDE, der sogenannten ToolsAPI.
Du meinst, so wie es die Funktion Comment Code bei den GExperts macht?
Jupp.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
henrik

Registriert seit: 25. Nov 2003
36 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 13. Aug 2007, 19:02
klasse, genau sowas wie GExperts hatte ich gesucht. Damit hat sich mein Projekt erledigt, denn warum das Rad neu erfinden.
  Mit Zitat antworten Zitat
s-off
(Gast)

n/a Beiträge
 
#6

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 13. Aug 2007, 19:43
Zitat von henrik:
[...]denn warum das Rad neu erfinden.
Um zu verstehen, wie es funktioniert
  Mit Zitat antworten Zitat
henrik

Registriert seit: 25. Nov 2003
36 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Comment-Tool gebastelt, aber beim Clipboard knallts noch

  Alt 13. Aug 2007, 19:53
Zumindest muss ich mich evtl. doch damit beschäftigen, denn so wie es aussieht gibts bei GExperts keine Codeblock- Einrückung ?

Gibts denn sonst noch IDE-Plugins für Delphi < 2005 , die zB. auch Refactoring (umbenennen von Variablen, getters/setters generieren...) können ?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz