Added: start of button configuration form

2024-11-22 01:53:50 +00:00 · 2013-02-10 20:39:34 +00:00 · 2013-02-10 20:39:34 +00:00 · 9929578ef0
commit 9929578ef0
parent 9da668afc1
14 changed files with 786 additions and 114 deletions
--- a/G940LEDControl/Forms/ButtonFunctionFrm.dfm
+++ b/G940LEDControl/Forms/ButtonFunctionFrm.dfm
@ -0,0 +1,196 @@
+object ButtonFunctionForm: TButtonFunctionForm
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'Configure button'
+  ClientHeight = 401
+  ClientWidth = 692
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pnlButtons: TPanel
+    Left = 0
+    Top = 360
+    Width = 692
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    ExplicitLeft = 168
+    ExplicitTop = 232
+    ExplicitWidth = 185
+    DesignSize = (
+      692
+      41)
+    object btnOK: TButton
+      Left = 528
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      ExplicitLeft = 467
+    end
+    object btnCancel: TButton
+      Left = 609
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+      ExplicitLeft = 548
+    end
+  end
+  object vstFunctions: TVirtualStringTree
+    AlignWithMargins = True
+    Left = 8
+    Top = 8
+    Width = 257
+    Height = 352
+    Margins.Left = 8
+    Margins.Top = 8
+    Margins.Right = 0
+    Margins.Bottom = 0
+    Align = alLeft
+    Header.AutoSizeIndex = 0
+    Header.Font.Charset = DEFAULT_CHARSET
+    Header.Font.Color = clWindowText
+    Header.Font.Height = -11
+    Header.Font.Name = 'Tahoma'
+    Header.Font.Style = []
+    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+    TabOrder = 1
+    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
+    TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
+    TreeOptions.SelectionOptions = [toFullRowSelect]
+    OnGetText = vstFunctionsGetText
+    Columns = <
+      item
+        Position = 0
+        Width = 253
+        WideText = 'Available functions'
+      end>
+  end
+  object pnlFunction: TPanel
+    AlignWithMargins = True
+    Left = 273
+    Top = 8
+    Width = 411
+    Height = 352
+    Margins.Left = 8
+    Margins.Top = 8
+    Margins.Right = 8
+    Margins.Bottom = 0
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 2
+    ExplicitLeft = 224
+    ExplicitTop = 192
+    ExplicitWidth = 185
+    ExplicitHeight = 41
+    object vstStates: TVirtualStringTree
+      Left = 0
+      Top = 113
+      Width = 411
+      Height = 239
+      Align = alClient
+      Header.AutoSizeIndex = 0
+      Header.Font.Charset = DEFAULT_CHARSET
+      Header.Font.Color = clWindowText
+      Header.Font.Height = -11
+      Header.Font.Name = 'Tahoma'
+      Header.Font.Style = []
+      Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+      TabOrder = 0
+      ExplicitTop = 93
+      ExplicitWidth = 407
+      ExplicitHeight = 259
+      Columns = <
+        item
+          Position = 0
+          Width = 207
+          WideText = 'State'
+        end
+        item
+          Position = 1
+          Width = 200
+          WideText = 'Color'
+        end>
+    end
+    object pnlName: TPanel
+      Left = 0
+      Top = 0
+      Width = 411
+      Height = 113
+      Align = alTop
+      BevelOuter = bvNone
+      TabOrder = 1
+      ExplicitWidth = 407
+      DesignSize = (
+        411
+        113)
+      object lblFunctionName: TLabel
+        Left = 0
+        Top = 19
+        Width = 405
+        Height = 19
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = 'runtime: function'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -16
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+        ExplicitWidth = 401
+      end
+      object lblCategoryName: TLabel
+        Left = 0
+        Top = 0
+        Width = 405
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = 'runtime: category'
+        ExplicitWidth = 401
+      end
+      object lblHasStates: TLabel
+        Left = 0
+        Top = 74
+        Width = 401
+        Height = 31
+        AutoSize = False
+        Caption = 
+          'This function provides the following states. Each state can be c' +
+          'ustomized by clicking on the state and changing the setting in t' +
+          'he Color column.'
+        WordWrap = True
+      end
+      object lblNoStates: TLabel
+        Left = 0
+        Top = 55
+        Width = 195
+        Height = 13
+        Caption = 'This function has no configurable states.'
+        Visible = False
+      end
+    end
+  end
+end
--- a/G940LEDControl/Forms/ButtonFunctionFrm.pas
+++ b/G940LEDControl/Forms/ButtonFunctionFrm.pas
@ -0,0 +1,176 @@
+unit ButtonFunctionFrm;
+
+interface
+uses
+  System.Classes,
+  Vcl.Controls,
+  Vcl.ExtCtrls,
+  Vcl.Forms,
+  Vcl.StdCtrls,
+
+  VirtualTrees,
+
+  Profile;
+
+
+type
+  TButtonFunctionForm = class(TForm)
+    pnlButtons: TPanel;
+    btnOK: TButton;
+    btnCancel: TButton;
+    vstFunctions: TVirtualStringTree;
+    vstStates: TVirtualStringTree;
+    pnlFunction: TPanel;
+    pnlName: TPanel;
+    lblFunctionName: TLabel;
+    lblCategoryName: TLabel;
+    lblHasStates: TLabel;
+    lblNoStates: TLabel;
+
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure vstFunctionsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
+  private
+    FButtonIndex: Integer;
+    FProfile: TProfile;
+  protected
+    procedure LoadFunctions;
+
+    property ButtonIndex: Integer read FButtonIndex write FButtonIndex;
+    property Profile: TProfile read FProfile write FProfile;
+  public
+    class function Execute(AProfile: TProfile; AButtonIndex: Integer): Boolean;
+  end;
+
+
+implementation
+uses
+  System.SysUtils,
+  Generics.Collections,
+
+  LEDFunctionIntf,
+  LEDFunctionRegistry;
+
+
+type
+  TNodeType = (ntCategory, ntFunction);
+  TNodeData = record
+    NodeType: TNodeType;
+    Provider: ILEDFunctionProvider;
+    LEDFunction: ILEDFunction;
+  end;
+
+  PNodeData = ^TNodeData;
+
+
+{$R *.dfm}
+
+
+{ TButtonFunctionForm }
+class function TButtonFunctionForm.Execute(AProfile: TProfile; AButtonIndex: Integer): Boolean;
+begin
+  with Self.Create(nil) do
+  try
+    Profile := AProfile;
+    ButtonIndex := AButtonIndex;
+
+    Result := (ShowModal = mrOk);
+  finally
+    Free;
+  end;
+end;
+
+procedure TButtonFunctionForm.FormCreate(Sender: TObject);
+begin
+  vstFunctions.NodeDataSize := SizeOf(TNodeData);
+
+  lblNoStates.Top := lblHasStates.Top;
+
+  lblCategoryName.Caption := '';
+  lblFunctionName.Caption := '';
+
+  LoadFunctions;
+end;
+
+
+procedure TButtonFunctionForm.FormDestroy(Sender: TObject);
+begin
+  //
+end;
+
+
+procedure TButtonFunctionForm.LoadFunctions;
+var
+  categoryNodes: TDictionary<string,PVirtualNode>;
+
+  function GetCategoryNode(AProvider: ILEDFunctionProvider; AFunction: ILEDFunction): PVirtualNode;
+  var
+    category: string;
+    nodeData: PNodeData;
+
+  begin
+    category := AFunction.GetCategoryName;
+
+    if not categoryNodes.ContainsKey(category) then
+    begin
+      Result := vstFunctions.AddChild(nil);
+      Include(Result^.States, vsExpanded);
+
+      nodeData := vstFunctions.GetNodeData(Result);
+      nodeData^.NodeType := ntCategory;
+      nodeData^.Provider := AProvider;
+      nodeData^.LEDFunction := AFunction;
+
+      categoryNodes.Add(category, Result);
+    end else
+      Result := categoryNodes.Items[category];
+  end;
+
+var
+  node: PVirtualNode;
+  nodeData: PNodeData;
+  provider: ILEDFunctionProvider;
+  ledFunction: ILEDFunction;
+
+begin
+  vstFunctions.BeginUpdate;
+  try
+    vstFunctions.Clear;
+
+    categoryNodes := TDictionary<string, PVirtualNode>.Create;
+    try
+      for provider in TLEDFunctionRegistry.Providers do
+      begin
+        for ledFunction in provider do
+        begin
+          node := vstFunctions.AddChild(GetCategoryNode(provider, ledFunction));
+          nodeData := vstFunctions.GetNodeData(node);
+
+          nodeData^.NodeType := ntFunction;
+          nodeData^.Provider := provider;
+          nodeData^.LEDFunction := ledFunction;
+        end;
+      end;
+    finally
+      FreeAndNil(categoryNodes);
+    end;
+  finally
+    vstFunctions.EndUpdate;
+  end;
+end;
+
+
+procedure TButtonFunctionForm.vstFunctionsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
+                                                  TextType: TVSTTextType; var CellText: string);
+var
+  nodeData: PNodeData;
+
+begin
+  nodeData := Sender.GetNodeData(Node);
+  case nodeData^.NodeType of
+    ntCategory: CellText := nodeData^.LEDFunction.GetCategoryName;
+    ntFunction: CellText := nodeData^.LEDFunction.GetDisplayName;
+  end;
+end;
+
+end.
--- a/G940LEDControl/Forms/MainFrm.dfm
+++ b/G940LEDControl/Forms/MainFrm.dfm
@ -43,7 +43,7 @@ object MainForm: TMainForm
        446)
      object lblP1Function: TLabel
        Left = 64
