UnityMan's questions

我正在尝试DrawCurve从 GDIPOBJ.pas 文件中调用一个函数。代码片段：

uses
  ..., GDIPAPI, GDIPOBJ;
...
const Points: array [0..3] of TGPPointF = (
    (X:  30.67; Y: 0),
    (X:  70.68; Y:  30),
    (X: 100.5; Y:  70),
    (X: 290.8; Y:  110));
var
  Pen: TGPPen;
  IGPG:  TGPGraphics;
begin
  IGPG := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create(clBlue,2);

  IGPG.DrawCurve(Pen, Points, 4);  //  !!!!! [Error] There is no overloaded version of 'DrawCurve' that can be called with these arguments !!!!!
end;

我们看一下GDIPOBJ.pas文件中对DrawCurve的描述：

function TGPGraphics.DrawCurve(pen: TGPPen; points: PGPPointF; count: Integer): TStatus;
  begin
    result := SetStatus(GdipDrawCurve(nativeGraphics,
                           pen.nativePen, points,
                           count));
  end;

在上面的函数中，我设置了 TGPPen (Pen), PGPPointF (Points), Integer (4)。怎么了？

我也试过直接通过API函数执行：

GdipDrawCurve(IGPG, Pen, Points, 4);

它对第三个参数发誓：

不兼容的类型：“Array”和“PGPPointF”

但是 Points 数组实际上由 PGPPointF 组成......

有两种形式。在第二种形式 - StringGrid，在设计中以各种方式装饰，配置等。任务是在操作 StringGrid 后在运行时快速将其恢复为原始形式。不希望以编程方式记住其状态以供后续恢复，因为 这是非常耗费人力的，所以我决定： a) 在更改之前保存 StringGrid 的状态；b) 更改后销毁 StringGrid；c) 重新创建（恢复）原始 StringGrid。

var
  Form1: TForm1;
  TempSG: TStringGrid;

implementation

{$R *.dfm}

procedure TForm1.SaveForm2SG1Click(Sender: TObject);
begin
  TempSG := Form2.SG1;
end;

procedure TForm1.DestroyForm2SG1Click(Sender: TObject);
begin
  if Form2.SG1 <> nil then FreeandNil(Form2.SG1);
end;

procedure TForm1.RestoreForm2SG1Click(Sender: TObject);
begin
  if Form2.SG1 = nil then
  begin
    Form2.SG1 := TempSG;        // ерунда, т.к. объекта нет!
    Form2.SG1.Parent := Form2;  // AV
  end;
end;

一般来说，我想了解如何保存 StringGrid 的状态，然后使用之前保存的状态动态创建一个新的 StringGrid？

PS最初动态创建带有所有属性的StringGrid，我会重复一遍，不感兴趣。关于其他事情的问题。