mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
30 lines
522 B
ObjectPascal
30 lines
522 B
ObjectPascal
unit KASToolPanel;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Toolwin;
|
|
|
|
type
|
|
TKASToolPanel = class(TToolWindow)
|
|
published
|
|
property Align default alNone;
|
|
property AutoSize;
|
|
property EdgeBorders default [ebTop];
|
|
property EdgeInner;
|
|
property EdgeOuter;
|
|
property Visible;
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('KASComponents',[TKASToolPanel]);
|
|
end;
|
|
|
|
end.
|