-        Top = 89
+        Top = 73
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
@ -56,54 +56,24 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
      object lblP1Category: TLabel
        Left = 64
-        Top = 73
+        Top = 89
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = '[runtime: category]'
        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
      end
      object lblP2Function: TLabel
-        Left = 64
-        Top = 136
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
-        Caption = '[runtime: function]'
-        EllipsisPosition = epEndEllipsis
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-        ParentFont = False
-        ExplicitWidth = 421
-      end
-      object lblP2Category: TLabel
        Left = 64
        Top = 120
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
-        Caption = '[runtime: category]'
-        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
-      end
-      object lblP3Function: TLabel
-        Left = 64
-        Top = 183
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
        Caption = '[runtime: function]'
        EllipsisPosition = epEndEllipsis
        Font.Charset = DEFAULT_CHARSET
@ -112,26 +82,24 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
-      object lblP3Category: TLabel
+      object lblP2Category: TLabel
+        Left = 64
+        Top = 136
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = '[runtime: category]'
+        EllipsisPosition = epEndEllipsis
+      end
+      object lblP3Function: TLabel
        Left = 64
        Top = 167
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
-        Caption = '[runtime: category]'
-        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
-      end
-      object lblP4Function: TLabel
-        Left = 64
-        Top = 230
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
        Caption = '[runtime: function]'
        EllipsisPosition = epEndEllipsis
        Font.Charset = DEFAULT_CHARSET
