Курсовая работа: Создание базы данных "Wc3 Cybersport Data Base"

LabelMassive[x].Top:=trunc(columnheaderband1.Height/2);

labelmassive[x].AutoSize:=false;

labelmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;

// labelmassive[x].Frame.DrawRight:=true;

if x>0 then LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+LabelMassive[x-1].Left+labelmassive[x-1].width-LabelMassive[x].Width

else LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-LabelMassive[x].Width;

LabelMassive[x].Show;

end;

for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin

TextMassive[x]:=TQRDBtext.Create(form2);

TextMassive[x].Parent:=Detailband1;

TextMassive[x].DataSet:=Form1.MyQuery1;

TextMassive[x].DataField:=Form1.DBGrid1.Columns[x].FieldName;

TextMassive[x].Top:=trunc(detailband1.Height/2);

Textmassive[x].AutoSize:=false;

Textmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;

// textmassive[x].Frame.DrawRight:=true;

if x>0 then textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+textMassive[x-1].Left+textmassive[x-1].width-textMassive[x].Width

else textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-textMassive[x].Width;

textMassive[x].Show;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

var

x:integer;

begin

for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin

labelmassive[x].Free;

textmassive[x].Free;