unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Grids, Menus,inifiles;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    mm1: TMainMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Button1: TButton;
    BMP1: TMenuItem;
    Label7: TLabel;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    Label8: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    ComboBox2: TComboBox;
    N5: TMenuItem;
    Label4: TLabel;
    btn1: TButton;
    Label5: TLabel;
    TrackBar3: TTrackBar;
    TrackBar4: TTrackBar;
    Label6: TLabel;
    Edit1: TEdit;
    mmo1: TMemo;
    btn2: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure TrackBar4Change(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BMP1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  Infile = record
    num:  integer;
    name: string[12];
    size: longint;
  end;
type rt=object
        mytext:string;
        x1:integer;
        y1:integer;
        x2:integer;
        y2:integer;
        align:string;
        lc:Tcolor;
        linecount:integer;
        symbcount:Integer;
        constructor Init(amytext:string;ax1,ay1,ax2,ay2:Integer;aalign:string;alc:Tcolor;alinecount,asymbcount:integer);
        procedure outrt(amytext:string;ax1,ay1,ax2,ay2:Integer;aalign:string;alc:Tcolor;alinecount,asymbcount:integer);
        end;




var
    actual:rt;
    x1,x2,y1,y2,linecount,symbcount,code:integer;
    lc,fc:Tcolor;
    i,t,o,d:integer;
    Ini: Tinifile;
var
  Form1: TForm1;

implementation

{$R *.dfm}
constructor rt.Init;
begin
x1:=ax1; y1:=ay1; x2:=ax2; y2:=ay2; linecount:=alinecount; symbcount:=asymbcount; align:=aalign;
end;
procedure zz;
var s:string;
    Flag: Cardinal;
    Rect:TRect;
begin
 s := actual.mytext;
 Rect.Left:=10;
 Rect.Top:=10;
 Rect.Right:=100;
 Rect.Bottom:=100;
 Case (Form1.ComboBox2.ItemIndex+1) of
     1: Flag := DT_LEFT;
     3: Flag := DT_CENTER;
 else
     Flag := DT_RIGHT;
 end;
 Flag := Flag or DT_WORDBREAK;
 DrawText(Form1.Handle,PChar(s), length(s),Rect,Flag);
end;
procedure rt.outrt;
var gm,gd:integer;
    k,i,j:integer;
    adstr:string;
    fg:word;
    var s:string;
    Flag: Cardinal;
    Rect:TRect;
begin

x1:=ax1; y1:=ay1; x2:=ax2; y2:=ay2; linecount:=alinecount; symbcount:=asymbcount; align:=aalign;
if (actual.y2-actual.y1)<10 then begin actual.y2:=actual.y2+25; actual.y1:=actual.y1-5; end;
actual.linecount:=Form1.mmo1.lines.Count;
Form1.Image1.Canvas.Brush.Color:=clWhite;
Form1.Image1.Canvas.Rectangle (0,0,1000,1000);
Form1.Image1.Canvas.FloodFill(0,0,actual.lc,fsSurface);
Form1.Image1.Canvas.Rectangle (actual.x1-1,actual.y1-1,actual.x2,actual.y2);
Form1.Image1.Canvas.FloodFill(actual.x1+1,actual.y1+1,actual.lc,fsSurface);
 Rect.Left:=actual.x1;
 Rect.Top:=actual.y1;
 Rect.Right:=actual.x2;
 Rect.Bottom:=actual.y2;
 Rect.Left:=10;
 Rect.Top:=10;
 Rect.Right:=100;
 Rect.Bottom:=100;


end;

procedure TForm1.FormCreate(Sender: TObject);
var
  tsr : tsearchrec;
  i:integer;
  align,mytext:string;
  linecount,symbcount,x1,y1,x2,y2:Integer;

begin
i:=0;
x1:=Form1.TrackBar1.Position; y1:=Form1.TrackBar2.Position;
actual.init(mytext,x1,y1,x2,y2,align,lc,linecount,symbcount);
mmo1.Text:=Edit3.Text;
Form1.Refresh;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
actual.x1:=TrackBar1.Position;
Form1.Refresh;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var    Flag: Cardinal;
    Rect:TRect;
Procedure Swap(var a,b:integer);
var x:integer;
 s:string;

begin
x:=a;
a:=b;
b:=x;
end;
begin
Form1.Image1.Picture:= nil;
Form1.Image1.Canvas.Pen.Color:=actual.lc;
Form1.Image1.Canvas.Brush.Color:=actual.lc;
Form1.Image1.Canvas.Rectangle(actual.x1,actual.y1,actual.x2,actual.y2);
actual.linecount:=mmo1.Lines.Count;
Edit1.Text:=IntToStr(actual.linecount);
Rect.Left:=actual.x1;
 Rect.Top:=actual.y1;
 Rect.Right:=actual.x2;
 Rect.Bottom:=actual.y2;
 Case (Form1.ComboBox2.ItemIndex+1) of
     1: Flag := DT_LEFT;
     3: Flag := DT_CENTER;
 else
     Flag := DT_RIGHT;
 end;
 Flag := Flag or DT_WORDBREAK;
 DrawText(Form1.Image1.Canvas.Handle,PChar(Edit3.text), length(Edit3.text),Rect,Flag);
actual.x1:=Form1.TrackBar1.Position;
actual.y1:=Form1.TrackBar2.Position;
actual.x2:=Form1.TrackBar3.Position;
actual.y2:=Form1.TrackBar4.Position;
Form1.TrackBar1.Position:=actual.x1;
Form1.TrackBar2.Position:=actual.y1;
Form1.TrackBar3.Position:=actual.x2;
Form1.TrackBar4.Position:=actual.y2;
actual.mytext:=Edit3.Text;
actual.linecount:=StrToInt(Edit1.Text);
actual.lc:=ColorDialog1.Color;
label4.Caption:='Длина:'+inttostr(length(actual.mytext));
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
actual.y1:=TrackBar2.Position;
Form1.Refresh;
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
actual.x2:=TrackBar3.Position;
Form1.Refresh;
end;

procedure TForm1.TrackBar4Change(Sender: TObject);
begin
actual.y2:=TrackBar4.Position;
Form1.Refresh;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Close;
end;

procedure saveini;
var
  Ini: Tinifile;
  i:Integer;
begin
  try
   If form1.opendialog1.execute then Ini:=TiniFile.Create(form1.opendialog1.filename);
  Ini.WriteInteger('xy','x1',actual.x1);
  Ini.WriteInteger('xy','y1',actual.y1);
  Ini.WriteInteger('xy','x2',actual.x2);
  Ini.WriteInteger('xy','y2',actual.y2);
  Ini.WriteString('Mytext','String',actual.mytext);
  Ini.WriteString('Mytext','Align',actual.align);
  Ini.WriteInteger('Mytext','Linecount',actual.linecount);
  Ini.WriteInteger('Mytext','Symbcount',actual.Symbcount);
  Ini.WriteString('Colors','Forecolor',ColorToString(actual.lc));
  Ini.Free;
  except
    actual.mytext:='```';
  end;
end;

procedure openini;
var
  Ini: Tinifile;
  i,j:integer;
begin
 try
 begin
 if form1.opendialog1.execute then Ini:=TiniFile.Create(form1.opendialog1.filename);
  actual.x1:=Ini.ReadInteger('xy','x1',1);
  actual.y1:=Ini.ReadInteger('xy','y1',1);
  actual.x1:=Ini.ReadInteger('xy','x2',10);
  actual.y1:=Ini.ReadInteger('xy','y2',10);
  actual.mytext:=Ini.ReadString('Mytext','String','abrakadabra');
  actual.align:=Ini.ReadString('Mytext','Align','left');
  actual.linecount:=Ini.ReadInteger('Mytext','Linecount',1);
  actual.symbcount:=Ini.ReadInteger('Mytext','Symbcount',1);
  actual.lc:=StringToColor(Ini.ReadString('Colors','Forecolor','clGreen'));
  Form1.TrackBar1.Position:=actual.x1;
  Form1.TrackBar2.Position:=actual.y1;
  Form1.TrackBar3.Position:=actual.x2;
  Form1.TrackBar4.Position:=actual.y2;
  Form1.Edit3.Text:=actual.mytext;
 Form1.Edit1.Text:=IntToStr(actual.linecount);
  if actual.align='left' then Form1.ComboBox2.ItemIndex:=0;
  if actual.align='right' then Form1.ComboBox2.ItemIndex:=1;
  if actual.align='center' then Form1.ComboBox2.ItemIndex:=2;
  Form1.ColorDialog1.Color:=actual.lc;
  Ini.Free;
  end
  except
  actual.mytext:='error';
  end;
  Form1.Show;
end;


procedure TForm1.N2Click(Sender: TObject);
begin
saveini;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
openini;
end;

procedure bmpsave;
begin
try
  if Form1.SaveDialog1.Execute then Form1.Image1.Picture.SaveToFile(Form1.SaveDialog1.FileName);
except
Form1.Image1.Picture.SaveToFile('default.bmp');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 bmpsave;
end;

procedure TForm1.BMP1Click(Sender: TObject);
begin
bmpsave;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
try
if ColorDialog1.Execute then actual.lc:=ColorDialog1.Color;
except
actual.lc:=clgreen;
end;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
actual.mytext:=Edit3.Text;

end;

procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
If OpenDialog1.Execute then begin mmo1.Lines.LoadFromFile(OpenDialog1.FileName); Edit3.Text:=mmo1.Text; actual.linecount:=mmo1.Lines.Count; actual.mytext:=Edit3.Text;end;
mmo1.Alignment:=taCenter;

end;



procedure TForm1.btn2Click(Sender: TObject);
begin

Form1.Refresh;
end;

end.