[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]

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

[LobaS]

И снова нужен хелп
Нужно создать массив объектов Image, раньше работал в VB, там насколько помню всё было просто, нужно было только index менять, а тут пробую - не получается

[4kusNick]

TImageList (на вкладке Win32) подойдет?

[LobaS]

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

[ilang]

Ну вообще-то менять картинки в TImageList можно и в RunTime. Но картинки обязательно должны быть одинакового размера.
Я бы тебе порекомендовал использовать класс TList. Это список (читай - динамический массив) указателей. В нем реализованы самые основные действия (добавить, удалить, переместить и т. д.).

[LobaS]

Вот только что пытался сделать вот так вот:

procedure TForm1.Button1Click(Sender: TObject);
var imagesss:array[1..10] of TButton;
i:integer;
begin
For i:=1 to 5 do
begin
imagesss[i].create(Self);
with imagesss[i] do begin
parent:=self;
caption:='Кнопка';
tag:=i;
top:=i*30;
self.InsertControl(Imagesss[i]);
end;
end;
end;

После нажатия на кнопку выдаёт ошибку Project **** raised exception class ****.... Пробовал Trace Into - программа стопорится вот на этой строке: imagesss[i].create(Self); в чём может быть дело и как это исправить?

[ilang]

Ну конечно будет ошибка. Ты пытаешься вызвать метод еще не существующего объекта. Создавать объект нужно вызовом метода класса, например:

Код:

var MyObject : TSomeClass;
begin
  MyObject := TSomeClass.Create
end;

А после завершения работы обязательно освободи память

Код:

MyObject.Free

[LobaS]

всё работает, спасибо! вот только память не освобождается - у меня массив назван kletki, так вот, строку kletki.free не воспринимает, пишет, что ошибка в программном коде может я что-то не так делаю?