Begin
front := StrToInt(edt1.Text);
if front <> 0 then
Begin
if Button = btprev then
Begin
dec(front);
if front = 0 then
front := 1;
edt1.Text := IntToStr(front);
end;
if Button = btnext then
Begin
Inc(front);
edt1.Text := IntToStr(front);
end;
end;
end;
end;
procedure TForm1.clrgrd1Change(Sender: TObject);
Begin
pnl4.Color := clrgrd1.ForegroundColor;
pnl3.color := clrgrd1.BackgroundColor;
end;
Procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.Panels[0].Text := 'Стирание части рисунка с помощью '+
'ластика выбраного цвета';
end;
Procedure TForm1.btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.Panels[0].Text := 'Заполнение области одним из текущих цветов';
end;
Procedure TForm1.btn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.Panels[0].text := 'Выбор цветов из имеющихся на рисунке';
end;
Procedure TForm1.btn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.panels[0].text := 'Проведение прямой линии выбраной толщины';
end;
Procedure TForm1.btn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.Panels[0].Text := 'Проведение произвольной линии толщиной в одну точку';
end;
Procedure TForm1.btn6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
stat1.panels[0].text := 'Рисование кистью выброной толщины';
end;
