![]() |
#1
|
|||
|
|||
![]()
Hi,
I made a TDBNavigator descendent class that can be vertical too, but its width is 200 mininum, even if i rewrte the CalcMinSize function. Does anyone know what should i do? Thank u very much, Dirso |
#2
|
|||
|
|||
![]()
It isn't simple because TDBNavigator has private property MinBtnSize (type TPoint), and procedure InitButtons set this property on MinBtnSize:=Point(20,18);
1. If you want change it you have to change values into InitButtons and rebuild all DBCtrls library. 2. The simplest will be add dbcrtls.pas to your project, change parameter MinBtnSize and create DBNavigator in run time var YourNavigator:TDBNavigator; begin YourNavigator:=TDBNavigator.Create(Form1); YourNavigator.VisibleButtons:=[nbFirst,nbNext,nbDelete]; ..... ..... YourNavigator.Destroy; end; 3. Because you have all (10) visible buttons Delphi set minimal width on 20*10=200 (CalcMinSize calculate this value). Maybe you don't have to use all buttons - > f.e 5*20=100 <cr>Accept if it helps</cr> |
![]() |
Thread Tools | |
Display Modes | |
|
|