unit MainFormU;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, SynEdit,
GR32_RangeBars;
type
{ TForm1 }
TForm1 = class(TForm)
HBar: TGaugeBar;
VBar: TGaugeBar;
SynEdit1: TSynEdit;
procedure HBarChange(Sender: TObject);
procedure SynEdit1Paint(Sender: TObject; ACanvas: TCanvas);
procedure VBarChange(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.HBarChange(Sender: TObject);
begin
SynEdit1.LeftChar:=HBar.Position+1;
end;
procedure TForm1.SynEdit1Paint(Sender: TObject; ACanvas: TCanvas);
begin
VBar.Max:=SynEdit1.Lines.Count-SynEdit1.LinesInWindow;
VBar.Position:=SynEdit1.TopLine-1;
HBar.Max:=SynEdit1.CharsInWindow-SynEdit1.LeftChar;
HBar.Position:=SynEdit1.LeftChar-1;
end;
procedure TForm1.VBarChange(Sender: TObject);
begin
SynEdit1.TopLine:=VBar.Position+1;
end;
initialization
{$I mainformu.lrs}
end.