Autor Téma: RibbonComboBox  (Přečteno 1479 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5140
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
RibbonComboBox
« kdy: 05-07-2012, 10:31:07 »
Mám nasledujúce
Kód: Delphi [Vybrat]
  1.  
  2. procedure TfrmMain.rbncmbxApearanceChange(Sender: TObject);
  3. var
  4.   Text: string;
  5.   iniF: TIniFile;
  6.   Nevent: TNotifyEvent;
  7.   rcb: TRibbonComboBox;
  8. begin
  9.   rcb := TRibbonComboBox(Sender);
  10.   Text := rcb.Text;
  11.   if (Text = '') then
  12.     Exit;
  13.  
  14.   Nevent := rcb.OnChange;
  15.   rcb.OnChange := nil;
  16.   rbnMain.BeginUpdate;
  17.   case rcb.Items.IndexOf(Text) of
  18.     0, 13, 16, 17: rbnMain.Style := RibbonLunaStyle;
  19.     2, 8, 9, 14, 19: rbnMain.Style := RibbonSilverStyle;
  20.   else
  21.     rbnMain.Style := RibbonObsidianStyle;
  22.   end;
  23.  
  24.   try
  25.     TStyleManager.TrySetStyle(Text);
  26.     ColorLMDControl(lpgc1);
  27.   finally
  28.     rbnMain.EndUpdate;
  29.     rcb.OnChange := Nevent;
  30.   end;
  31.   try
  32.     iniF := TIniFile.Create(GetCurrentDir + '\SVBJasot.ini');
  33.     iniF.WriteString('Appearance', 'Style', Text);
  34.   finally
  35.     FreeAndNil(iniF);
  36.   end;
  37. end;
  38.  

Problém je v tom, že pole RibbonComboBox ostane prázdne. Spôsobuje to TStyleManager.TrySetStyle(Text);

Pritom vo Form.onCreate to funguje správne. Kde je zrada?
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5140
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:RibbonComboBox
« Odpověď #1 kdy: 05-07-2012, 15:09:59 »
Ak použijem obyčajný ComboBox, tak nie je žiaden problém.

Používa vôbec niekto ten Ribbon? Na túto tému akosi nikto neodpovedá  >:(
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Morrison

  • Hrdina
  • ****
  • Příspěvků: 291
  • Karma: 12
    • Verze Delphi: D5, XE2, 10.4
Re:RibbonComboBox
« Odpověď #2 kdy: 05-07-2012, 16:08:52 »
Asi moc nepoužívá. Mě osobně to nikdy nestálo za to, abych četl podmínky použití...
nil

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5140
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:RibbonComboBox
« Odpověď #3 kdy: 05-07-2012, 16:54:10 »
Asi to tak bude. Keď som čítal návod, tak asi 3 či 4 boli o MS a jeho patente. To ma silne zarazilo. Pri mojej angličtine som tomu aj tak veľmi nerozumel.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.