спасиб всем сам как-то разобрался с присобачиванием маски к сохраняемому файлу , а вот с кроллбаром так и не понял к чему привязать scrollwidth , но нашел вот это
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i := 0 to LB1.Items.Count - 1 do
if MaxWidth < LB1.Canvas.TextWidth(LB1.Items.Strings[i]) then
MaxWidth := LB1.Canvas.TextWidth(LB1.Items.Strings[i]);
SendMessage(LB1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;
Приведённый код определяет ширину в пикселях самой длинной строки списка. Затем он использует сообщение LB_SETHORIZONTALEXTENT, чтобы установить ширину горизонтального скролбара в пикселях. Два дополнительных пикселя добавленные к MaxWidth служат для стрелки в правом углу list box-а.
хотя мне кажется здесь можно и попроще сделать , но scrollwidth - ширина в пикселях , что явно усложняет
И да , парой под рукой нет справочника ,а с телефона вычитывать особого удовольствия не доставляет , особенно когда ищешь не зная что именно тебе искать... тем более написать два слова "свой-во DefaultEx" не требует много времени и затрат