david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
45 lines
1.1 KiB
ObjectPascal
45 lines
1.1 KiB
ObjectPascal
unit RibbonNotepadDemoGallerySetup;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls;
|
|
|
|
type
|
|
TColorDialogSetupForm = class(TForm)
|
|
btnOK: TButton;
|
|
btnCancel: TButton;
|
|
chkRemoveHorizontalItemPadding: TCheckBox;
|
|
chkRemoveVerticalItemPadding: TCheckBox;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
function GetSettings(var RemoveHorizontalItemPadding,
|
|
RemoveVerticalItemPadding: Boolean): Boolean;
|
|
end;
|
|
|
|
var
|
|
ColorDialogSetupForm: TColorDialogSetupForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
function TColorDialogSetupForm.GetSettings(var RemoveHorizontalItemPadding,
|
|
RemoveVerticalItemPadding: Boolean): Boolean;
|
|
begin
|
|
chkRemoveHorizontalItemPadding.Checked := RemoveHorizontalItemPadding;
|
|
chkRemoveVerticalItemPadding.Checked := RemoveVerticalItemPadding;
|
|
|
|
Result := ShowModal = mrOK;
|
|
|
|
if Result then
|
|
begin
|
|
RemoveHorizontalItemPadding := chkRemoveHorizontalItemPadding.Checked;
|
|
RemoveVerticalItemPadding := chkRemoveVerticalItemPadding.Checked;
|
|
end;
|
|
end;
|
|
|
|
end.
|