Delphi World - Покрашенный StringGrid
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Покрашенный StringGrid

...вы можете попробовать использовать StringGrid. У него имеется свойство Objects, через которое вы можете назначать объекты. Создайте объект, содержащий переменную типа TColor, и назначьте это Objects[col,row], что позволит иметь к нему доступ в любое время. Назначьте событие OnDrawCell StringGrid, позволяющее рисовать текст ячейки правильного цвета. Чтобы убедиться, что ячейка выбрана, воспользуйтесь свойством Selection, содержащим то, что выбрал пользователь. Все это должно выглядеть приблизительно так:


type
  TStrColor = class(TObject)
  public
    Color: TColor; {вы могли бы также определить частные и
    публичные методы доступа}
  end;
...

procedure TForm1.FormCreate(Sender: TObject)
var
  i, j: Integer;
begin
  with StringList1 do
    for i := 0 to ColCount - 1
      for j := 0 to RowCount - 1
      Objects[i, j] := TStrColor.Create;
end;
...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
  Rect: TRect; State: TGridDrawState);
var
  OldColor: TColor;
begin
  with StringGrid1.Canvas do
  begin
    OldColor := Font.Color;
    Font.Color := (StringGrid1.Objects[col, row] as TStrColor).Color;
    TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[Col, Row]);
    Font.Color := OldColor;
  end;
end;
...

procedure TForm1.ProcessSelection(Sender: TObject);
var
  i, j: Integer;
begin
  with StringGrid1.Selection do
    for i := left to right do
      for j := top to bottom do
        MessageDlg(IntToStr(i) + ',' + IntToStr(j) + '-' +
          IntToStr((StringGrid1.Objects[i, j] as TStrColor).Color),
          mtInformation, [mbOk], 0);
end;

Этот компонент не позволяет делать многочисленный выбор....

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования