VPF::Помогите решить проблему... - Форум программистов

timself

Дата 24.9.2008, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 14.2.2007

Репутация: нет
Всего: нет

Не могу сообразить как сделать. Возможно там всё элементарно, а я просто туплю, но тем не менее...
Для наглядности я всё изобразил на скриншоте. Там вид окна, код и суть вопроса.

Скриншот тут: http://mail.ngs.ru/~timself/x-temp-scr-01.gif

Прошу взглянуть, если не затруднит.

M
Alexeis

Модератор: Название темы должно отражать ее суть!

pseud

Дата 24.9.2008, 10:03 (ссылка)

(голосов:2)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Страница не найдена

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

timself

Дата 25.9.2008, 02:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 14.2.2007

Репутация: нет
Всего: нет

ИЗВИНЯЮСЬ. СКРИНШОТ ПЕРЕЗАЛИЛ.

Скриншот: http://www.ljplus.ru/img4/f/a/fatherlander/vopros-01.gif

skyboy

Дата 25.9.2008, 08:46 (ссылка)

(голосов:2)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Page Load Error.

Добавлено через 17 секунд
а все потому, что не умеем задавать вопросы.

Louken

Дата 25.9.2008, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 13.9.2008
Где: Кострома

Репутация: 1
Всего: 1

(Sender as TPanel).Color := ColorPicker.SelColor;
Что то типа этого

timself

Дата 26.9.2008, 01:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 14.2.2007

Репутация: нет
Всего: нет

Цитата

(Sender as TPanel).Color := ColorPicker.SelColor;

Этот метод не работает !!! (проверено)
Нужно что-то другое... но что?

pseud

Дата 26.9.2008, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Ну, во-первых, ColorPicker.Height - можешь убрать совсем (т.к. ты ведь на самом деле не хочешь, чтоб он стал размеров панельки типа 64х64).
Во-вторых тебе надо хранить переменную кликнутой панели.
код будет приблизительно такой (TColorPicker - нет в наличии)

Код


type
  TForm1 = class(TForm)
  ...
  private
    FSelectedPanel: TPanel
  end;


procedure TForm1.Panel1Click(Sender: TObject);
begin
  FSelectedPanel := TPanel(Sender);
  ColorPicker1.Left := FSelectedPanel.Left;
  ColorPicker1.Top := FSelectedPanel.Top;
  ColorPicker1.DroppedDown := True;
end; 

procedure TForm1.ColorPicker1<OnColorChange>(Sender: TObject);
begin
  FSelectedPanel.Color := ColorPicker1.<SelColor>;
  FSelectedPanel := nil;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

timself

Дата 26.9.2008, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 14.2.2007

Репутация: нет
Всего: нет

Благодарю. Проблема решена.
Сделал так:

Код


...
ColorPicker: TColorPickerButton;
...
var
  Form1: TForm1;
  pan: HWND;
...
procedure TForm1.SetPicker(Sender: TObject);
begin
  pan:= (Sender as TPanel).Handle;
  ColorPicker.Height:=(Sender as TPanel).Height;
  ColorPicker.Left:=(Sender as TPanel).Left;
  ColorPicker.Top:=(Sender as TPanel).Top;
  ColorPicker.DroppedDown:= True;
end;
...
// обшее OnClick для всех панелей...
procedure TForm1.Panel1Click(Sender: TObject);
begin
  SetPicker(Sender);
end;
...
procedure TForm1.ColorPickerChange(Sender: TObject);
begin
  (FindControl(pan) as TPanel).Color:= ColorPicker.SelectionColor;
end;
...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »