Table of Contents

ControlAddIn "Swatch Color Picker UTCAP"

Namespace: CapVision.Core.Controls

Cet add-in affiche un champ sous la forme d'un sélecteur de couleurs au sein d'une palette.

Examples

    L'exemple ci-dessous affiche un contrôle Swatch Color Picker et l'initialise avec la couleur #ff00ff.


``` AL
    page 50100 "Swatch Color Picker Sample PTE"
    {
        PageType = Card;
        UsageCategory = None;
        Caption = 'Swatch Color Picker Sample';
        
        layout
        {
            area(Content)
            {
                group(General)
                {
                    usercontrol(MyColorControl; "Swatch Color Picker UTCAP")
                    {
                        ApplicationArea = All;
    
                        trigger OnControlReady()
                        var
                          Palette: JsonArray;
                        begin
                            MyColorControlReady := true;
    
                            Palette.Add('#ff00ff');
                            Palette.Add('#ffffff');
                            Palette.Add('#ffff00');
                            CurrPage.MyColorControl.SetColorPalette(Palette);
                            CurrPage.MyColorControl.SetColor('#ff00ff');
                        end;
    
                        trigger OnColorChanged(Color: Text)
                        begin
                            if Color = '' then
                                Message('You have cleared the color.')
                            else
                                Message('New Color Selected: %1', Color);
                        end;
                    }
                }
            }
        }
    
        var
            MyColorControlReady: Boolean;
        
    
        trigger OnAfterGetCurrRecord()
        begin
            if MyColorControlReady then
                CurrPage.MyColorControl.SetColor('#ff00ff');
        end;
    }
```

Methods

SetColor

Définit la couleur du contrôle.

procedure SetColor(Color: Text)

Parameters

Name Type Description
Color Text

Nouvelle couleur.

SetCaption

Définit la légende du contrôle.

procedure SetCaption(Caption: Text)

Parameters

Name Type Description
Caption Text

Nouvelle légende.

SetColorPalette

Définit les couleurs disponibles sur la palette.

procedure SetColorPalette(Colors: JsonArray)

Parameters

Name Type Description
Colors JsonArray

Nouvelle palette de couleurs.

See also