Список объектов на основе класса TList

Delphi , Компоненты и Классы , Списки

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TMainForm = class(TForm)
    ListBtn: TBitBtn;
    ClearBtn: TBitBtn;
    DelBtn: TBitBtn;
    SortBtn: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListBtnClick(Sender: TObject);
    procedure ClearBtnClick(Sender: TObject);
    procedure DelBtnClick(Sender: TObject);
    procedure SortBtnClick(Sender: TObject);
  private
    PixList: TList;
    PixNum: Integer;
  public
    { Public declarations }
  end;

  TMyPixel = class(TObject)
    FX: Integer;
    FY: Integer;
    FText: Integer;
    constructor Create(X, Y, Num: Integer);
    procedure SetPixel;
  end;


var
  MainForm: TMainForm;

implementation

{$R *.dfm}

const PixColor = clRed;

var CurPixel: TMyPixel;

constructor TMyPixel.Create(X, Y, Num: Integer);
begin
  inherited Create;
  FX := X;
  FY := Y;
  FText := Num;
  SetPixel;
end;

procedure TMyPixel.SetPixel;
begin
  MainForm.Canvas.PolyLine([Point(FX, FY), Point(FX, FY)]);
  MainForm.Canvas.TextOut(FX + 1, FY + 1, IntToStr(FText));
end;

function PixCompare(Item1, Item2: Pointer): Integer;
var Pix1, Pix2: TMyPixel;
begin
  Pix1 := Item1;
  Pix2 := Item2;
  Result := Pix1.FX - Pix2.FX;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  PixList := TList.Create;
  PixNum := 1; {Счетчик точек}
  Canvas.Pen.Color := PixColor; {Цвет точки}
  Canvas.Pen.Width := 3; {Размер точки}
  Canvas.Brush.Color := Color; {Цвет фора текста равен цвету формы}
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PixList.Free;
end;

procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PixList.Add(TMyPixel.Create(X, Y, PixNum));
  Inc(PixNum);
end;

procedure TMainForm.ListBtnClick(Sender: TObject);
var i: Integer;
begin
  with PixList do
    for i := 0 to Count - 1 do
    begin
      CurPixel := Items[i];
      CurPixel.SetPixel;
    end;
end;

procedure TMainForm.ClearBtnClick(Sender: TObject);
begin
  Canvas.FillRect(Rect(0, 0, Width, Height));
end;

procedure TMainForm.DelBtnClick(Sender: TObject);
begin
  PixList.Clear;
  PixNum := 1;
end;

procedure TMainForm.SortBtnClick(Sender: TObject);
var i: Integer;
begin
  PixList.Sort(PixCompare);
  with PixList do
    for i := 0 to Count - 1 do TMyPixel(Items[i]).FText := i + 1;
end;

end.

Скачать весь проект

Приведенный код - это проект Delphi, который создает форму с несколькими кнопками и канвасом для рисования пикселей. Пиксели хранятся в списке TList объектов TMyPixel, где каждый пиксель имеет координаты X и Y, текстовое значение и конструктор для создания нового пикселя.

Разбивка кода:

1. Определен класс TMainForm, который наследуется от TForm. Он содержит несколько кнопок (ListBtn, ClearBtn, DelBtn, SortBtn) и канвас.
2. Определен класс TMyPixel, который наследуется от TObject. Он имеет три свойства: FX, FY и FText, которые представляют координаты X и Y пикселя и его текстовое значение соответственно.
3. Конструктор для TMyPixel устанавливает эти свойства и вызывает процедуру SetPixel, чтобы нарисовать пиксель на канвасе.
4. Процедура SetPixel рисует линию по указанным координатам (FX, FY) и пишет текстовое значение (FText) на этих координатах.
5. Функция PixCompare используется для сортировки списка пикселей по их координате X.
6. В обработчике события FormCreate устанавливается цвет кисти канваса в красный, а цвет фона формы - в фон формы, и создается новый список TList для хранения пикселей.
7. Обработчик события FormClose освобождает список пикселей при закрытии формы.
8. Обработчик события FormMouseDown добавляет новый пиксель в список на координатах мыши.
9. Обработчик события ListBtnClick итерирует по списку пикселей и вызывает процедуру SetPixel для каждого пикселя, эффективно рисуя все пиксели на канвасе.
10. Обработчик события ClearBtnClick очищает канвас, заполняя его цветом фона формы.
11. Обработчик события DelBtnClick очищает список пикселей и сбрасывает счетчик пикселей до 1.
12. Обработчик события SortBtnClick сортирует список пикселей по их координате X и затем обновляет текстовые значения каждого пикселя, соответствующие его новой позиции в отсортированном списке.

В целом, этот код предоставляет основу для создания графического приложения, которое может рисовать пиксели на канвасе и управлять ими с помощью списка TList.

В статье описывается создание программы на языке Pascal, использующей класс TList для хранения списка объектов типа TMyPixel. Programme позволяет добавлять, выводить и удалять точки на форме, а также сортировать их по координате X.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::