@ -140,26 +108,24 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
-      object lblP4Category: TLabel
+      object lblP3Category: TLabel
+        Left = 64
+        Top = 183
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = '[runtime: category]'
+        EllipsisPosition = epEndEllipsis
+      end
+      object lblP4Function: TLabel
        Left = 64
        Top = 214
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
-        Caption = '[runtime: category]'
-        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
-      end
-      object lblP5Function: TLabel
-        Left = 64
-        Top = 277
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
        Caption = '[runtime: function]'
        EllipsisPosition = epEndEllipsis
        Font.Charset = DEFAULT_CHARSET
@ -168,26 +134,24 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
-      object lblP5Category: TLabel
+      object lblP4Category: TLabel
+        Left = 64
+        Top = 230
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = '[runtime: category]'
+        EllipsisPosition = epEndEllipsis
+      end
+      object lblP5Function: TLabel
        Left = 64
        Top = 261
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
-        Caption = '[runtime: category]'
-        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
-      end
-      object lblP6Function: TLabel
-        Left = 64
-        Top = 324
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
        Caption = '[runtime: function]'
        EllipsisPosition = epEndEllipsis
        Font.Charset = DEFAULT_CHARSET
@ -196,26 +160,24 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
-      object lblP6Category: TLabel
+      object lblP5Category: TLabel
+        Left = 64
+        Top = 277
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = '[runtime: category]'
+        EllipsisPosition = epEndEllipsis
+      end
+      object lblP6Function: TLabel
        Left = 64
        Top = 308
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
-        Caption = '[runtime: category]'
-        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
-      end
-      object lblP7Function: TLabel
-        Left = 64
-        Top = 371
-        Width = 364
-        Height = 13
-        Anchors = [akLeft, akTop, akRight]
-        AutoSize = False
        Caption = '[runtime: function]'
        EllipsisPosition = epEndEllipsis
        Font.Charset = DEFAULT_CHARSET
@ -224,22 +186,46 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
-      object lblP7Category: TLabel
+      object lblP6Category: TLabel
+        Left = 64
+        Top = 324
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
+        Caption = '[runtime: category]'
+        EllipsisPosition = epEndEllipsis
+      end
+      object lblP7Function: TLabel
        Left = 64
        Top = 355
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
+        Caption = '[runtime: function]'
+        EllipsisPosition = epEndEllipsis
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object lblP7Category: TLabel
+        Left = 64
+        Top = 371
+        Width = 364
+        Height = 13
+        Anchors = [akLeft, akTop, akRight]
+        AutoSize = False
        Caption = '[runtime: category]'
        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
      end
      object lblP8Function: TLabel
        Left = 64
-        Top = 418
+        Top = 402
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
@ -252,18 +238,16 @@ object MainForm: TMainForm
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
-        ExplicitWidth = 421
      end
      object lblP8Category: TLabel
        Left = 64
-        Top = 402
+        Top = 418
        Width = 364
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = '[runtime: category]'
        EllipsisPosition = epEndEllipsis
-        ExplicitWidth = 421
      end
      object lblProfile: TLabel
        Left = 11
@ -350,8 +334,9 @@ object MainForm: TMainForm
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
+        Sorted = True
        TabOrder = 8
-        ExplicitWidth = 270
+        OnClick = cmbProfilesClick
      end
      object btnSaveProfile: TButton
        Left = 283
--- a/G940LEDControl/Forms/MainFrm.pas
+++ b/G940LEDControl/Forms/MainFrm.pas
@ -100,12 +100,15 @@ type
    procedure btnCheckUpdatesClick(Sender: TObject);
    procedure LEDButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
+    procedure cmbProfilesClick(Sender: TObject);
  private
    FLEDControls: array[0..LED_COUNT - 1] of TLEDControls;
    FEventMonitor: TOmniEventMonitor;

    FProfilesFilename: string;
    FProfiles: TProfileList;
+    FActiveProfile: TProfile;
+    FLoadingProfiles: Boolean;
 //    FStateConsumerTask: IOmniTaskControl;
  protected
 //    procedure ReadFunctions(AReader: IX2PersistReader; AComboBoxes: TComboBoxArray);
@ -120,9 +123,8 @@ type
    procedure SaveProfiles;

    function CreateDefaultProfile: TProfile;
-
-//    procedure LoadDefaultProfile;
-//    procedure SaveDefaultProfile;
+    procedure LoadActiveProfile;
+    procedure UpdateButton(AProfile: TProfile; AButtonIndex: Integer);

    procedure SetDeviceState(const AMessage: string; AFound: Boolean);
 //    procedure SetFSXToggleZoomButton(const ADeviceGUID: TGUID; AButtonIndex: Integer; const ADisplayText: string);
@ -145,6 +147,7 @@ type

    procedure CMAskAutoUpdate(var Msg: TMessage); message CM_ASKAUTOUPDATE;

+    property ActiveProfile: TProfile read FActiveProfile;
    property EventMonitor: TOmniEventMonitor read FEventMonitor;
    property Profiles: TProfileList read FProfiles;
 //    property StateConsumerTask: IOmniTaskControl read FStateConsumerTask;
@ -155,6 +158,7 @@ implementation
 uses
  ComObj,
  Dialogs,
+  Graphics,
  ShellAPI,
  SysUtils,

@ -164,11 +168,13 @@ uses
  X2UtApp,
  X2UtPersistXML,

-  ButtonSelectFrm,
+  ButtonFunctionFrm,
  ConfigConversion,
  FSXLEDStateProvider,
  G940LEDStateConsumer,
  LEDColorIntf,
