PHP DM Gate v0.9 » Помогите решить пару вопросов с созданием TPanel <span class="vd">[D6, D7, WinXP]</span>

SkySpeed (15.04.07 21:58) [0]

Траблы следующие:

1) После запуска тест. программы и выбора рисунка, рисунок постоянно обновляется и, соответственно, программа виснет и плохо работает
Что исправить чтобы прорисовка проходила нормально?..

2) При изменении BevelInner и BevelOuter панели, 3D-форма не меняется
Как исправить?

Исходники с тестирующей программой здесь:
http://www.mytempdir.com/1296567

Заранее спасибо за помощь!

<Цитата>
{RASkov} (15.04.07 22:49) [1]

> 2) При изменении BevelInner и BevelOuter панели, 3D-форма не меняется
> Как исправить?

Меняй местами TopColor и BottomColor....
Примерно так:
procedure TPanelka.Paint;
................
if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
if BevelOuter=bvRaised then Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth)
else Frame3D(Canvas, Rect, BottomColor, TopColor, BevelWidth);
end;
Frame3D(Canvas, Rect, Color, Color, BorderWidth);
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
if BevelInner=bvRaised then Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth)
else Frame3D(Canvas, Rect, BottomColor, TopColor, BevelWidth);
end;
..................

<Цитата>
{RASkov} (15.04.07 22:54) [2]

Но со "своими цветами" 3D эффекта не получишь... здесь не все просто так.... нужно подбирать "правильные" цвета.

<Цитата>
SkySpeed (15.04.07 23:40) [3]

to {RASkov}
Спасибо и на этом!

Но ведь в панели как-то реализовано эта фишка... только вот как?..

<Цитата>
SkySpeed (15.04.07 23:50) [4]

Насчёт правильных цветов понял, попрактиковался. Спасибо!

Осталось прорисовку исправить как-нибудь...

<Цитата>