Board index » delphi » Re: Disabling the Gradient Toolbars

2008-02-26 09:03:35 PM
delphi88
On Tue, 26 Feb 2008 14:10:10 +0200, Farshad writes:
--
Marc Rohloff [TeamB]
marc -at- marc rohloff -dot- com
 

"Marc Rohloff [TeamB]"
 

Farshad writes:
--
 

Farshad sayz:
project, compile, install the package.
unit IDEHacks;
interface
uses
Windows, Classes, Controls, SysUtils, ActnMenus, Graphics, Dialogs,
ExtCtrls, ToolWin, ActnMan, Forms;
type
TIDEHacks = class
public
class procedure ExecuteHack;
end;
procedure Register;
implementation
procedure Register;
begin
TIDEHacks.ExecuteHack;
end;
const
MAIN_WND_CLASS = 'TAppBuilder';
EDIT_WND_CLASS = 'TEditControl';
{ TIDEHacks }
class procedure TIDEHacks.ExecuteHack;
var
i: integer;
IDE: HWnd;
IDEClass: TWinControl;
MainMenu: TActionMainMenuBar;
ControlBar: TControlBar;
begin
// Find IDE
IDE := FindWindow(MAIN_WND_CLASS, nil);
IDEClass := FindControl(IDE);
if (IDEClass = nil) then
Exit;
MainMenu := nil;
ControlBar := nil;
// FInd control bar
for i := 0 to IDEClass.ControlCount - 1 do
begin
if (IDEClass.Controls[i] is TControlBar) then
begin
ControlBar := TControlBar(IDEClass.Controls[i]);
ControlBar.DrawingStyle := dsNormal;
end;
end;
if (ControlBar = nil) then
Exit;
// Find main menu
for i := 0 to ControlBar.ControlCount - 1 do
begin
if (ControlBar.Controls[i] is TActionMainMenuBar) then
begin
MainMenu := TActionMainMenuBar(ControlBar.Controls[i]);
Break;
end;
end;
if (MainMenu = nil) then
Exit;
MainMenu.ActionManager.Style := ActionBarStyles.Style[1];
MainMenu.AnimationStyle := asUnFold;
MainMenu.AnimateDuration := 125;
end;
end.