TDBgrid without programing in IDE.
lazarus / 16-Databases

----------------------------------------------------------------------
lublinkermi · 2010-02-11 15:09

Hi!
How I can set name, size  and caption in TDBgrid without IDE? I wrote:

     db_firmy:=TDBF.Create(self);
     begin
          with db_firmy do
               begin
               TableName:='firmy.dbf';
               Open;
               end;
     end;

     dt_firmy:=TDataSource.Create(self);
     with dt_firmy do
     begin
      DataSet:=db_firmy;
     end;

     G_DBfirmy:= TDBGrid.Create(Self);
     with G_DBfirmy do
     begin
     Parent:= fNotebk.Page[0];
     font.size:=14;
     DataSource:= dt_firmy;
     Font.Size:=18;
     left:= round(res_x *0.05);
     top:= round (res_y * 0.11);
     width:= round(res_x * 0.;
     height:= round(res_y * 0.47);
     ReadOnly:= True;
     Columns = <
      item
        Title.Caption = 'Imię'
        Width = 117
        FieldName = 'FirstName'
      end
      item
        Title.Caption = 'Nazwisko'
        Width = 127
        FieldName = 'Lastname'
      end
      item
        Title.Caption = 'Ulica'
        Width = 131
        FieldName = 'Street'
      end
      item
        Title.Caption = 'Zip '
        FieldName = 'Zip'
      end
      item
        Title.Caption = 'Town '
        Width = 100
        FieldName = 'Town'
      end
      item
        Title.Caption = 'Country '
        FieldName = 'Country'
      end
      item
        Title.Caption = 'Telephone '
        FieldName = 'Telephone'
      end
      item
        Title.Caption = 'Fax '
        FieldName = 'Fax'
      end
      item
        Title.Caption = 'Mobile '
        FieldName = 'Mobile'
      end
      item
        Title.Caption = 'Email '
        FieldName = 'Email'
      end
      item
        Title.Caption = 'WWW '
        FieldName = 'WWW'
      end>;

     end;
                               

Please help me how I can set, because now I dont know how I can do
this.

----------------------------------------------------------------------
DougNettleton · 2010-02-11 17:07

How about something like ...

  G_DBfirmy.Columns.Add;
  G_DBfirmy.Columns[0].Title.Caption := 'Imię';
  G_DBfirmy.Columns[0].Width := 117;
  G_DBfirmy.Columns[0].FieldName := 'FirstName';
  G_DBfirmy.Columns.Add;
  G_DBfirmy.Columns[1].Title.Caption := 'Nazwisko';
  G_DBfirmy.Columns[1].Width := 127;
  G_DBfirmy.Columns[1].FieldName := 'LastName';
  .
  .
  .
Not tested!  Not sure where res_x and res_y are coming from.

Good Luck,

Doug

----------------------------------------------------------------------
lublinkermi · 2010-02-12 11:20

Hi! I found working code:

     G_DBfirmy.Columns[0].Visible := false;
     G_DBfirmy.Columns[1].Title.Caption := 'Symbol';
     G_DBfirmy.Columns[1].Width := (round(0.17 * (res_y * 0.));
     G_DBfirmy.Columns[2].Title.Caption := 'Nazwa firmy';
     G_DBfirmy.Columns[2].Width :=(round(0.819 * (res_y * 0.)) ;
     G_DBfirmy.Columns[3].Title.Caption := 'Magazyn';
     G_DBfirmy.Columns[3].Width := (round(0.127 * (res_y * 0.));
     G_DBfirmy.Columns[4].Title.Caption := 'Księga';
     G_DBfirmy.Columns[4].Width := (round(0.127 * (res_y * 0.));

res_x and res_y is a screen  resolution
thanks