iobjectcanvas.pas

iocopm3.04源码,一套很好的工控开发工具

  iDrawObject : TiDrawObject;
begin
  iDrawObject             := GetObject(Handle);
  iDrawObject.FontCaption := Caption;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectCaption(Handle: Integer): String;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontCaption;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectImageIndex(Handle, ImageIndex: Integer);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject             := GetObject(Handle);
  iDrawObject.ImageIndex  := ImageIndex;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectImageIndex(Handle: Integer): Integer;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.ImageIndex;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFont(Handle : Integer; Name : String; Size : Integer; Color : TColor; Bold, Italic, UnderLine, StrikeOut : Boolean);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontName      := Name;
  iDrawObject.FontSize      := Size;
  iDrawObject.FontColor     := Color;
  iDrawObject.FontBold      := Bold;
  iDrawObject.FontItalic    := Italic;
  iDrawObject.FontUnderLine := UnderLine;
  iDrawObject.FontStrikeOut := StrikeOut;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontBold(Handle: Integer; Bold: Boolean);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontBold      := Bold;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontColor(Handle: Integer; Color: TColor);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontColor     := Color;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontItalic(Handle: Integer; Italic: Boolean);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontItalic    := Italic;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontName(Handle: Integer; Name: String);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontName      := Name;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontSize(Handle, Size: Integer);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontSize      := Size;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontStrikOut(Handle: Integer; StrikeOut: Boolean);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontStrikeOut := StrikeOut;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectFontUnderLine(Handle: Integer; UnderLine: Boolean);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject               := GetObject(Handle);
  iDrawObject.FontUnderLine := UnderLine;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontBold(Handle: Integer): Boolean;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontBold;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontColor(Handle: Integer): TColor;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontColor;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontItalic(Handle: Integer): Boolean;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontItalic;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontName(Handle: Integer): String;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontName;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontSize(Handle: Integer): Integer;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontSize;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontStrikOut(Handle: Integer): Boolean;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontStrikeOut;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectFontUnderLine(Handle: Integer): Boolean;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.FontUnderLine;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPen(Handle: Integer; Color: TColor; Style: TPenStyle; Width: Integer);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject          := GetObject(Handle);
  iDrawObject.PenColor := Color;
  iDrawObject.PenStyle := Style;
  iDrawObject.PenWidth := Width;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPenColor(Handle: Integer; Color: TColor);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject          := GetObject(Handle);
  iDrawObject.PenColor := Color;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPenStyle(Handle: Integer; Style: TPenStyle);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject          := GetObject(Handle);
  iDrawObject.PenStyle := Style;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPenWidth(Handle, Width: Integer);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject          := GetObject(Handle);
  iDrawObject.PenWidth := Width;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectPenColor(Handle: Integer): TColor;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.PenColor;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectPenStyle(Handle: Integer): TPenStyle;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.PenStyle;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectPenWidth(Handle: Integer): Integer;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject := GetObject(Handle);
  Result := iDrawObject.PenWidth;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPosition(Handle: Integer; X, Y: Double);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  iDrawObject.X := X;
  iDrawObject.Y := Y;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPositionX(Handle: Integer; X: Double);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  iDrawObject.X := X;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectPositionY(Handle: Integer; Y: Double);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  iDrawObject.Y := Y;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectPositionX(Handle: Integer): Double;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  Result := iDrawObject.X;
end;
//*************************************************************************************************************************************
function TiObjectCanvas.GetObjectPositionY(Handle: Integer): Double;
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  Result := iDrawObject.Y;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectAngles(Handle: Integer; Start, Stop: Double);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  iDrawObject.StartAngle := Start;
  iDrawObject.StopAngle  := Stop;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectStartAngle(Handle: Integer; Value: Double);
var
  iDrawObject : TiDrawObject;
begin
  iDrawObject   := GetObject(Handle);
  iDrawObject.StartAngle := Value;
  NeedsRedraw;
end;
//*************************************************************************************************************************************
procedure TiObjectCanvas.SetObjectStopAngle(Handle: Integer; Value: Double);