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

Вниз

Ширина Caption у TButton   Найти похожие ветки 

 
ilg ©   (2002-08-05 11:44) [0]

Есть кнопка TButton, которая в разные моменты выполняет различные функции и, соответственно, имеет разные заголовки (Caption). Как сделать, чтобы при изменении Caption, ширина кнопки менялась соответственно ширине текста? Другими словами, как узнать ширину Caption в пикселях?
Заранее, большое спасибо!


 
Виктор Щербаков ©   (2002-08-05 11:52) [1]

procedure TForm1.Button1Click(Sender: TObject);
var DC: HDC;
ButtonCanvas: TCanvas;
begin
DC := GetDC(Button1.Handle);
ButtonCanvas := TCanvas.Create;
try
ButtonCanvas.Handle := DC;
Caption := IntToStr(ButtonCanvas.TextWidth(Button1.Caption));
finally
ButtonCanvas.Free;
end;
end;


 
Skier ©   (2002-08-05 12:03) [2]

>ilg


procedure TForm1.Button2Click(Sender: TObject);


procedure _AdjustSize(const AButton : TButton);
var
ACanvas : TCanvas;
ADC : HDC;
begin
if AButton = nil then Exit;
ACanvas := TCanvas.Create;
ADC := GetDC(AButton.Handle);
try
ACanvas.Handle := ADC;
AButton.Width := ACanvas.TextWidth(AButton.Caption) + 2 *
GetSystemMetrics(SM_CXBORDER);
finally
ACanvas.Free;
ReleaseDC(AButton.Handle, ADC);
end; //try
end; //_AdjustSize


begin
_AdjustSize(Button1);
end;


 
Виктор Щербаков ©   (2002-08-05 12:08) [3]

Мда, а ReleaseDC то я и забыл :(



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
1-48088
Blacki
2002-08-03 22:56
2002.08.15
Сохранение в Gif


6-48238
KPV-10k
2002-05-24 21:18
2002.08.15
Опять про TServerSocket и TClientSocket...


14-48265
Sergo
2002-07-17 07:26
2002.08.15
Помехи


1-48133
Чайник2
2002-08-01 07:15
2002.08.15
CD-ROM


14-48313
AlexRya
2002-07-22 22:43
2002.08.15
Как изменить меню загрузки?