Deutsches Lazarusforum

Versuch mal, den WM_SIZE -Event abzufangen und da die ScrollBars entsprechend zu setzen. Vielleicht kannst du den Code auch in den ReSize -Handler hineinschreiben.

type
TPlutoEditor = class(TCustomControl)
private
procedure WMSize(var Message: TWMSize); message WM_SIZE;
end;

procedure ...

CharWidth und CharHeight bezeichnen die Breite und Höhe eines Buchstabens in der aktuellen Schrift, nicht die Cursorgrösse. Und ja: ClientWidth und ClientHeight bezeichnen die Grösse des Fensters. Im Gegensatz zu den normalen Width und Height Eigenschaften werden bei den Client -Varianten noch der ...

Leider bringen die Sourcen von TMemo nicht allzu viel. Im wesentlichen leitet TMemo die Aufgaben nur an Windows weiter und so sieht man nichts, wie es wirklich implementiert ist :-(.

Ich glaube, wir sprechen teilweise aneinander vorbei. Deshalb habe ich nochmals versucht, in Worten und mit einem ...

CalcPosToCoord
In der normalen TMemo-Komponente von Delphi wird die Position des Carets als Integer-Offset innerhalb des Textes angegeben. Dieser Offset muss je nach Bedarf in Bildschirm-Koordinaten umgerechnet werden. Genau dazu ist CalcPosToCoord da. Wenn du bereits die Caret_Position als TPoint ...

Ich möchte im Moment noch nicht meinen ganzen Quelltext veröffentlichen, einfach weil's noch zu stark eine Baustelle ist und ich an allen Ecken und Enden herumbastle. Ich habe dir aber alle Methoden zusammengetragen, die bei mir für den Caret bzw. das Scollen verantwortlich sind.

Was dich vor ...

Tut mir leid, dass ich da etwas verwirrung gestiftet habe. Ich wollte den Quelltext möglichst kurz halten und habe daher die Behandlung der vertikalen ScrollBar ausgelassen...

Mir ist nun noch nicht ganz klar, in wie fern die Cursorposition Auswirkungen auf die ScrollBars haben soll. In der Regel ...

Zuerst einmal irritiert mich, dass es überhaupt funktioniert, wenn du vor dem inherited Create eine Eigenschaft setzst. In der Regel setzt nämlich TObject.Create (das ja letzlich aufgerufen wird) alle Felder auf Null.

Mit den Werten, die du gewählt hast, kann man ja auch nur horizontal (in X ...

Dass sich nichts tut, wenn Du in OnCreate die Eigenschaft "FScrollBars" setzt liegt daran, dass dann das Fenster schon erzeugt wurde.

Wenn die Edit-Komponente erstellt wird, dann wird die Windows-API-Funktion "CreateWindowEx" mit den nötigen Parametern aufgerufen. Die virtuelle Methode CreateParams ...

Ich habe in der angefügten Datei einmal diejenigen Teile von meiner Komponente zusammengetragen, die für das Scrollen verantwortlich sind. Wie gesagt habe ich das ganze mit Delphi für Win32 geschrieben und ich weiss grad nicht, was man alles in Lazarus so übernehmen kann...

Ich weiss nicht genau ...

Leider kenne ich keine Seite auf Deutsch. Ich war schon glücklich, überhaupt eine Seite zu dem ganzen Thema zu finden!

Danke, aber im Moment möchte ich den Editor noch nicht portieren. Ich bin auch erst gerade im Alpha-Stadium und will zuerst dieses Projekt abschliessen, bevor ich mich an ...

Ich schreibe auch gerade an einem eigenen Editor, allerdings unter Delphi. Dabei hat mir die Seite
http://www.catch22.net/tuts/
viel geholfen. Dort gibt es ein Tutorial, wie man mit C/C++ einen Editor unter Windows bastelt.
Du kannst wahrscheinlich nicht alles direkt übernehmen, aber die Ideen ...