ColorComboBox.Color nach Items schreiben

[Bjoerk]

Ich hab eine ColorComboBox mit der gleichzeitig verschiedene Items[I].Pen.Color geändert werden (falls die Items markiert sind und über diese Eigenschaft verfügen (wie OI)). Die Items können unterschiedliche Pen.Color haben.

Mit welchem Ereignis der CombBox soll ich denn nun den Wert nach Items zurückschreiben?

Es gibt folgende 3 Fälle:

a) Der User "spaziert" mit Tab über die Box.
-> ColorComboBox .Enter, KEIN ColorComboBox.Change, ColorComboBox.Exit
-> Es soll KEIN Item geändert werden. No Problem.

b) Der User möchte allen markierten Items eine andere Pen.Color geben.
-> ColorComboBox.Enter, ColorComboBox.Change, ColorComboBox.Exit
-> Alle markierten Items sollen diese Farbe bekommen. No Problem.

c) Der User möchte allen markierten Items die Farbe des ColorComboBox.ItemIndex geben.
-> ColorComboBox.Enter, KEIN ColorComboBox.Change, ColorComboBox.Exit
-> Die markierten Items sollen (trotzdem) diese Farbe bekommen. Problem.

Wie kann man a) und c) unterscheiden?

[Sir Rufo]

Ich finde die Vorgehensweise bei iTunes (mehrere Titel bearbeiten) ganz sinnvoll.
Zu jedem Control gibt es eine Checkbox. Wenn die gesetzt ist, dann wird dieser Wert an alle Ausgewählten übertragen. Bei einer Änderung wird diese Checkbox automatisch auf checked gesetzt.

Das ist eindeutig und unmissverständlich (aufwändiger auch )

[Bjoerk]

Gut. Kann man machen. Jedenfalls schon mal besser als ein Button. Delphi macht das wohl mit KeyPress #13?

Ist allerdings in der Tat sehr viel mehr Aufwand. Mach ich aber trotzdem. Thanx.

[Bjoerk]

Jo. Läuft. Das mit dem Autocheck gefiel mir allerdings nicht und hab’s deshalb weggelassen. Es werden jetzt alle Items geändert wenn entweder die CheckBox selbst angeklickt wird und dabei gecheckt wird oder beim OnExit der ComboBox wenn wenn die CheckBox gecheckt ist. Der Frame schickt der Liste ein Event, und diese weiß über einen Aufzählungstypen um welche Variable es sich handelt (über die TypInfo hab ich‘s nicht (mehr) hingekriegt(*schäm*)). Das entsprechende Gui Element hat den als Tag.

Delphi-Quellcode:

var
  All: boolean;
begin
  if FEnabled and Assigned(FOnPropertiesChange) then
  begin
    PropertiesToValue(Sender); // GuiToValue
    if Sender is TCheckBox then
      All := TCheckBox(Sender).Checked and (Pos('_MultiProp', TControl(Sender).Name) > 0)
    else
      All := false;  
    if not All then
    begin
      if Sender is TPropCheckBox then
        All := TPropCheckBox(Sender).CheckBox.Checked;
      if Sender is TPropEdit then
        All := TPropEdit(Sender).CheckBox.Checked;
      if Sender is TPropComboBox then
        All := TPropComboBox(Sender).CheckBox.Checked;
    end;
    FOnPropertiesChange(TPropHave(TControl(Sender).Tag), All); // ValueToItem(s)
  end;
end;