скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Массив компонентов 2



Автор: Юрий Лапицкий

Продолжая начатую тему в "Советах по Дельфи 1.0.9" о динамическом массиве компонентов (на этот раз двухмерном, так как одномерный очень хорошо был описан в этой версии журнала) я предлагаю следующей код который позволяет создать такой массив компонентов TImage с удобным (скажем так - почти) использованием их в этом массиве (например, при осуществлении связи с каким-то другим массивом). Я использовал этот код в одной из моих программ и после многих его тестов пришёл к выводу что он нормально работает при размерах массива 17х17 (думаю что можно довести и до 20х20 и более, но это увеличило бы код... Тем более что для моей программы такого массива вполне достаточно!).


{
Листинг 1: Создание двухмерного динамического массива компонентов
© 1999, Юрий Лапицкий
}

{
Шаг ?1: Вначале, сделаем потомок стандартного TImage как дополнение
для их различия в будующем массиве компонентов.
}
type

  TMyImage = class(TImage)
  private
    FXTag, FYTag: Longint;
  published
    property XTag: Longint read FXTag write FXTag default 0;
    property YTag: Longint read FYTag write FYTag default 0;
  end;
  {===================}
  {
  Шаг ?2: В описание класса главной формы вставим двухмерный динамический
  массив компонентов TMyImage, а в секцию private - необходимый код для
  инициализации массива!
  }
type
  TForm1 = class(TForm)

    //Процедура реализации события OnMouseUp при наведении на картинку
    procedure ImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  public
    Images: array of array of TMyImage;
  private
    {Процедура "создания" поля}
    procedure MakeField(const MaxRows: byte = 4; MaxCols: byte = 4);
    {Процедура "убора" поля (вообще-то не обязательно,
    но я предпочитаю перестараться, чем недостараться...)}
    procedure FreeField(const MaxRows: byte = 4; MaxCols: byte = 4);
  end;
var

  Form1: TForm1;
  Bitmap1: TBitmap;
  {
  В Bitmap1 можно загрузить картинку. Например из файла Bitmap1.bmp:

  Bitmap1:=TBitmap1.Create;
  Bitmap1.LoadFromFile('Bitmap1.bmp');
  }
  {===================}
  {
  Шаг ?3: Реализация процедур в секции implementation.
  }

procedure TForm1.MakeField(const MaxRows, MaxCols: byte);
var
  Col, Row: byte;
begin

  {Иницализация самого массива}
  Initialize(Images);
  System.SetLength(Images, MaxRows);
  for Row := 0 to MaxRows - 1 do
    System.SetLength(Images[Row], MaxCols);

  {Создание и заполнение элементов массива}
  for Row := 0 to MaxRows - 1 do
    for Col := 0 to MaxCols - 1 do
    begin
      Images[Row, Col] := TMyImage.Create(Self);
      with Images[Row, Col] do
      begin
        XTag := Row;
        YTag := Col;

        Picture.Bitmap := Bitmap1;
        Left := Col * Bitmap1.Width;
        Top := Row * Bitmap1.Height;
        Width := Bitmap1.Width + Left;
        Height := Bitmap1.Height + Top;
        Center := True;
        Transparent := True;
        AutoSize := True;
        Visible := True;
        onMouseUp := ImageMouseUp;

        Parent := Self;
      end
    end;

  Invalidate
end;

procedure TMainForm.FreeField(const MaxRows, MaxCols: byte);
var
  Col, Row: byte;
begin

  {Уничтожение элементов массива}
  for Row := 0 to MaxRows - 1 do
    for Col := 0 to MaxCols - 1 do
      Images[Row, Col].Destroy;
  {Уничтожение самого массива}
  Finalize(Images)
end;

procedure TMainForm.ImageMouseUp(Sender: TObject; Button:
  TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

  { Проверка необязательна, но ведь можно (случайно)
  присвоить это событие также и форме!}
  if (Sender is TMyImage) then
  begin
    {
    обратиться к элементу массива можно используя введ?нные
    мною дополнения: Sender.XTag и Sender.YTag
    Images[Sender.XTag, Sender.YTag]
    }

  end
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook