RibbonComboBox

[Stanislav Hruška]

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?

[Stanislav Hruška]

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á 

[Morrison]

Asi moc nepoužívá. Mě osobně to nikdy nestálo za to, abych četl podmínky použití...

[Stanislav Hruška]

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.