d8cc948b6a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
83 lines
1.9 KiB
ObjectPascal
83 lines
1.9 KiB
ObjectPascal
{ This example will create 9 DragColorPlugins and allow the user to drag the
|
|
items with the right mouse button down.
|
|
The Items show different MouseCursors to identify the options
|
|
It also allows the change of the size using the mouse wheel.
|
|
}
|
|
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
|
|
mvMapViewer, mvPluginCommon, uDragColoredItemPlugin;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
CheckBox1: TCheckBox;
|
|
MapView: TMapView;
|
|
MvPluginManager: TMvPluginManager;
|
|
Panel1: TPanel;
|
|
procedure CheckBox1Change(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TMainForm }
|
|
const
|
|
PluginCount = 9;
|
|
PluginColors : array[0..PluginCount-1] of TColor = (
|
|
clFuchsia,clRed,$ff8c00,clYellow,clLime,clGreen,clNavy,clBlue,clAqua
|
|
);
|
|
PlugInMouseCursors : array[0..PluginCount-1] of TCursor = (
|
|
crCross,crDrag, crNoDrop, crHSplit,
|
|
crVSplit, crMultiDrag, crSQLWait, crNo,
|
|
crSize
|
|
);
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
var
|
|
lDragColoredItemPlugin : TDragColoredItemPlugin;
|
|
i: Integer;
|
|
begin
|
|
MapView.Active := true;
|
|
for i := 0 to High(PluginColors) do
|
|
begin
|
|
lDragColoredItemPlugin := TDragColoredItemPlugin.Create(Self);
|
|
lDragColoredItemPlugin.Color := PluginColors[i];
|
|
lDragColoredItemPlugin.MouseCursor := PlugInMouseCursors[i];
|
|
lDragColoredItemPlugin.ShowCaption := CheckBox1.Checked;
|
|
lDragColoredItemPlugin.MapView := MapView;
|
|
MvPluginManager.AddPlugin(lDragColoredItemPlugin);
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.CheckBox1Change(Sender: TObject);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
for i := 0 to MvPluginManager.Count-1 do
|
|
begin
|
|
if MvPluginManager.Items[i] is TDragColoredItemPlugin then
|
|
TDragColoredItemPlugin(MvPluginManager.Items[i]).ShowCaption:= CheckBox1.Checked;
|
|
end;
|
|
MapView.Invalidate;
|
|
end;
|
|
|
|
end.
|
|
|