Steema Central

Code: Select all

uses
  DMUtil;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues();
  Image1.Picture.Bitmap:=Chart1.TeeCreateBitmap;
  Chart1.Visible:=false;
  Panel1.Left:=Chart1.Left;
  Panel1.Top:=Chart1.Top;
  Panel1.Width:=Chart1.Width;
  Panel1.Height:=Chart1.Height;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  aBmp: TBitmap;
begin
  // Detect a drag with any button
  if DragDetectEx(Panel1.Handle, POINT(X,Y), Button) then
  begin
    // Tell the graphic source which button we got.
    DMGraphicSource1.MouseButton := Button;

    // Make a temporary bitmap
    aBMP := TBitmap.create;
    try
      // Assign the (JPEG) graphic to the bitmap, which converts the
      // JPEG to a bitmap.
      aBmp.Assign(Image1.Picture.Graphic);

      // Now, we have a bitmap, so assign it to the graphic source's picture
      DMGraphicSource1.Picture.Graphic := aBmp;

      // Now do the drag!
      DMGraphicSource1.Execute;

      // In case we made a big bitmap, let it go.  Otherwise, it will live
      // on unnecessarily in the Picture property of the TDMGraphicSource.
      DMGraphicSource1.Picture := nil;
    finally
      // Clean up.
      aBmp.Free;
    end;
  end;
end;