Как вставить красивую кнопку в программу

Опубиковано: 24.05.2008 г., автор: , просмотров: 81689

В этой статье, я хочу показать вам, как сделать вашу программу более красивой и отойти от серого фона и серых кнопок. Вы наверно подумали, что сейчас мы будем устанавливать какой-нибудь дополнительный компонент. Нет, нет и еще раз нет, я предлагаю вам другое решение этой проблемы, ну а делать так или нет решать вам..

Итак, решение довольно простое - это использование вместо компонента button (кнопка) компонент Image, у него есть все основные свойства, которые есть у кнопки. Сразу возникает резонный вопрос, почему не кинуть на форму компонент bitbtn и просто не наложить на него изображение? Конечно, можно сделать и так, но изображение, которое можно наложить на bitbtn может быть только формата bmp что в некоторых случаях не нам не подходит.

Итак, качаем из раздела графика нужный архив, в котором вы найдете 2 файла. Первый имеет формат jpg, а второй psd (фотошоповский формат). Если изображение, является большим или просто не подходит под дизайн вашей программы, открываем второй файл фотошопом и вносим нужные коррективы.

изменение размера изображения

Изменяем размер изображения.

Выбираем инструмент Правка текста (горизонтальный текст), кликаем по надписи текст и меняем текст на свой.

После чего сохраняем картинку в jpg. Так изменения внесены, давайте теперь разберемся со вставкой графики. Я буду рассказывать на примере кнопки. Кидаем на форму компонент Image с закладки Additional, в свойстве Picture задаем путь к картинке с кнопкой. Вот и все если теперь создать событие OnClick по компоненту Image то мы получим вполне красивую кнопку.

Пример использования кнопок в программе Delphi

Сравните теперь обычные серые кнопки и те которые мы только что вставили. Разница очевидна!

Вот и все довольно просто и со вкусом. На последок хочу сказать, что если вы хотя бы чуть-чуть владеете фотошопом то для вас не составит труда создать графику для вашей программы своими силами. Получается что то похожее на изготовление трафаретов, сделали один раз заготовку нужной кнопки, а затем меняете цвета, стиль текста и получаете уже новую графику. А я в свою очередь буду очень рад, если вы поделитесь ею со мной. Лучшие проекты я обязательно представлю на сайте.

P.S. Вы можете перепечатывать данную статью при условии сохранения авторского блока и ссылки на http://delphiexpert.ru как на сайт - источник.



Похожие материалы

Последние из рубрики

Cool_prime 07 Oct 2008 в 00:00 #
Но мне игтересно как сделать свой власний стиль некоторих компонентах например в Memo?
Рустам 28 Sep 2008 в 00:00 #
А ещё бы добавить возможность, чтобы кнопка реагировала на нажатие. Так думаю будет смотреться прикольнее...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left + 1;
Image1.Top := Image1.Top + 1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left - 1;
Image1.Top := Image1.Top - 1;
end;
Рустам 28 Sep 2008 в 00:00 #
А ещё бы добавить возможность, чтобы кнопка реагировала на нажатие. Так думаю будет смотреться прикольнее...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left + 1;
Image1.Top := Image1.Top + 1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left - 1;
Image1.Top := Image1.Top - 1;
end;
Рустам 28 Sep 2008 в 00:00 #
А ещё бы добавить возможность, чтобы кнопка реагировала на нажатие. Так думаю будет смотреться прикольнее...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left + 1;
Image1.Top := Image1.Top + 1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left - 1;
Image1.Top := Image1.Top - 1;
end;
Валера 14 Sep 2008 в 00:00 #
Если вставить такую кнопку надо будет каждый элемент программы разукрашивать.

ОтменитьДобавить комментарий