Advance Pascal Script (DWS Extanded)
TGdImage
TGdImage- -
Description
Hierarchytype TGdImage= class(TPersistent)
property AUTOTRANSPARENT:Boolean;
property BITMAP:TBitmap;
property BRUSHCOLOR:String;
property BRUSHSTYLE:String;
property CANVAS:TCanvas;
property FONTCOLOR:String;
property FONTHEIGHT:Integer;
property FONTNAME:String;
property FONTSTYLE:String;
property ONLOAD:String;
property PENCOLOR:String;
property PENMODE:String;
property PENSTYLE:String;
property PENWIDTH:Integer;
property SIZEX:Integer;
property SIZEY:Integer;
property TRANSPARENT:Boolean;
property TRANSPARENTCOLOR:String;
procedure addGifFrame(v: Integer)
procedure basicDraw(script: String)
procedure clear
constructor Create(xsize: Integer; ysize: Integer)
constructor CreateFromBMP(fname: String)
constructor CreateFromFile(fname: String)
constructor CreateFromGif(fname: String)
constructor CreateFromJpeg(fname: String)
constructor CreateFromStr(str: String)
procedure draw(img: TGdImage; x: Integer; y: Integer; sx: Integer; sy: Integer)
procedure drawtext(x: Integer; y: Integer; txt: String)
procedure ellipse(x1: Integer; y1: Integer; x2: Integer; y2: Integer)
procedure fillellipse(x1: Integer; y1: Integer; x2: Integer; y2: Integer)
procedure fillRect(x1: Integer; y1: Integer; x2: Integer; y2: Integer)
function GifStr: String
function JpegStr: String
procedure line(x1: Integer; y1: Integer; x2: Integer; y2: Integer)
procedure lineTo(x: Integer; y: Integer)
procedure LoadFromFile(fname: String)
procedure LoadFromStr(str: String)
procedure logoDraw(script: String)
procedure moveTo(x: Integer; y: Integer)
function PNGStr: String
procedure rectangle(x1: Integer; y1: Integer; x2: Integer; y2: Integer)
procedure resizeTo(sx: Integer; sy: Integer)
procedure resizeToEx(sx: Integer; sy: Integer; bgcolor: String)
procedure SaveGifAnimate(fname: String)
procedure SaveToBmp(fname: String)
procedure SaveToGif(fname: String)
procedure SaveToJpeg(fname: String)
procedure SaveToPNG(fname: String)
end;
UP