Мой вариант управления размером тулбара :)

← →
eSKey (2002-05-16 10:50) [0]

Не все же вопросы писать, надо и ответы иногда ;) Если помните, я спрашивал как правильно подогнать размер тулбара, не получалось через Width & Heigth. Оказалось, что на тестовых компах стоит не только высокое разрешение, но и крупных шрифт в настройках экрана. Соответственно рабочий код (проверен сейчас):

//Images - ImageList кнопок Toolbar"a //ViewR - Toolbutton с самым длинным кэпшн, при Autosize все кнопки будут одинаковы по ширине procedure TMainForm.FormCreate(Sender: TObject); yCaption:=getsystemmetrics(SM_CYCAPTION); yFrame:= getsystemmetrics(SM_CYFRAME); yFrame:=yFrame*2; Xfactor:=Images.Height+MyToolBar.Canvas.TextHeight(ViewR.Caption); TBXSize:=MyToolBar.Canvas.TextWidth(ViewR.Caption)+getsystemmetrics(SM_CXFRAME)*2; minYsize:=Xfactor+yFrame; minYsize:=yFrame+yCaption+minYsize; minXsize:=MyToolBar.ButtonCount*TBXSize;
Возможно такой код выглядит не слишком красиво и очевидно, однако размеры получаются абсолютно те, что нужно (могу выложить скриншот).

Вопрос по ходу: как программно определить системные настройки масштабирования шрифта (Дисплей::Свойства::Настройка::[Дополнительно])?

ЗЫ: Спасибо за вчерашний совет по тредам! Надо было мне выложить весь текст конструктора, там был еще один баг с недосыпа :) - CopyFrom в несозданный стрим (запутала фраза из хелпа - Using CopyFrom eliminates the need for the user to create, read into, write from, and free a buffer when copying data.).

← →
Игорь Шевченко © (2002-05-16 11:09) [1]

> Вопрос по ходу: как программно определить системные настройки
> масштабирования шрифта (Дисплей::Свойства::Настройка::[Дополнительно])?

В Delphi - Screen.PixelsPerInch
Через API, соответсвенно,
GetDeviceCaps(DC, LOGPIXELSY);

Мой вариант управления размером тулбара :) Найти похожие ветки