Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Statusbar aneigen (Spalte/Zeile) (https://www.delphipraxis.net/101490-statusbar-aneigen-spalte-zeile.html)

Störtebeker 14. Okt 2007 11:48


Statusbar aneigen (Spalte/Zeile)
 
Hi,

Ich würde in meiner Statusbar gerne anzeigen, in welcher Zeile und Spalte sich der Cursor in meinem SynEdit befindet. Folgendes habe ich dazu in der DP gefunden:

Zitat:

Servus
Also ich mach es wie aus den Beispielen von SynEdit:
Eine TActionList auf die Form droppen, dann ein neues TAction Object erzeugen (Doppelklick auf die ActionList, dann Rechtsklick und neue Aktion wählen). Dann die Aktion passend benennen, jetzt die Aktion anklicken im OI bei den Events des Objekts von TAction das Event OnUpdate auswählen, doppelklick darauf und dann folgenden Code rein:
Delphi-Quellcode:
var
  Point: TPoint;

begin
  Point := Editor.CaretXY;
  StatusBar.Panels[0].Text := Format(' %6d:%3d ', [Point.Y, Point.X]);
end;

Wobei du das Feld bzw. noch den Namen an deine Statusbar anpassen musst
Jetzt finalerweise noch die Statusbar anklicken, dann wieder im OI auf der Eventsleiste gehen und oben beim Feld Action unsere gerade frisch definierte Action auswählen, das wars jetzt dürfte sich alles von alleine Ändern, egal ob klicken, tasten oder sonst was

mfg phlux
Nun sagt mir Delphi allerdings:
Zitat:

[ERROR]...: Incompatible types: 'TPoint' and 'TBufferCoord'
Wat nu?

mfG
Störtebeker

dataspider 14. Okt 2007 18:22

Re: Statusbar aneigen (Spalte/Zeile)
 
Hi,

es reicht:
Delphi-Quellcode:
StatusBar.Panels[0].Text := Format(' %6d:%3d ', [Editor.CaretX, Editor.CaretY]);
// oder auch
StatusBar.Panels[0].Text := Format(' %6d:%3d ', [Editor.CaretXY.Char, Editor.CaretXY.Line]);
Cu, Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:15 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