Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Компанент кнопки-2   Найти похожие ветки 

 
mmms   (2005-06-13 17:23) [0]

Есть компанент от TButton, когда мышь над новой кнопкой, то шрифт кнопки меняется. Проблема  в том, что когда компанент "ложишь" на форму, шрифт изначально становится жирным. Можно ли это как то на уровне компанента исправить?


unit MdActiveBtn;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TMdActiveButton = class(TButton)
protected
  procedure MouseEnter (var Msg: TMessage);
    message cm_mouseEnter;
  procedure MouseLeave (var Msg: TMessage);
    message cm_mouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Md", [TMdActiveButton]);
end;

{ TMdActiveButton }

procedure TMdActiveButton.MouseEnter(var Msg: TMessage);
begin
Font.Style := Font.Style + [fsBold];
end;

procedure TMdActiveButton.MouseLeave(var Msg: TMessage);
begin
Font.Style := Font.Style - [fsBold];
end;

end.


Посколько 1й вопрос удалили (не понятно почему), 2й сегодня хотел спросить:

Ещё раз попытаю своё счастье, спросить про написание этого компанента. :)
Пишу (пытаюсь разобраться сам..) в компаненте
constructor TMdActiveButton.Create(AOwner:TComponent);
begin
 inherited create(AOwner);
 Font.Style := Font.Style - [fsBold];
end;

По идее, должно бы на форму ложиться с не жирным шрифтом, или хотя бы при запуске приложения быть с не жирным шрифтом (хотя при разработке кнопка сама приобретает жирный шрифт)... но все равно, ситуация не исправляется. Конечно можно ввйти из положения, писать в OnCreate формы
MdActiveButton1.Font.Style := Font.Style - [fsBold];
И т.д. по всем кнопкам, но это как то не красиво... Заранее благодарю за любой совет.


 
Defunct ©   (2005-06-13 18:25) [1]

procedure TMdActiveButton.MouseEnter(var Msg: TMessage);
begin
 if not (csDesigning in ComponentState) then
    Font.Style := Font.Style + [fsBold];
end;

procedure TMdActiveButton.MouseLeave(var Msg: TMessage);
begin
 if not (csDesigning in ComponentState) then
    Font.Style := Font.Style - [fsBold];
end;


Не проверял, неохота мусорить на палитре ;>


 
mmms   (2005-06-13 19:35) [2]

Defunct, спасибо! Оттестирую, сообщу результат!



Страницы: 1 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.039 c
1-1118394983
Lenik
2005-06-10 13:16
2005.07.11
Как считать новое значение из DateTimePicker


3-1117083371
Iova
2005-05-26 08:56
2005.07.11
Можно ли какнибудь избавться от связей?


4-1116310493
Zhenja
2005-05-17 10:14
2005.07.11
Меняем частоту обновления экрана


3-1117434692
silvestr
2005-05-30 10:31
2005.07.11
Как подключиться к удалёной базе MS SQL 2000 - MSDE


14-1118497754
Alexander Panov
2005-06-11 17:49
2005.07.11
"Социократия" - реальность или утопия? Продолжение обсуждения.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский