[LobaS]

Очень нужна помощь, заранее спасибо: пишу курсовую, навтыкал туда картинок - всё равно смотрится блекло, решил оформить как-то пооригинальнее кнопки и столкнулся с проблемой, что текст в кэпшн батона не меняет цвета - всё время чёрный, я так понимаю там нужно какую-то опцию включить, подскажите пожалуйста какую.
ЗЫ если не затруднит скажите личные идеи, как можно действительно оригинально оформить кнопки.

[rain917]

Вариант №1
Вставляешь в любое место формы компоненту TXPManifest (в 7 версии она на странице Win32). И все приложение в run-time (при запуске) под XP резко меняется.

Вариант №2
Вместо кнопок кидаешь TLabel.

пишешь:
procedure TForm1.MyMouseEnter(Sender: TObject);
begin
if Sender.ClassType = TLabel then
with Sender as Tlabel do begin
Font.Style := Font.Style + [fsBold];
Font.Color := clHotLight;
end;
end;

procedure TForm1.MyMouseLeave(Sender: TObject);
begin
if Sender.ClassType = TLabel then
with Sender as Tlabel do begin
Font.Style := Font.Style - [fsBold];
Font.Color := clWindowText;
end;
end;

незабудь добавить
TForm1 = class(
...
public
procedure MyMouseEnter(Sender: TObject);
procedure MyMouseLeave(Sender: TObject);
....
end;

А дальше для всех псевдокнопок в инспекторе объектов выставляешь
события
OnMouseEnter как MyMouseEnter
OnMouseLeave как MyMouseLeave

запускаешь, наслаждаешься.

[LobaS]

Огромное спасибо Оч. класно получилось

[CAHbKA]

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

Очень нужна помощь, заранее спасибо: пишу курсовую, навтыкал туда картинок - всё равно смотрится блекло, решил оформить как-то пооригинальнее кнопки и столкнулся с проблемой, что текст в кэпшн батона не меняет цвета - всё время чёрный, я так понимаю там нужно какую-то опцию включить, подскажите пожалуйста какую.
ЗЫ если не затруднит скажите личные идеи, как можно действительно оригинально оформить кнопки.

А я прочитал предыдущий пост а не легче просто создать SpeedButton и там меняется и цвет текста и картинку вставить мона и ....

[rain917]

да, но так, по-студенчески. Быстро и просто.

[LobaS]

Вот ещё один вопрос возник - никогда раньше не сталкивался с Drag'n'Drop, интересует обычное перетаскивание Shape по форме, причём без дропа, т.е. пользователь зажал на шейпе левую кнопку мыши и пошёл его таскать по всей форме как это оформить, причём так, чтобы топ и лефт шейпа изменялись в зависимости от того, куда юзер перетащит объект?

[rain917]

На дурака

...
Draging : boolean;
DrOffs : TPoint;
...
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draging := True;
DrOffs.X := X;
DrOffs.Y := Y;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draging := False;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Draging then begin
Shape1.Left := Shape1.Left + (X-DrOffs.X);
Shape1.Top := Shape1.Top + (Y-DrOffs.Y);
end;
end;

проверку на левую/правую клавшу добавишь сам.

[LobaS]

ещё раз огромное спасибо!