unit uKvxListsStyles;

interface

uses
  System.Generics.Collections, uniGUITypes;

type

  IKvxListsStyles = interface
    ['{5884A1CA-1DB7-49EB-B479-088EF15FB621}']

    function StylesTypesList: TObjectDictionary<Integer, TUniCellAttribs>;
    function StylesRegionsList: TObjectDictionary<Integer, TUniCellAttribs>;

    procedure FillTypesStyles;
    procedure FillRegionsStyles;
  end;



  TKvxListsStyles = class(TInterfacedObject, IKvxListsStyles)
  private
     TypesList: TObjectDictionary<Integer, TUniCellAttribs>;
     RegionsList: TObjectDictionary<Integer, TUniCellAttribs>;

    procedure FillTypesStyles;
    procedure FillRegionsStyles;

  public
     function StylesTypesList: TObjectDictionary<Integer, TUniCellAttribs>;
     function StylesRegionsList: TObjectDictionary<Integer, TUniCellAttribs>;
     constructor create;
     destructor Destroy;
  end;

//var
//  KvxListsStyles: IKvxListsStyles;

implementation

uses MainModule;

{ KvxListsStyles }

constructor TKvxListsStyles.create;
begin
  FillTypesStyles;
  FillRegionsStyles;
end;


destructor TKvxListsStyles.Destroy;
begin
  if Assigned(TypesList) then
  begin
    TypesList.Clear;
    TypesList.Free;
  end;

  if Assigned(RegionsList) then
  begin
    RegionsList.Clear;
    RegionsList.Free;
  end;
end;

procedure TKvxListsStyles.FillRegionsStyles;
Var
  Attribs: TUniCellAttribs;
begin
  if Not Assigned(RegionsList) then
    RegionsList := TObjectDictionary<Integer, TUniCellAttribs>.Create([doOwnsValues])
  else
    RegionsList.Clear;
// потом в цикле наполняю список

  RegionsList.Add(0, TUniCellAttribs.Create(True));
  RegionsList.Items[0].Font.Color := -1;

  UniMainModule.qRegionsGetSTATEINDEX.open;
  if UniMainModule.qRegionsGetSTATEINDEX.RecordCount <= 0 then exit;
  while not UniMainModule.qRegionsGetSTATEINDEX.Eof do
  begin
    Attribs := TUniCellAttribs.Create(True);
    Attribs.Font.Color := UniMainModule.qRegionsGetSTATEINDEXSTATEINDEX.Value;

    RegionsList.Add(UniMainModule.qRegionsGetSTATEINDEXID.Value, Attribs);
    UniMainModule.qRegionsGetSTATEINDEX.Next;
  end;// while

  UniMainModule.qRegionsGetSTATEINDEX.close;
end;

procedure TKvxListsStyles.FillTypesStyles;
Var
  Attribs: TUniCellAttribs;
begin
  if Not Assigned(TypesList) then
    TypesList := TObjectDictionary<Integer, TUniCellAttribs>.Create([doOwnsValues])
  else
    TypesList.Clear;

  TypesList.Add(0, TUniCellAttribs.Create(True));
  TypesList.Items[0].Font.Color := -1;

  UniMainModule.qTypesGetSTATEINDEX.open;
  if UniMainModule.qTypesGetSTATEINDEX.RecordCount <= 0 then exit;
  while not UniMainModule.qTypesGetSTATEINDEX.Eof do
  begin
    Attribs := TUniCellAttribs.Create(True);
    Attribs.Font.Color := UniMainModule.qTypesGetSTATEINDEXSTATEINDEX.Value;

    TypesList.Add(UniMainModule.qTypesGetSTATEINDEXID.Value, Attribs);
    UniMainModule.qTypesGetSTATEINDEX.Next;
  end;// while

  UniMainModule.qTypesGetSTATEINDEX.close;

end;

function TKvxListsStyles.StylesRegionsList: TObjectDictionary<Integer, TUniCellAttribs>;
begin
  result := RegionsList;
end;

function TKvxListsStyles.StylesTypesList: TObjectDictionary<Integer, TUniCellAttribs>;
begin
  result := TypesList;
end;

end.

procedure TUniMainModule.XXXXXXX;
var
  KvxListsStyles: IKvxListsStyles;
begin
    KvxListsStyles := TKvxListsStyles.Create;
end;