Список фреймов / панелей

← →
UserControl (2006-11-24 06:01) [0]

Есть ли решения? Нужен быстрый список / грид контролов (фреймов, к примеру, или панелей, с различным интерактивным контентом). Визуализация максимум 150-200 контролов в списке.

Пробовал делать в виде TScrollBox + TPanel (с кучей лейблов / пиктограмм на них + Align = alTop). Получается довольно тормознуто, так как создавать приходится кучу контролов (которые в добавок с БД связаны) в run-time.

Идеальный вариант был бы именно список фреймов...

На торри ничего интересного не обнаружил.

Подвести функционал того же VirtualTreeView под задачу - не удобно. Писать с нуля по времени практически нереально.

Видел отличное решение в VS2005 (Syncfusion components, вроде бы), там ячейки в гриде были UserControls + DataBinding и прочие фишки - все было мега-удобно. Но решать задачу надо в дельфях, портирование кода невозможно из-за подвязки на дотнете.

Прошу вас, помогите!

← →
Elen © (2006-11-24 08:49) [1]

> UserControl

Могу предложить следующее : Создай Frame накидай на него контролы, а потом на форме размести грид и пропиши вот это :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if StringGrid1.Objects [acol,arow]=nil then begin StringGrid1.Objects [acol,arow]:=Tframe2.Create(stringgrid1); TFrame2(StringGrid1.Objects [acol,arow]).Name:="frm"+inttostr(acol)+inttostr(arow); TFrame2(StringGrid1.Objects [acol,arow]).Parent :=StringGrid1; TFrame2(StringGrid1.Objects [acol,arow]).Top:=rect.Top; TFrame2(StringGrid1.Objects [acol,arow]).Left:=rect.Left; StringGrid1.ColWidths[acol] :=TFrame2(StringGrid1.Objects [acol,arow]).Width+10; StringGrid1.RowHeights[arow]:=TFrame2(StringGrid1.Objects [acol,arow]).Height+10; TFrame2(StringGrid1.Objects [acol,arow]).Visible:=true; end; end;

← →
UserControl (2006-11-24 18:26) [2]

Elen © (24.11.06 08:49) [1]
Спасибо!

Знакомый похожим образом делал, у него были какие-то странные трудноотлавливаемые глюки при обработке событий контролов, у которых Parent=StringGrid.

Список фреймов / панелей Найти похожие ветки