TMediaPlayer. Убрать рамку вокруг кнопок

[grominfo]

Всем привет!

Отредактировал res файл данного компонента, заменив иконки кнопок. Но вокруг них осталась рамка. Кто знает, как ее убрать?

З.Ы. Заменить кнопки на свои не предлагайте ))) Нужно изменить именно в компоненте.

[beegl]

покажи компонент

[grominfo]

Сообщение от beegl

покажи компонент

Компонент стандартный, со вкладки System в Delphi 7

[kropotkina-alice]

Сообщение от grominfo

Отредактировал res файл данного компонента, заменив иконки кнопок. Но вокруг них осталась рамка. Кто знает, как ее убрать?
Нужно изменить именно в компоненте.

В файле MPlayer.pas есть процедура procedure TMediaPlayer.DrawButton.
В ней есть кусок, отвечающий за отрисовку рамок у кнопок:

    { draw button beveling }
    if IsDown then
    begin
      Pen.Color := clBtnShadow;
      MoveTo(X + 1, Height - 2);
      LineTo(X + 1, 1);
      LineTo(X + ButtonWidth - 1, 1);
    end
    else
    begin
      Pen.Color := clBtnHighlight;
      MoveTo(X + 1, Height - 2);
      LineTo(X + 1, 1);
      LineTo(X + ButtonWidth - 1, 1);
      Pen.Color := clBtnShadow;
      MoveTo(X + 2, Height - 2);
      LineTo(X + ButtonWidth - 2, Height - 2);
      LineTo(X + ButtonWidth - 2, 1);
    end;

Если его закомментировать, рамки рисоваться не будут...
Только надо будет MPlayer.pas перекомпилить и полученный MPlayer.dcu перенести в LIB. С заменой.

[grominfo]

Только надо будет MPlayer.pas перекомпилить и полученный MPlayer.dcu перенести в LIB. С заменой.

Вот в этом и проблема. Как перекомпилировать стандартные компоненты? У них же нет .dpk файлов

[zvygin1964]

Есть скрины, как это сделать тут:
http://expert.delphi.int.ru/question...-2/#mini_forum .
Делал так. Получилось. Объяснить, как это работает не смогу.

[Аватар]

............delete

[kropotkina-alice]

Сообщение от grominfo

Вот в этом и проблема. Как перекомпилировать стандартные компоненты? У них же нет .dpk файлов

Странно... Элементарная вещь вызвала такое затруднение...
Пошаговая инструкция:
1. Скопируйте в каталог с вашим проектом файл MPlayer.pas из каталога Delphi7\Source.
2. Совершенно безбоязненно закомментируйте тот кусок, который я вам показала. Можете сделать еще что-нибудь...
3. Добавьте в любой юните вашего проекта в список uses наименование MPlayer. (Это нужно, чтобы компилятор "подцепил" его)
4. Скомпилируйте ваш проект, как вы это всегда делаете.
5. Вы обнаружите в каталоге вашего проекта волшебным образом появившийся файл MPlayer.dcu.
6. Переименуйте MPlayer.dcu в каталоге Delphi7\LIB, например, в MPlayerOLD.dcu.
7 Скопируйте в каталог Delphi7\LIB файл MPlayer.dcu из пункта 5.
8. Теперь добавьте на свою форму компонент MediaPlayer и запустите ваш проект...

ЗюЗю
Забыла указать, что надо закомментировать ещё одну строку в исходнике MPlayer.pas:

Rectangle(X, 0, X + ButtonWidth, Height);

(она прямо перед упомянутым куском кода отрисовки)

Успехов!
Если вам не нравится общая рамка вокруг MediaPlayer-а, вам ведь не составит труда найти в исходниках, где это происходит и аналогичным образом "обезвредить"?

ЗюЗюЗю
Вы в любой момент можете вернуть обычный вид MediaPlayer-а, переименовав старый и новый файлы MPlayer.dcu в каталоге Delphi7\LIB.

[grominfo]

Странно... Элементарная вещь вызвала такое затруднение...

Действительно, че это я. Ну не догадался )))

Попробую сейчас сначала совет Аватара. Тоже уж больно не хочется подменять файлы стандартных компонентов, а потом учитывать это при переустановке делфи

[grominfo]

Если вам не нравится общая рамка вокруг MediaPlayer-а, вам ведь не составит труда найти в исходниках, где это происходит и аналогичным образом "обезвредить"?

Не нравится. Составит. Не нашел где она там рисуется. Подскажите, пожалуйста. Разделители между кнопками убрал, а где рисуется рамка - не нашел.

И как можно изменить расстояние между кнопками?

Аватар, ваш метод почему-то не сработал.