+  LEDFunctionIntf,
+  LEDFunctionRegistry,
  StaticLEDFunction;


@ -176,7 +182,7 @@ uses


 const
-  NameDefaultProfile = 'Default';
+  DefaultProfileName = 'Default';

  FILENAME_PROFILES = 'G940LEDControl\Profiles.xml';

@ -284,6 +290,7 @@ begin

    FLEDControls[ledIndex].ConfigureButton.OnClick := LEDButtonClick;
    FLEDControls[ledIndex].CategoryLabel.Caption := '';
+    FLEDControls[ledIndex].CategoryLabel.Font.Color := clGrayText;
    FLEDControls[ledIndex].FunctionLabel.Caption := '';
  end;
 end;
@ -293,6 +300,7 @@ procedure TMainForm.LoadProfiles;
 var
  defaultProfile: TProfile;
  persistXML: TX2UtPersistXML;
+  profile: TProfile;

 begin
  if not FileExists(FProfilesFilename) then
@ -305,7 +313,7 @@ begin

    if Assigned(defaultProfile) then
    begin
-      defaultProfile.Name := NameDefaultProfile;
+      defaultProfile.Name := DefaultProfileName;
      Profiles.Add(defaultProfile);
    end;
  end else
@ -318,6 +326,29 @@ begin
      FreeAndNil(persistXML);
    end;
  end;
+
+  FLoadingProfiles := True;
+  try
+    cmbProfiles.Items.BeginUpdate;
+    try
+      cmbProfiles.Items.Clear;
+
+      for profile in Profiles do
+        cmbProfiles.Items.AddObject(profile.Name, profile);
+    finally
+      cmbProfiles.Items.EndUpdate;
+
+      if cmbProfiles.Items.Count > 0 then
+      begin
+        cmbProfiles.ItemIndex := 0;
+
+        FActiveProfile := TProfile(cmbProfiles.Items.Objects[0]);
+        LoadActiveProfile;
+      end;
+    end;
+  finally
+    FLoadingProfiles := False;
+  end;
 end;


@ -337,18 +368,68 @@ end;


 function TMainForm.CreateDefaultProfile: TProfile;
+begin
+  { Default button functions are assigned during UpdateButton }
+  Result := TProfile.Create;
+end;
+
+
+procedure TMainForm.LoadActiveProfile;
 var
-  ledIndex: Integer;
-  button: TProfileButton;
+  buttonIndex: Integer;

 begin
-  Result := TProfile.Create;
+  if not Assigned(ActiveProfile) then
+    exit;

-  for ledIndex := 0 to Pred(LED_COUNT) do
+  for buttonIndex := 0 to Pred(LED_COUNT) do
+    UpdateButton(ActiveProfile, buttonIndex);
+end;
+
+
+procedure TMainForm.UpdateButton(AProfile: TProfile; AButtonIndex: Integer);
+var
+  button: TProfileButton;
+  providerUID: string;
+  functionUID: string;
+  provider: ILEDFunctionProvider;
+  buttonFunction: ILEDFunction;
+
+begin
+  if AProfile.HasButton(AButtonIndex) then
  begin
-    button := Result.Buttons[ledIndex];
-    button.ProviderUID := StaticProviderUID;
-    button.FunctionUID := StaticFunctionUID[lcGreen];
+    button := AProfile.Buttons[AButtonIndex];
+    providerUID := button.ProviderUID;
+    functionUID := button.FunctionUID;
+  end else
+  begin
+    providerUID := StaticProviderUID;
+    functionUID := StaticFunctionUID[lcGreen];
+  end;
+
+  buttonFunction := nil;
+  provider := TLEDFunctionRegistry.Find(providerUID);
+  if Assigned(provider) then
+    buttonFunction := provider.Find(functionUID);
+
+  if Assigned(buttonFunction) then
+  begin
+    FLEDControls[AButtonIndex].CategoryLabel.Caption := buttonFunction.GetCategoryName;
+    FLEDControls[AButtonIndex].FunctionLabel.Caption := buttonFunction.GetDisplayName;
+  end;
+end;
+
+
+procedure TMainForm.cmbProfilesClick(Sender: TObject);
+begin
+  if not FLoadingProfiles then
+  begin
+    if cmbProfiles.ItemIndex > -1 then
+      FActiveProfile := TProfile(cmbProfiles.Items.Objects[cmbProfiles.ItemIndex])
+    else
+      FActiveProfile := nil;
+
+    LoadActiveProfile;
  end;
 end;

