VPF::Разработка компонента на основе TStringGrid

FShadow

Дата 8.12.2006, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.12.2006
Где: Беларусь, г. Минс к

Репутация: -1
Всего: -1

Мастера помогите создать компонент а то совсем запутался.
У TStringGrid есть такое свойство Cells:

Код


TStringGrid = class(TDrawGrid)
  private
   ...
    function GetCells(ACol, ARow: Integer): string;
   ...
    procedure SetCells(ACol, ARow: Integer; const Value: string);
    ...
  protected
    ....
  public
    ...
    property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;
    ...
  end;
...
function TStringGrid.GetCells(ACol, ARow: Integer): string;
var
  ssl: TStringSparseList;
begin
  ssl := TStringSparseList(TSparseList(FData)[ARow]);
  if ssl = nil then Result := '' else Result := ssl[ACol];
end;
procedure TStringGrid.SetCells(ACol, ARow: Integer; const Value: string);
begin
  TStringGridStrings(EnsureDataRow(ARow))[ACol] := Value;
  EnsureColRow(ACol, True);
  EnsureColRow(ARow, False);
  Update(ACol, ARow);
end;
...

в коде оно пишется например так: StringGrid.Cells[0,0] := 'rrrrrrrr';

Я хочу сделать компонент который бы позволял задавать выравнивание в конкретной ячейке а содержимо ячейки хранилось бы в свойстве Text: string, т.е. код выглядел бы так:

Код


StringGrid.Cells[0,0].Text := 'rrrrrrrr';
StringGrid.Cells[0,0].Align:= atLeft;

Align был бы такого типа TAlignText = (atLeft, atCenter, atRight);

И вот в принципе вопрос: как изменить свойство Cells, процедуру SetCells и функцию GetCells чтобы все это реализовать?
Помогите пожалуйста.

Romikgy

Дата 9.12.2006, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

алинг надо делать только когда отрисовываешь что есть в гриде (в ячейке)
если никто не ответит я попозже пороюсь

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

FShadow

Дата 9.12.2006, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.12.2006
Где: Беларусь, г. Минс к

Репутация: -1
Всего: -1

Как алигн делать я знаюю Я не знаю как свойство Cells пределать так как я хочу

Код


StringGrid.Cells[0,0].Text := 'rrrrrrrr';    
StringGrid.Cells[0,0].Align:= atLeft;

Добавлено @ 00:28
Вся сложность у меня в том что мне надо в мою процедуру передать координаты ячейки [ACol, ARow] и чтоб моим переменным присвоить значения ACol, ARow соответсвенно

Romikgy

Дата 9.12.2006, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

создай класс который будет содержать все настройки типа

Цитата(FShadow @ 8.12.2006, 23:22

)

Text

Цитата(FShadow @ 8.12.2006, 23:22

)

Align

и в

Цитата(FShadow @ 8.12.2006, 22:52

)

property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;

надо возвращать класс допустим Tmyparam он

Код


property Cells[ACol, ARow: Integer]: Tmyparam read GetCells write SetCells;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

FShadow

Дата 9.12.2006, 01:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.12.2006
Где: Беларусь, г. Минс к

Репутация: -1
Всего: -1

Прости за глупый вопрос но как его создать код напиши пожалуйста примерный

Добавлено @ 01:06
Будет что нибудь типо

Код


Tmyparam = class(?????)
  Text: string;
  Align: TAlign
end;

а что вместо вопросов

Romikgy

Дата 10.12.2006, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

да хоть и так

Код


Tmyparam = class
  Text: string;
  Align: TAlign
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

FShadow

Дата 10.12.2006, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.12.2006
Где: Беларусь, г. Минс к

Репутация: -1
Всего: -1

А как изменятся функция Set и процедура Get?

Romikgy

Дата 10.12.2006, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


function GetCells(ACol, ARow: Integer): Tmyparam ;
   ...
    procedure SetCells(ACol, ARow: Integer; const Value: Tmyparam );

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »