unit USg;

interface

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

Type

MSg = class
private
	sg : TStringGrid;		// tylko wskaźnik, nie usuwać

public
	constructor Create(parSG : TStringGrid);
   procedure   Wypelnij();
end;

implementation

constructor MSg.Create(parSG: TStringGrid);
begin
	sg := parSG;
end;

procedure MSg.Wypelnij();
var
	il   : Integer;
   ARow : Integer;

begin
	il   := 0;
	ARow := 0;

	sg.DefaultRowHeight := 19;

   sg.ColCount := COLS;
   ARow := 0;

   // NAGŁÓWKI KOLUMN
   sg.Cells[colLp      , ARow] := 'Lp';
   sg.Cells[colNazwisko, ARow] := 'Nazwisko';
   sg.Cells[colImie    , ARow] := 'Imię';
   sg.Cells[colUlica   , ARow] := 'Ulica i nr';
   sg.Cells[colKodp    , ARow] := 'Kod p.';
   sg.Cells[colMiasto  , ARow] := 'Miejscowość';
   sg.Cells[colDataur  , ARow] := 'Data ur.';
   sg.Cells[colPesel   , ARow] := 'Pesel';
   sg.Cells[colTel     , ARow] := 'Telefon';
   sg.Cells[colEmail   , ARow] := 'E-mail';
   sg.Cells[colWoj     , ARow] := 'Województwo';
   sg.Cells[colZarobek , ARow] := 'Zarobek';
   Inc(ARow);

   // Dane osoby
   sg.Cells[colLp      , ARow] := '1';
   sg.Cells[colNazwisko, ARow] := 'Kowalski';
   sg.Cells[colImie    , ARow] := 'Jan';
   sg.Cells[colUlica   , ARow] := 'Mikołowska 122';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1990-01-01';
   sg.Cells[colPesel   , ARow] := '11111111111';
   sg.Cells[colTel     , ARow] := '2223001';
   sg.Cells[colEmail   , ARow] := 'kowlaskij@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1200,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '2';
   sg.Cells[colNazwisko, ARow] := 'Kuśmierkiewicz';
   sg.Cells[colImie    , ARow] := 'Iwona';
   sg.Cells[colUlica   , ARow] := 'Jankowicka 123';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1956-11-24';
   sg.Cells[colPesel   , ARow] := '22222222222';
   sg.Cells[colTel     , ARow] := '2223002';
   sg.Cells[colEmail   , ARow] := 'iwonak@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1300,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '3';
   sg.Cells[colNazwisko, ARow] := 'Leśna';
   sg.Cells[colImie    , ARow] := 'Beata';
   sg.Cells[colUlica   , ARow] := 'Konfederatów Barskich 11/8';
   sg.Cells[colKodp    , ARow] := '43-100';
   sg.Cells[colMiasto  , ARow] := 'Tychy';
   sg.Cells[colDataur  , ARow] := '1987-12-31';
   sg.Cells[colPesel   , ARow] := '55555555555';
   sg.Cells[colTel     , ARow] := '5555003';
   sg.Cells[colEmail   , ARow] := 'borowskia@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1400,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '4';
   sg.Cells[colNazwisko, ARow] := 'Kowalska';
   sg.Cells[colImie    , ARow] := 'Renata';
   sg.Cells[colUlica   , ARow] := 'Jankowicka 124';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1970-12-31';
   sg.Cells[colPesel   , ARow] := '33333333333';
   sg.Cells[colTel     , ARow] := '2223004';
   sg.Cells[colEmail   , ARow] := 'kasiak@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1500,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '5';
   sg.Cells[colNazwisko, ARow] := 'Trągolewska';
   sg.Cells[colImie    , ARow] := 'Beata';
   sg.Cells[colUlica   , ARow] := 'Jankowicka 125';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1965-10-28';
   sg.Cells[colPesel   , ARow] := '44444444444';
   sg.Cells[colTel     , ARow] := '2223005';
   sg.Cells[colEmail   , ARow] := 'beatat@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1600,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '6';
   sg.Cells[colNazwisko, ARow] := 'Rudkiewicz';
   sg.Cells[colImie    , ARow] := 'Wiesław';
   sg.Cells[colUlica   , ARow] := 'Jankowicka';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1965-10-28';
   sg.Cells[colPesel   , ARow] := '44444444444';
   sg.Cells[colTel     , ARow] := '2223006';
   sg.Cells[colEmail   , ARow] := 'galanonim@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '1700,00';
   Inc(ARow);
   sg.RowCount := sg.RowCount + 1;

   // Dane osoby
   sg.Cells[colLp      , ARow] := '7';
   sg.Cells[colNazwisko, ARow] := 'Staniszewski';
   sg.Cells[colImie    , ARow] := 'Bronisław';
   sg.Cells[colUlica   , ARow] := 'Jankowicka 127';
   sg.Cells[colKodp    , ARow] := '43-200';
   sg.Cells[colMiasto  , ARow] := 'Pszczyna';
   sg.Cells[colDataur  , ARow] := '1965-10-27';
   sg.Cells[colPesel   , ARow] := '44444444444';
   sg.Cells[colTel     , ARow] := '2223007';
   sg.Cells[colEmail   , ARow] := 'bronislaws@op.pl';
   sg.Cells[colWoj     , ARow] := 'śląskie';
   sg.Cells[colZarobek , ARow] := '12000,00';
   Inc(ARow);
   
	sg.RowCount := ARow;
   // nie chcę pustego ARowa na końcu
   // sg.RowCount := sg.RowCount + 1;

   sg.FixedCols := 1;
   sg.FixedRows := 1;

   sg.ColWidths[colLp]       :=  20;     // Lp
   sg.ColWidths[colNazwisko] :=  90;     // Nazwisko
   sg.ColWidths[colImie]     :=  60;     // Imie
   sg.ColWidths[colUlica]    := 150;     // Ulica i nr
   sg.ColWidths[colKodp]     :=  60;     // Kod p
   sg.ColWidths[colMiasto]   :=  90;     // Miejscowosc
   sg.ColWidths[colDataur]   :=  60;     // Data ur
   sg.ColWidths[colPesel]    :=  80;     // Pesel
   sg.ColWidths[colTel]      :=  60;     // Telefon
   sg.ColWidths[colEmail]    := 100;     // E-mail
   sg.ColWidths[colWoj]      := 100;     // Województwo
   sg.ColWidths[colZarobek]  :=  70;     // Zarobek

   // włączenie opcji
	sg.Options := [goFixedVertLine,
                  goFixedHorzLine,
                  goVertLine,
                  goHorzLine,
                  goRangeSelect,
                  goRowSizing,
                  goColSizing,
                  goRowMoving,
                  goRowSelect,
                  goEditing,
                  goColMoving];

	// wyłączenie wybranych opcji
	sg.Options := sg.Options - [goRowSelect];
	sg.Options := sg.Options - [goEditing];
end;

end.