@ -518,11 +599,15 @@ end;

 procedure TMainForm.LEDButtonClick(Sender: TObject);
 var
-  ledIndex: NativeInt;
+  buttonIndex: NativeInt;

 begin
-  ledIndex := (Sender as TComponent).Tag;
-  // TODO configure led
+  if not Assigned(ActiveProfile) then
+    exit;
+
+  buttonIndex := (Sender as TComponent).Tag;
+  if TButtonFunctionForm.Execute(ActiveProfile, buttonIndex) then
+    UpdateButton(ActiveProfile, buttonIndex);
 end;


--- a/G940LEDControl/G940LEDControl.dpr
+++ b/G940LEDControl/G940LEDControl.dpr
@ -23,14 +23,16 @@ uses
  DynamicLEDColor in 'Units\DynamicLEDColor.pas',
  LEDStateIntf in 'Units\LEDStateIntf.pas',
  LEDState in 'Units\LEDState.pas',
-  Profile in 'Units\Profile.pas';
+  Profile in 'Units\Profile.pas',
+  LEDColorPool in 'Units\LEDColorPool.pas',
+  ButtonFunctionFrm in 'Forms\ButtonFunctionFrm.pas' {ButtonFunctionForm};

 {$R *.res}


 var
  MainForm: TMainForm;
-  
+
 begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
--- a/G940LEDControl/G940LEDControl.dproj
+++ b/G940LEDControl/G940LEDControl.dproj
@ -186,6 +186,11 @@
 			<DCCReference Include="Units\LEDStateIntf.pas"/>
 			<DCCReference Include="Units\LEDState.pas"/>
 			<DCCReference Include="Units\Profile.pas"/>
+			<DCCReference Include="Units\LEDColorPool.pas"/>
+			<DCCReference Include="Forms\ButtonFunctionFrm.pas">
+				<Form>ButtonFunctionForm</Form>
+				<FormType>dfm</FormType>
+			</DCCReference>
 			<BuildConfiguration Include="Debug">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
--- a/G940LEDControl/Units/ConfigConversion.pas
+++ b/G940LEDControl/Units/ConfigConversion.pas
@ -14,6 +14,8 @@ function Convert0To1: TProfile;
 begin
  Result := nil;

+
+
 //  FUNCTION_NONE = 0;
 //  FUNCTION_OFF = 1;
 //  FUNCTION_RED = 2;
