I made some changes on kzlazdesktop.pas to show the toolbars right.
Use only if your toolbuttons not shown!
procedure TKZLazDesktopInterface.SetupDefaultBars;
var aToolBarDeb, aToolBarStd : TToolbar; //SunyD
i,w: integer; //Sunyd
begin
with TKZLazDesktopInterface(Self) do
begin
if
(pnlSpeedButtons = nil)
then
Exit;
with pnlSpeedButtons do
begin
//Suny: Added from me
aToolBarStd :=TToolBar(FindChildControl('tbStandard'));
aToolBarStd.EdgeBorders:=[];
aToolBarStd.Wrapable:=false;
aToolBarStd.Align:=alNone;
w:=0;
for i:=0 to aToolBarStd.ControlCount-1 do
w:=w+aToolBarStd.Controls[i].Width;
aToolBarStd.SetBounds(BorderWidth,BorderWidth,w+2,aToolBarStd.ButtonHeight);
aToolBarDeb :=TToolBar(FindChildControl('tbViewDebug'));
aToolBarDeb.EdgeBorders:=[];
aToolBarDeb.Wrapable:=false;
aToolBarDeb.Align:=alNone;
w:=0;
for i:=0 to aToolBarDeb.ControlCount-1 do
w:=w+aToolBarDeb.Controls[i].Width;
aToolBarDeb.SetBounds(aToolBarStd.Left+aToolBarStd.Width,BorderWidth,w+2,aToolBarDeb.ButtonHeight);
//End ... Suny: Added from me
{Code from Raphael
TToolBar(FindChildControl('tbViewDebug')).Align := alLeft;
TToolBar(FindChildControl('tbStandard')).Align := alLeft;
}
Align := alClient;
Parent := pnMenu;
end;
if ComponentPageControl <> nil then
begin
{$IFDEF MSWINDOWS}
pnComponents.Height := GetSystemMetrics(SM_CYCAPTION) + 35;
{$ELSE}
pnComponents.Height := 75;
{$ENDIF}
ComponentPageControl.Parent := pnComponents;
end;
end;
end;
Recent
