Shortcut-Folgen

[diogenes]

In der IDE geht es zum Beispiel, bei gedrückter Strg-Taste nicht nur eine, sondern zwei (oder vielleicht noch mehr?) tasten zu drücken, um etwas auszulösen, z.B. einen ausgewählten Block im Editor auf konsequente Kleinschreibung umzustellen, was mit Ctrl+K,O geschieht. Wie krieg' ich das bei einer Anwendung hin?

[theo]

Ich fürchte das geht nicht so out-of-the-box. Musst wahrscheinlich mit OnKeyUp/Down arbeiten.
Ich glaube auch, dass in der IDE nur Synedit das macht, mit dem eigenen Command Processor.

[diogenes]

Schade. Un wie wird das bei dem SynEdit gemacht?

[theo]

Ich habe keine Ahnung.
Aber die gute Nachricht ist: Du hast sämtlichen Quellcode, sowohl für Synedit wie für die IDE.

[Michl]

K.A., wie das in SynEdit implementiert ist, könntest aber auch einfach sowas machen:

Code: Alles auswählen

uses ..., LCLType;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FControlKeys: Array of Word;
...
 
procedure TForm1.FormKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key <> VK_CONTROL) then
  begin
    SetLength(FControlKeys, Length(FControlKeys) + 1);
    FControlKeys[High(FControlKeys)]:=Key;
  end
  else
    SetLength(FControlKeys, 0);
 
  if (Length(FControlKeys) = 2) and
     (FControlKeys[0] = VK_K) and
     (FControlKeys[1] = VK_O) then
  begin
    ShowMessage('<CTRL> + <K> + <O> pressed');
    SetLength(FControlKeys, 0);
  end;
end;               

[Mathias]

Ich habe es probiert, mit einem Menu geht es.

Die ShortCuts können natürlich auch im Objectinspector angegeben werden.

Code: Alles auswählen

  MenuItem2.ShortCut:=TextToShortCut('O');
  MenuItem2.ShortCutKey2:=TextToShortCut('Ctrl+K');

Kleiner Wermutstropfen im Menu-Eintrag werden Ctrl+K, O vertauscht angezeigt.

So wird es richtig angezeigt, aber es funktioniert nicht.

Code: Alles auswählen

  MenuItem2.ShortCutKey2:=TextToShortCut('O');
  MenuItem2.ShortCut:=TextToShortCut('Ctrl+K');

[theo]

Ich habe es probiert, mit einem Menu geht es.

Die ShortCuts können natürlich auch im Objectinspector angegeben werden.

Code: Alles auswählen

  MenuItem2.ShortCut:=TextToShortCut('O');
  MenuItem2.ShortCutKey2:=TextToShortCut('Ctrl+K');

So wird die Aktion einfach bei jedem "O" ausgelöst. Das ist wohl nicht der Sinn der Sache.

[Mathias]

So wird die Aktion einfach bei jedem "O" ausgelöst. Das ist wohl nicht der Sinn der Sache.

Stimmt, das habe ich gar nicht gemerkt.

Dafür habe ich festgestellt, das ShortCutKey2 auf keine Art und Weise reagiert.

[m.fuchs]

Dafür habe ich festgestellt, das ShortCutKey2 auf keine Art und Weise reagiert.

Was vermutlich im Zusammenhang damit steht, dass die Eigenschaft im Trunk überhaupt nicht mehr vorhanden ist.

[theo]

Was vermutlich im Zusammenhang damit steht, dass die Eigenschaft im Trunk überhaupt nicht mehr vorhanden ist.

Bei TMenuItem ist sie noch da. Bei TAction giibt es SecondaryShortCuts. Afaik sind beide aber für Alternativen und nicht für Sequenzen.

[diogenes]

Ich seh schon, das werd' ich wohl mit der Hand irgendwie stricken müssen.
Und wie krieg' ich die Anzeige im Menü hin? Wenn ich einfach den Eintragstext mit Tabulator und, sagen wir, "STRG+K,O" erweitere, werden die Erweiterungen nicht rechtsbündig angezeigt, sondern nur mit einem Abstand vom eigentlichen Text.

[Mathias]

Ich wollte in den Lazarus Code der IDE gucken.

Weis jemand wie die Komponente heisst, dort wo das Menü und die Komponenten-leiste ist ?

Im Menu Bearbeiten hat es auch solche Doppel-ShortCuts.

[martin_frb]

Soweit ich mich erinnere, reicht die IDE die keystrokes einfach an SynEdit durch, und kriegt das Ergebnis dann in einem Event OnCommandProcess / OnUserCommandProcess oder aehnlich)

keystrokes ide/*key*.pas

menu: search for TIDEMenuItem

[diogenes]

Danke. Ich schau mir's an.

[Mathias]

menu: search for TIDEMenuItem

Ich habe den ganzen Lazarus-Ordner, inklusive Datei-Inhalt, nach TIDEMenuItem durchsucht.
Konnte aber nichts finden.