--- a/G940LEDControl/Units/LEDColorPool.pas
+++ b/G940LEDControl/Units/LEDColorPool.pas
@ -0,0 +1,101 @@
+unit LEDColorPool;
+
+interface
+uses
+  LEDColorIntf;
+
+
+type
+  TLEDColorPoolEntry = (cpeStaticOff,
+                        cpeStaticGreen,
+                        cpeStaticAmber,
+                        cpeStaticRed,
+
+                        cpeFlashingGreenFast,
+                        cpeFlashingGreenNormal,
+                        cpeFlashingAmberFast,
+                        cpeFlashingAmberNormal,
+                        cpeFlashingRedFast,
+                        cpeFlashingRedNormal);
+
+  TLEDColorPool = class(TObject)
+  private
+    FStates: array[TLEDColorPoolEntry] of ILEDColor;
+  protected
+    class function Instance: TLEDColorPool;
+
+    function DoGetColor(AEntry: TLEDColorPoolEntry): ILEDColor;
+  public
+    class function GetColor(AEntry: TLEDColorPoolEntry): ILEDColor;
+  end;
+
+
+implementation
+uses
+  SysUtils,
+
+  DynamicLEDColor,
+  StaticLEDColor;
+
+
+var
+  LEDColorPoolInstance: TLEDColorPool;
+
+
+{ TLEDStatePool }
+class function TLEDColorPool.GetColor(AEntry: TLEDColorPoolEntry): ILEDColor;
+begin
+  Result := Instance.DoGetColor(AEntry);
+end;
+
+
+class function TLEDColorPool.Instance: TLEDColorPool;
+begin
+  if not Assigned(LEDColorPoolInstance) then
+    LEDColorPoolInstance := TLEDColorPool.Create;
+
+  Result := LEDColorPoolInstance;
+end;
+
+
+function TLEDColorPool.DoGetColor(AEntry: TLEDColorPoolEntry): ILEDColor;
+
+  function GetFlashingCycle(AColor: TLEDColor): TLEDColorDynArray;
+  begin
+    SetLength(Result, 2);
+    Result[0] := AColor;
+    Result[1] := lcOff;
+  end;
+
+var
+  state: ILEDColor;
+
+begin
+  if not Assigned(FStates[AEntry]) then
+  begin
+    case AEntry of
+      cpeStaticOff:           state := TStaticLEDColor.Create(lcOff);
+      cpeStaticGreen:         state := TStaticLEDColor.Create(lcGreen);
+      cpeStaticAmber:         state := TStaticLEDColor.Create(lcAmber);
+      cpeStaticRed:           state := TStaticLEDColor.Create(lcRed);
+
+      cpeFlashingGreenFast:   state := TDynamicLEDColor.Create(GetFlashingCycle(lcGreen), TICKINTERVAL_FAST);
+      cpeFlashingGreenNormal: state := TDynamicLEDColor.Create(GetFlashingCycle(lcGreen), TICKINTERVAL_NORMAL);
+      cpeFlashingAmberFast:   state := TDynamicLEDColor.Create(GetFlashingCycle(lcAmber), TICKINTERVAL_FAST);
+      cpeFlashingAmberNormal: state := TDynamicLEDColor.Create(GetFlashingCycle(lcAmber), TICKINTERVAL_NORMAL);
+      cpeFlashingRedFast:     state := TDynamicLEDColor.Create(GetFlashingCycle(lcRed), TICKINTERVAL_FAST);
+      cpeFlashingRedNormal:   state := TDynamicLEDColor.Create(GetFlashingCycle(lcRed), TICKINTERVAL_NORMAL);
+    end;
+
+    FStates[AEntry] := state;
+    Result := state;
+  end else
+    Result := FStates[AEntry];
+end;
+
+
+initialization
+finalization
+  FreeAndNil(LEDColorPoolInstance);
+
+end.
--- a/G940LEDControl/Units/LEDFunction.pas
+++ b/G940LEDControl/Units/LEDFunction.pas
@ -18,8 +18,9 @@ type
  protected
    { ILEDFunctionProvider }
    function GetUID: string; virtual; abstract;
-
    function GetEnumerator: ILEDFunctionEnumerator; virtual;
+
+    function Find(const AFunctionUID: string): ILEDFunction; virtual;
  public
    constructor Create;
    destructor Destroy; override;
@ -157,6 +158,22 @@ begin
 end;


+function TCustomLEDFunctionProvider.Find(const AFunctionUID: string): ILEDFunction;
+var
+  ledFunction: ILEDFunction;
+
+begin
+  Result := nil;
+
+  for ledFunction in (Self as ILEDFunctionProvider) do
+    if ledFunction.GetUID = AFunctionUID then
+    begin
+      Result := ledFunction;
+      break;
+    end;
+end;
+
+
 procedure TCustomLEDFunctionProvider.RegisterFunction(AFunction: ILEDFunction);
 begin
  FFunctions.Add(AFunction as ILEDFunction);
--- a/G940LEDControl/Units/LEDFunctionIntf.pas
+++ b/G940LEDControl/Units/LEDFunctionIntf.pas
@ -8,6 +8,7 @@ uses


 type
+  ILEDFunction = interface;
  ILEDFunctionEnumerator = interface;
  ILEDStateEnumerator = interface;

@ -15,8 +16,9 @@ type
  ILEDFunctionProvider = interface
    ['{B38F6F90-DC96-42CE-B8F0-21F0DD8AA537}']
    function GetUID: string;
-
    function GetEnumerator: ILEDFunctionEnumerator;
