Отмена в ColorDialog'е

[Marsel737]

Всем привет.

Вообщем такие дела, когда открываю диалог изменения цвета панельки, а потом нажимаю отмену, не выбрав цвет, то через раз панелька становится чёрной. Хотя цвет менятся не должен, так вот, как с этим справиться?

[Noor]

Код покажите

[MaxNik2009]

надо вот так делать:

  if colorDialog1.Execute then  
  begin
    Panel1.Color:=ColorDialog1.Color;
  end;

[Marsel737]

Я как делать знаю, если цвет выбрать, то всё норм, но если просто нажать отмену, то через раз касяк выходит.

procedure TfrmBook.imgEditColorClick(Sender: TObject);
begin
  frmBook.SelectSoundPlay;
  if cdPanelColor.Execute then
  begin
    pnlSystem.Color :=cdPanelColor.Color;
    rzgbActions.Color :=cdPanelColor.Color;
    rzgbFonSize.Color :=cdPanelColor.Color;
  end;
end;

А нет, это не тот код... здесь та как раз всё норм, зато там где касячило я действительно забыл про begin и end

[mihali4]

Проверил - ничего подобного не происходит.
Вывод - кривая Дельфи или винда.

[Marsel737]

mihali4, это не винда кривая, а руки у меня кривые У меня в процедуре у трех элементов цвет менялся, а я все это без begin-end оформил, вследствие чего такой касяк. А вот на лазерусе там постоянно у меня так было и дело вовсе не в begin-end, там в любом случае так глючило