111 lines
3.1 KiB
Plaintext
111 lines
3.1 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Convert To & Lossless Transform Demo: 1.0
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit frmSelection;
|
|
|
|
interface
|
|
|
|
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|
Buttons, ExtCtrls, ComCtrls;
|
|
|
|
type
|
|
TSelectionDialog = class ( TForm )
|
|
OKBtn: TButton;
|
|
CancelBtn: TButton;
|
|
GroupBox1: TGroupBox;
|
|
Edit1: TEdit;
|
|
UpDownSize: TUpDown;
|
|
Label2: TLabel;
|
|
ColorBoxColor1: TColorBox;
|
|
ColorBoxColor2: TColorBox;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
CheckBoxExtendedSelectionDrawing: TCheckBox;
|
|
GroupBox2: TGroupBox;
|
|
Label1: TLabel;
|
|
ColorBox1: TColorBox;
|
|
Label5: TLabel;
|
|
ColorBox2: TColorBox;
|
|
procedure OKBtnClick ( Sender: TObject );
|
|
procedure ColorBoxColor1Change ( Sender: TObject );
|
|
procedure ColorBoxColor2Change ( Sender: TObject );
|
|
procedure UpDownSizeChanging ( Sender: TObject;
|
|
var AllowChange: Boolean );
|
|
procedure CheckBoxExtendedSelectionDrawingClick ( Sender: TObject );
|
|
procedure ColorBox1Change(Sender: TObject);
|
|
procedure ColorBox2Change(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
SelectionDialog: TSelectionDialog;
|
|
|
|
implementation
|
|
|
|
uses FrmMain;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TSelectionDialog.OKBtnClick ( Sender: TObject );
|
|
begin with FormMain do
|
|
ImageENView1.SetSelectionGripStyle ( ColorBoxColor1.Selected,
|
|
ColorBoxColor2.Selected, bsSolid, UpDownSize.Position, CheckBoxExtendedSelectionDrawing.Checked );
|
|
end;
|
|
|
|
procedure TSelectionDialog.ColorBoxColor1Change ( Sender: TObject );
|
|
begin
|
|
with FormMain do begin
|
|
ImageENView1.SetSelectionGripStyle ( ColorBoxColor1.Selected,
|
|
ColorBoxColor2.Selected, bsSolid, UpDownSize.Position, CheckBoxExtendedSelectionDrawing.Checked );
|
|
end;
|
|
end;
|
|
|
|
procedure TSelectionDialog.ColorBoxColor2Change ( Sender: TObject );
|
|
begin
|
|
with FormMain do begin
|
|
ImageENView1.SetSelectionGripStyle ( ColorBoxColor1.Selected,
|
|
ColorBoxColor2.Selected, bsSolid, UpDownSize.Position, CheckBoxExtendedSelectionDrawing.Checked );
|
|
end;
|
|
end;
|
|
|
|
procedure TSelectionDialog.UpDownSizeChanging ( Sender: TObject;
|
|
var AllowChange: Boolean );
|
|
begin
|
|
with FormMain do
|
|
ImageENView1.SetSelectionGripStyle ( ColorBoxColor1.Selected,
|
|
ColorBoxColor2.Selected, bsSolid, UpDownSize.Position, CheckBoxExtendedSelectionDrawing.Checked );
|
|
end;
|
|
|
|
procedure TSelectionDialog.CheckBoxExtendedSelectionDrawingClick (
|
|
Sender: TObject );
|
|
begin
|
|
with FormMain do
|
|
ImageENView1.SetSelectionGripStyle ( ColorBoxColor1.Selected,
|
|
ColorBoxColor2.Selected, bsSolid, UpDownSize.Position, CheckBoxExtendedSelectionDrawing.Checked );
|
|
end;
|
|
|
|
procedure TSelectionDialog.ColorBox1Change(Sender: TObject);
|
|
begin
|
|
with FormMain do
|
|
begin
|
|
ImageENView1.SelColor1 := ColorBox1.Selected;
|
|
ImageENView1.SelColor2 := ColorBox2.Selected;
|
|
end;
|
|
end;
|
|
|
|
procedure TSelectionDialog.ColorBox2Change(Sender: TObject);
|
|
begin
|
|
with FormMain do
|
|
begin
|
|
ImageENView1.SelColor1 := ColorBox1.Selected;
|
|
ImageENView1.SelColor2 := ColorBox2.Selected;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|