+
+    function Find(const AFunctionUID: string): ILEDFunction;
  end;


@ -26,11 +28,16 @@ type
    function GetDisplayName: string;
    function GetUID: string;

-    function GetEnumerator: ILEDStateEnumerator;
    function GetCurrentState: ILEDState;
  end;


+  ILEDMultiStateFunction = interface(ILEDFunction)
+    ['{F16ADF7E-1C1C-4676-8D4F-135B68A80B52}']
+    function GetEnumerator: ILEDStateEnumerator;
+  end;
+
+
  ILEDFunctionEnumerator = interface
    ['{A03E4E54-19CB-4C08-AD5F-20265817086D}']
    function GetCurrent: ILEDFunction;
--- a/G940LEDControl/Units/LEDState.pas
+++ b/G940LEDControl/Units/LEDState.pas
@ -0,0 +1,57 @@
+unit LEDState;
+
+interface
+uses
+  LEDColorIntf,
+  LEDStateIntf;
+
+
+type
+  TLEDState = class(TInterfacedObject, ILEDState)
+  private
+    FDisplayName: string;
+    FUID: string;
+    FColor: ILEDColor;
+  protected
+    { ILEDState }
+    function GetDisplayName: string;
+    function GetUID: string;
+
+    function GetColor: ILEDColor;
+  public
+    constructor Create(const AUID, ADisplayName: string; AColor: ILEDColor);
+  end;
+
+
+implementation
+
+{ TLEDState }
+constructor TLEDState.Create(const AUID, ADisplayName: string; AColor: ILEDColor);
+begin
+  inherited Create;
+
+  FUID := AUID;
+  FDisplayName := ADisplayName;
+
+  FColor := AColor;
+end;
+
+
+function TLEDState.GetDisplayName: string;
+begin
+  Result := FDisplayName;
+end;
+
+
+function TLEDState.GetUID: string;
+begin
+  Result := FUID;
+end;
+
+
+function TLEDState.GetColor: ILEDColor;
+begin
+  Result := FColor;
+end;
+
+end.
--- a/G940LEDControl/Units/LEDStateIntf.pas
+++ b/G940LEDControl/Units/LEDStateIntf.pas
@ -0,0 +1,20 @@
+unit LEDStateIntf;
+
+interface
+uses
+  LEDColorIntf;
+
+
+type
+  ILEDState = interface
+    ['{0361CBD5-E64E-4972-A8A4-D5FE0B0DFB1C}']
+    function GetDisplayName: string;
+    function GetUID: string;
+
+    function GetColor: ILEDColor;
+  end;
+
+
+implementation
+
+end.
--- a/G940LEDControl/Units/Profile.pas
+++ b/G940LEDControl/Units/Profile.pas
@ -38,6 +38,8 @@ type
    constructor Create;
    destructor Destroy; override;

+    function HasButton(AIndex: Integer): Boolean;
+
    property Name: string read FName write FName;

    property ButtonCount: Integer read GetButtonCount;
@ -140,6 +142,13 @@ begin
 end;


+function TProfile.HasButton(AIndex: Integer): Boolean;
+begin
+  Result := (FButtons.Count > AIndex) and
+            Assigned(FButtons[AIndex]);
+end;
+
+
 function TProfile.GetButtonCount: Integer;
 begin
  Result := FButtons.Count;
--- a/G940LEDControl/Units/StaticLEDFunction.pas
+++ b/G940LEDControl/Units/StaticLEDFunction.pas
@ -3,7 +3,8 @@ unit StaticLEDFunction;
 interface
 uses
  LEDFunction,
-  LEDColorIntf;
+  LEDColorIntf,
+  LEDStateIntf;


 type
@ -22,6 +23,8 @@ type
    function GetCategoryName: string; override;
    function GetDisplayName: string; override;
    function GetUID: string; override;
+
+    function GetCurrentState: ILEDState; override;
  public
    constructor Create(AColor: TLEDColor);
  end;
@ -101,6 +104,13 @@ begin
 end;


+function TStaticLEDFunction.GetCurrentState: ILEDState;
+begin
+
+end;
+
+
+
 initialization
  TLEDFunctionRegistry.Register(TStaticLEDFunctionProvider.Create);