anchor.diff:  end;
   
   
  -procedure TKMMenuOptions.RefreshKeyList;
  -var
  -  I, prevI: Integer;
  -  K: TKMKeyArea;
  -begin
  -  prevI := ColumnBox_Options_Keys.TopIndex;
  -
  -  ColumnBox_Options_Keys.Clear;
  -
  -  for K := Low(TKMKeyArea) to High(TKMKeyArea) do
  -  begin
  -    ColumnBox_Options_Keys.AddItem(MakeListRow([gResTexts[KEY_SEP_TX[K]], ' '], [$FF3BB5CF, $FF3BB5CF], [$FF0000FF, $FF0000FF], -1));
  -
  -    // Do not show the debug keys
  -    for I := 0 to gResKeys.Count - 1 do
  -      if (K = gResKeys[I].Area) and not gResKeys[I].IsDebug then
  -        ColumnBox_Options_Keys.AddItem(MakeListRow([gResTexts[gResKeys[I].TextId], gResKeys.GetKeyNameById(I)],
  -                                                  [$FFFFFFFF, $FFFFFFFF], [$FF0000FF, $FF0000FF], I));
  -  end;
  -
  -  ColumnBox_Options_Keys.TopIndex := prevI;
  -end;
  -
  -
   end.
  
positive.code:       Radio_Options_Lang.OnChange := Change;
  
      // Keybindings button
      Button_Options_Keys := TKMButton.Create(Panel_Options, 60, 520, 280, 30, gResTexts[TX_MENU_OPTIONS_EDIT_KEYS], bsMenu);
      Button_Options_Keys.Anchors := [anLeft];
      Button_Options_Keys.OnClick := KeybindClick;
  
      // Back button
      Button_Options_Back:=TKMButton.Create(Panel_Options,60,630,280,30,gResTexts[TX_MENU_BACK],bsMenu);
      Button_Options_Back.Anchors := [anLeft];
      Button_Options_Back.OnClick := BackClick;
  
      // Panel_Options_Keys
      PopUp_Options_Keys := TKMPopUpMenu.Create(Panel_Options, 700);
      PopUp_Options_Keys.Height := 600;
      // Keep the pop-up centered
      PopUp_Options_Keys.Anchors := [];
      PopUp_Options_Keys.Left := (Panel_Options.Width Div 2) - 350;
      PopUp_Options_Keys.Top := (Panel_Options.Height Div 2) - 300;
  
        TKMBevel.Create(PopUp_Options_Keys, -1000,  -1000, 4000, 4000);
  
        Image_Options_Keys := TKMImage.Create(PopUp_Options_Keys,0,0, 700, 600, 15, rxGuiMain);
        Image_Options_Keys.ImageStretch;
  
        Label_Options_Keys_Title := TKMLabel.Create(PopUp_Options_Keys, 20, 35, 660, 30, gResTexts[TX_MENU_OPTIONS_KEYBIND], fnt_Outline, taCenter);
        Label_Options_Keys_Title.Anchors := [anLeft,anBottom];
  
        Button_Options_Keys_Reset := TKMButton.Create(PopUp_Options_Keys, 20, 550, 200, 30, gResTexts[TX_MENU_OPTIONS_RESET], bsMenu);
        Button_Options_Keys_Reset.Anchors := [anLeft,anBottom];
        Button_Options_Keys_Reset.OnClick := KeybindClick;
  
        Button_Options_Keys_OK := TKMButton.Create(PopUp_Options_Keys, 230, 550, 200, 30, gResTexts[TX_MENU_OPTIONS_OK], bsMenu);
        Button_Options_Keys_OK.Anchors := [anLeft,anBottom];
        Button_Options_Keys_OK.OnClick := KeybindClick;
  
        ColumnBox_Options_Keys := TKMColumnBox.Create(PopUp_Options_Keys, 20, 110, 660, 400, fnt_Metal, bsMenu);
        ColumnBox_Options_Keys.SetColumns(fnt_Outline, [gResTexts[TX_MENU_OPTIONS_FUNCTION], gResTexts[TX_MENU_OPTIONS_KEY]], [0, 350]);
        ColumnBox_Options_Keys.Anchors := [anLeft,anTop,anBottom];
        ColumnBox_Options_Keys.ShowLines := True;
        ColumnBox_Options_Keys.PassAllKeys := True;
        ColumnBox_Options_Keys.OnChange := KeybindClick;
        ColumnBox_Options_Keys.OnKeyDown := Keybind_ListKeySave;
  
        Label_Options_Keys_Unassignable := TKMLabel.Create(PopUp_Options_Keys, 20, 520, 660, 30, '* ' + gResTexts[TX_KEY_UNASSIGNABLE], fnt_Metal, taLeft);
  end;
  
  
  
negative.code:     procedure Change(Sender: TObject);
      procedure ChangeResolution(Sender: TObject);
      procedure BackClick(Sender: TObject);
      procedure FlagClick(Sender: TObject);
      procedure Refresh;
      procedure RefreshResolutions;
      procedure KeysClick(Sender: TObject);
      procedure KeysRefreshList;
      procedure KeysUpdate(Key: Word; Shift: TShiftState);
    protected
      Panel_Options: TKMPanel;
        Panel_Options_GFX: TKMPanel;
  