Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by Christian Seehase, 30. Mai 2003
  Moin Tom,
  
  ich hatte so etwas geahnt.
  Das Problem ist, dass iOffset nicht wieder zurückgesetzt wird.
  
  Die dritte Zeile im OnKeyDown muss so aussehen:
  
  if ((SynEdit1.CaretY = 1) and (iOffset = -1)) or ((SynEdit1.CaretY = SynEdit1.Lines.Count) and (iOffset = 1)) or (not (Key in )) then iOffset := 0;
  
  Jetzt wird der Offset auch dann immer zurückgesetzt, wenn kein VK_DOWN oder VK_UP...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by Christian Seehase, 30. Mai 2003
  Moin Tom,
  
  ich denke ich hab's
  
  var
  iOffset : integer; // globale Variable
  
  procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;
  Line: Integer; var Special: Boolean; var FG, BG: TColor);
  begin
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by Christian Seehase, 29. Mai 2003
  Moin Tom,
  
  beim Klicken ginge es so:
  
  procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;Line: Integer; var Special: Boolean; var FG, BG: TColor);
  begin
  if Line = SynEdit1.CaretY then
  begin
  Special := true;
  bg :=clGreen;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by Christian Seehase, 29. Mai 2003
  Moin Tom,
  
  ich wüsste zu SynEdit im Moment leider gar keine Hilfe, geschweige denn eine deutschsprachige, bzw. für Newbies in SynEdit.
  
  Das Beispiel hab' ich schon ausprobiert, es funzt.
  Da ich mich mit SynEdit ansonsten kaum auskenne hab' ich mich auch davor "gedrückt" herauszufinden, welche Zeile die aktuelle ist. CaretPos.X wie bei RichEdit konnte ich nämlich nicht finden ;-)
  
  Wenn Du...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by Christian Seehase, 29. Mai 2003
  Moin Tom,
  
  OnSpecialLineColors wird beim Zeichnen jeder Zeile aufgerufen.
  Jetzt musst Du nur noch einen Filter in die Funktion einbauen, der, je nach Zeilennummer die gerade dran ist (die Zählung fängt bei 1 an), die Farben setzt, oder eben auch nicht.
  
  Beispiel:
  Ich habe 3 Zeilen, und die sollen "hübsch bunt" ;-) werden:
  
  procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;
  ...