Auswahlbox, wie die Codevervollständigung

[Balu der Bär]

Sharky, dass Problem ist doch, wenn er wüsste wie man so etwas implementiert würde er nicht hier fragen. Und daher denke ich wäre es eine Qual bzw. würde vielleicht einige Zeit dauern, bis er es implementiert hat. Und wenn es da schon etwas fertiges gibt, wieso nicht benutzen?

[Matze]

Zitat von Balu der Bär:

Und wenn es da schon etwas fertiges gibt, wieso nicht benutzen?

Das ist Quatsch. Es kommt immer darauf an, was er machen möchte. ich ging davon aus, er schreibt sich eine kleine IDE und da ist das SynEdit sehr zu empfehlen. Falls er aber nur diese Codevervollständigungs-Box benötigt, dann tut's auch eine ListBox und es wäre übertrieben, extra das SynEdit zu installieren.
Wenn es einfach selbst zu basteln ist, ist das immer die erste Wahl.

[xZise]

Also ich habe auch gedacht, programmierste schnell mal eine Codevervollständigung.
Nur gibt es da zwei Probleme:
=> Wo zeige ich die Box an
=> Wenn ich einen Text eintippe, dann soll er sich daran anpassen

[DGL-luke]

Hmm... hol dir die Zeile in der du bist und die Cursorpos (Wenn du die nicht in Pixeln kriegst, dann über GetTextExtent).

Die Listbox über dein Memo/RichEdit zu platzieren sollte auch kein Problem sein.

Dann solltest du überlegen, wo du deinen Fokus hintust - wenn aufs Memo, musst du Pfeil Rauf/runter und Enter abfangen, wenn in die Listbox, alles andere.

[xZise]

Zitat von DGL-luke:

Hmm... hol dir die Zeile in der du bist und die Cursorpos (Wenn du die nicht in Pixeln kriegst, dann über GetTextExtent).

Sry, aber ich kenn mich mit der msdn nicht so aus...
Aber der Befehl kennt er nicht... Welche Unit muss ich einbinden?

Zitat von DGL-luke:

Die Listbox über dein Memo/RichEdit zu platzieren sollte auch kein Problem sein.

Das ist echt das kleinste Problem daran

Zitat von DGL-luke:

Dann solltest du überlegen, wo du deinen Fokus hintust - wenn aufs Memo, musst du Pfeil Rauf/runter und Enter abfangen, wenn in die Listbox, alles andere.

Ich denke, dass Memo ist einfacher... Ich müsste nur die Tastendrucke auffangen, wenn die Listbox visible ist

[edit]Also die selbstgemachte Vervollständigung ist schoin fast fertig... Ich müsste nur herausfinden, wo sich der Cursor befundet...
Ich hatte das getestet für die Höhe:

Delphi-Quellcode:

     counts := 0;
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      inc(counts, Length(Memo1.Lines[i]));
      if Memo1.SelStart > counts then
        ListBox1.Top := Memo1.Top - Memo1.Font.Height * i;
    end;

[/edit]

[Matze]

Moin,

eben schnell zusammengetippt und kompiliert, da tut's soweit. Es kann sein, dass du das noch etwas anpassen musst:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var
  CaretPos: TPoint;
begin
  GetCaretPos(CaretPos);

  with Sender as TMemo do
    CaretPos := ClientToParent(CaretPos);

  with ListBox1 do
  begin
    Left := CaretPos.X + 3;
    Top := CaretPos.Y - Memo1.Font.Height + 3;
  end;
end;

[DGL-luke]

Sorry, Funktion heißt GetTextExtentPoint32.

Zitat von PSDK:

Windows NT/2000/XP: Included in Windows NT 3.5 and later.
Windows 95/98/Me: Included in Windows 95 and later.
Header: Declared in Wingdi.h; include Windows.h.
Library: Use Gdi32.lib.
Unicode: Implemented as Unicode and ANSI versions on all platforms. Also supported by Microsoft Layer for Unicode.

aber du solltest auch anders die aktuelle Cursorposition in Pixeln rausfinden können, das hier ist mehr oder weniger der letzte Ausweg.

//Jo, Matze schreibts gerade.

[xZise]

Funktioniert gut Problematik ist nur, wenn man den Cursor nach rechts/links bewegt, und ihn "neusetzt", dass er die Position nimmt, bevor er bewegt wurde (ch hoffe es ist klar ), aber ich denke, dass lässt sich lösen, in dem man überprüft, ob man nach rechts/links bewegt wurde ...

@ DGL: np Aber da war glaub ich Matze schneller

[edit]Ich kann jetzt verkünden, dass ich allen danke ^^ Es funktioniert so wie es soll...[/edit]