6.8 Management of screen interface

Management of screen interface
Description
TFieldMapLayerScriptWrapper
    function GoToLayerPage :boolean;
      {prazdny string -> skok na stranku mapy}
    function IsLayerPageOnTop :boolean;
      {test, zda je stranka viditelna}
    property TabVisible :boolean read GetTabVisible write SetTabVisible;
    property LayerPageVisible :boolean read GetTabVisible write SetTabVisible;
    property DBNavigatorVisible :boolean read GetDBNavigatorVisible write SetDBNavigatorVisible;

    property Visible[const name : string] : boolean read GetFieldVisible write SetFieldVisible;
    procedure ShowAttributes(const ExcludingAttribs_ :string);
    procedure HideAttributes(const ExcludingAttribs_ :string);

    property OverviewGridAttributeVisible[name_ :string] :boolean read GetOverviewGridAttributeVisible write SetOverviewGridAttributeVisible;
    procedure ShowOverviewGridAttribute(const name_ :string);
    procedure HideOverviewGridAttribute(const name_ :string);

    property Enabled[const name : string] : boolean read GetFieldEnabled write SetFieldEnabled;
    procedure EnableAttributes(const ExcludingAttribs_ :string);
    procedure DisableAttributes(const ExcludingAttribs_ : string);

    property DisplayFormat[const name : string] : string read GetFieldDisplayFormat write SetFieldDisplayFormat;
      {moznost nastavit formatovani float poli}

    property Color[const name : string] : longint read GetFieldColor write SetFieldColor;
      {-1 -> reset; -2 -> parent color}
    procedure ResetColor(const name : string);
    procedure SetParentColor(const name : string);
    procedure SetColorOfAttributes(const Color_ :integer; const ExcludingAttribs_ :string);
      {nastavi barvu vsech prislusnych kontrolek}
      {muzu vyloucit nazvy atributu; oddeleno |}
    procedure ResetColorOfAttributes(const ExcludingAttribs_ :string);
    procedure SetParentColorOfAttributes(const ExcludingAttribs_ :string);

    property AttributeLabel[const name : string]: string read GetAttributeLabel write SetAttributeLabel;
      {timhle se bude menit i caption tlacitka}
      {label atributu se ale neulozi do SystemTables}
    property TabStop[const name :string] :boolean read GetTabStop write SetTabStop;

    procedure RefreshAttributeLayout;
      {presune atributy tak, aby se zohlednilo Visible nastavene skriptem - likvidace mezer}
      {funguje jen v ramci jednotlivych sloupcu}


    property AttributeHint[AttributeName_ :string] :string read GetAttributeHint write SetAttributeHint;
    procedure ResetAttributeHint(const AttributeName_ :string);
      {je mozne zadat hint atributu}
      {po resetu se vrati hodnota Description z projektu}

    procedure EnableControls;
    procedure DisableControls;
    function  ControlsDisabled : boolean;

    procedure EnableScreenControls;
    procedure DisableScreenControls;
    function  ScreenControlsDisabled : boolean;

    function SetFocus(const AttributeName_ :string) :boolean;

    property PlacerStrategy :string read GetPlacerStrategy write SetPlacerStrategy;  {LEFT,TOP,FULL}
    property MaxSpaceForControlsPerc :integer read GetMaxSpaceForControls write SetMaxSpaceForControls;

==============================================
TFieldMapProjectScriptWrapper

    function GoToLayerPage(const LayerName_ :string) :boolean;
      {prazdny string -> skok na stranku mapy}
    function IsLayerPageVisible(const LayerName_ :string) :boolean;
      {overim, zda je stranka zadane vrstvy viditelna v popredi}

    property DBNavigatorVisible :boolean write SetDBNavigatorVisible;
      {zviditelneni navigatoru - vsechny v projektu}