stringgrid

← →
zep (2004-07-04 15:31) [0]

всем привет
мастера подскажите как сделать или где почитать
stringgrid с объедененными ячейками

← →
KSergey © (2004-07-04 19:53) [1]

Эх, давно я здесь это не писал... Дня 4 наверное ;)

Читаем статьи из этого раздела
http://www.delphikingdom.com/asp/vcl.asp?OnlyRef=1&vclid=169

Там про DBGrid, ну да прорветесь, если желение есть.

И все статьи из раздела Hello, World - к обязательному прочтению!!!
http://www.delphikingdom.com/asp/section.asp?ID=16

← →
zep (2004-07-05 17:39) [2]

мастера а если в ячейку stringgrid вставить stringgrid такое возможно

← →
zep (2004-07-05 19:15) [3]

мастера если делать так как приведено в коде ниже то
все почемуто маргает
исчез фиксированный столбец
не найдете ошибку плизз
и еще не подскажети как растянуть ячейку под длину вствленного
StringGrida
ну очень надо
Зарание спасибо
unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure AddStringGrids;
procedure set_StringGrid_alignment;
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sg : TStringGrid;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AddStringGrids;
end;
procedure TForm1.AddStringGrids;
var
i: Integer;
begin
for i := 1 to StringGrid1.ColCount do
begin
sg := TStringGrid.Create(self);
sg.Parent := self;
sg.Visible := false;
sg.DefaultColWidth:=64;
sg.DefaultRowHeight :=24;
sg.FixedCols :=0;
sg.FixedRows :=1;
sg.ColCount :=3;
sg.BorderStyle := bsNone;
sg.RowCount :=2;
sg.ScrollBars := ssNone;
sg.Height := sg.DefaultRowHeight*sg.RowCount;
sg.Width := sg.DefaultColWidth*sg.ColCount;
StringGrid1.Objects[i, StringGrid1.ColCount] := Sg;
StringGrid1.ColCount := i;
end;
set_StringGrid_alignment;
end;
procedure TForm1.set_StringGrid_alignment;
var

Rect: TRect;
i: Integer;
begin
for i := 1 to StringGrid1.RowCount do
begin
sg := (StringGrid1.Objects[i, StringGrid1.ColCount] as TStringGrid);
if sg <> nil then
begin
StringGrid1.DefaultColWidth:=200;
Rect := StringGrid1.CellRect(1, i);
sg.Left := StringGrid1.Left + Rect.Left ;
sg.Top := StringGrid1.Top + Rect.Top ;
sg.Width := Rect.Right - Rect.Left;
sg.Height := Rect.Bottom - Rect.Top;
sg.Visible := True;
end;
end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not (gdFixed in State) then
set_StringGrid_alignment;
end;

end.

stringgrid Найти похожие ветки