2846 lines
83 KiB
ObjectPascal
2846 lines
83 KiB
ObjectPascal
library GraphABC;
|
||
|
||
#apptype windows
|
||
#reference 'System.Windows.Forms.dll'
|
||
#reference 'System.Drawing.dll'
|
||
//#savepcu false
|
||
|
||
interface
|
||
|
||
uses
|
||
System,
|
||
System.Drawing,
|
||
System.Windows.Forms,
|
||
System.Drawing.Drawing2D;
|
||
|
||
type
|
||
/// Ňčď öâĺňŕ
|
||
Color = System.Drawing.Color;
|
||
/// Ňčď čńęëţ÷ĺíč˙ GraphABC
|
||
GraphABCException = class(Exception) end;
|
||
/// Ňčď ňî÷ęč
|
||
Point = System.Drawing.Point;
|
||
|
||
var
|
||
clMoneyGreen: Color;
|
||
|
||
const
|
||
// Default graph window size
|
||
defaultWindowWidth = 640;
|
||
defaultWindowHeight = 480;
|
||
|
||
// Color constants
|
||
clAquamarine = Color.Aquamarine; clAzure = Color.Azure;
|
||
clBeige = Color.Beige; clBisque = Color.Bisque;
|
||
clBlack = Color.Black; clBlanchedAlmond = Color.BlanchedAlmond;
|
||
clBlue = Color.Blue; clBlueViolet = Color.BlueViolet;
|
||
clBrown = Color.Brown; clBurlyWood = Color.BurlyWood;
|
||
clCadetBlue = Color.CadetBlue; clChartreuse = Color.Chartreuse;
|
||
clChocolate = Color.Chocolate; clCoral = Color.Coral;
|
||
clCornflowerBlue = Color.CornflowerBlue; clCornsilk = Color.Cornsilk;
|
||
clCrimson = Color.Crimson; clCyan = Color.Cyan;
|
||
clDarkBlue = Color.DarkBlue; clDarkCyan = Color.DarkCyan;
|
||
clDarkGoldenrod = Color.DarkGoldenrod; clDarkGray = Color.DarkGray;
|
||
clDarkGreen = Color.DarkGreen; clDarkKhaki = Color.DarkKhaki;
|
||
clDarkMagenta = Color.DarkMagenta; clDarkOliveGreen = Color.DarkOliveGreen;
|
||
clDarkOrange = Color.DarkOrange; clDarkOrchid = Color.DarkOrchid;
|
||
clDarkRed = Color.DarkRed; clDarkTurquoise = Color.DarkTurquoise;
|
||
clDarkSeaGreen = Color.DarkSeaGreen; clDarkSlateBlue = Color.DarkSlateBlue;
|
||
clDarkSlateGray = Color.DarkSlateGray; clDarkViolet = Color.DarkViolet;
|
||
clDeepPink = Color.DeepPink; clDarkSalmon = Color.DarkSalmon;
|
||
clDeepSkyBlue = Color.DeepSkyBlue; clDimGray = Color.DimGray;
|
||
clDodgerBlue = Color.DodgerBlue; clFirebrick = Color.Firebrick;
|
||
clFloralWhite = Color.FloralWhite; clForestGreen = Color.ForestGreen;
|
||
clFuchsia = Color.Fuchsia; clGainsboro = Color.Gainsboro;
|
||
clGhostWhite = Color.GhostWhite; clGold = Color.Gold;
|
||
clGoldenrod = Color.Goldenrod; clGray = Color.Gray;
|
||
clGreen = Color.Green; clGreenYellow = Color.GreenYellow;
|
||
clHoneydew = Color.Honeydew; clHotPink = Color.HotPink;
|
||
clIndianRed = Color.IndianRed; clIndigo = Color.Indigo;
|
||
clIvory = Color.Ivory; clKhaki = Color.Khaki;
|
||
clLavender = Color.Lavender; clLavenderBlush = Color.LavenderBlush;
|
||
clLawnGreen = Color.LawnGreen; clLemonChiffon = Color.LemonChiffon;
|
||
clLightBlue = Color.LightBlue; clLightCoral = Color.LightCoral;
|
||
clLightCyan = Color.LightCyan; clLightGray = Color.LightGray;
|
||
clLightGreen = Color.LightGreen; clLightGoldenrodYellow = Color.LightGoldenrodYellow;
|
||
clLightPink = Color.LightPink; clLightSalmon = Color.LightSalmon;
|
||
clLightSeaGreen = Color.LightSeaGreen; clLightSkyBlue = Color.LightSkyBlue;
|
||
clLightSlateGray = Color.LightSlateGray; clLightSteelBlue = Color.LightSteelBlue;
|
||
clLightYellow = Color.LightYellow; clLime = Color.Lime;
|
||
clLimeGreen = Color.LimeGreen; clLinen = Color.Linen;
|
||
clMagenta = Color.Magenta; clMaroon = Color.Maroon;
|
||
clMediumBlue = Color.MediumBlue; clMediumOrchid = Color.MediumOrchid;
|
||
clMediumAquamarine = Color.MediumAquamarine; clMediumPurple = Color.MediumPurple;
|
||
clMediumSeaGreen = Color.MediumSeaGreen; clMediumSlateBlue = Color.MediumSlateBlue;
|
||
clPlum = Color.Plum; clMistyRose = Color.MistyRose;
|
||
clNavy = Color.Navy; clMidnightBlue = Color.MidnightBlue;
|
||
clMintCream = Color.MintCream; clMediumSpringGreen = Color.MediumSpringGreen;
|
||
clMoccasin = Color.Moccasin; clNavajoWhite = Color.NavajoWhite;
|
||
clMediumTurquoise = Color.MediumTurquoise; clOldLace = Color.OldLace;
|
||
clOlive = Color.Olive; clOliveDrab = Color.OliveDrab;
|
||
clOrange = Color.Orange; clOrangeRed = Color.OrangeRed;
|
||
clOrchid = Color.Orchid; clPaleGoldenrod = Color.PaleGoldenrod;
|
||
clPaleGreen = Color.PaleGreen; clPaleTurquoise = Color.PaleTurquoise;
|
||
clPaleVioletRed = Color.PaleVioletRed; clPapayaWhip = Color.PapayaWhip;
|
||
clPeachPuff = Color.PeachPuff; clPeru = Color.Peru;
|
||
clPink = Color.Pink; clMediumVioletRed = Color.MediumVioletRed;
|
||
clPowderBlue = Color.PowderBlue; clPurple = Color.Purple;
|
||
clRed = Color.Red; clRosyBrown = Color.RosyBrown;
|
||
clRoyalBlue = Color.RoyalBlue; clSaddleBrown = Color.SaddleBrown;
|
||
clSalmon = Color.Salmon; clSandyBrown = Color.SandyBrown;
|
||
clSeaGreen = Color.SeaGreen; clSeaShell = Color.SeaShell;
|
||
clSienna = Color.Sienna; clSilver = Color.Silver;
|
||
clSkyBlue = Color.SkyBlue; clSlateBlue = Color.SlateBlue;
|
||
clSlateGray = Color.SlateGray; clSnow = Color.Snow;
|
||
clSpringGreen = Color.SpringGreen; clSteelBlue = Color.SteelBlue;
|
||
clTan = Color.Tan; clTeal = Color.Teal;
|
||
clThistle = Color.Thistle; clTomato = Color.Tomato;
|
||
clTransparent = Color.Transparent; clTurquoise = Color.Turquoise;
|
||
clViolet = Color.Violet; clWheat = Color.Wheat;
|
||
clWhite = Color.White; clWhiteSmoke = Color.WhiteSmoke;
|
||
clYellow = Color.Yellow; clYellowGreen = Color.YellowGreen;
|
||
|
||
// Virtual Key Codes
|
||
VK_Back = 8; VK_Tab = 9;
|
||
VK_LineFeed = 10; VK_Enter = 13;
|
||
VK_Return = 13; VK_ShiftKey = 16; VK_ControlKey = 17;
|
||
VK_Menu = 18; VK_Pause = 19; VK_CapsLock = 20;
|
||
VK_Capital = 20;
|
||
VK_Space = 32;
|
||
VK_Prior = 33; VK_PageUp = 33; VK_PageDown = 34;
|
||
VK_Next = 34; VK_End = 35; VK_Home = 36;
|
||
VK_Left = 37; VK_Up = 38; VK_Right = 39;
|
||
VK_Down = 40; VK_Select = 41; VK_Print = 42;
|
||
VK_Snapshot = 44; VK_PrintScreen = 44;
|
||
VK_Insert = 45; VK_Delete = 46; VK_Help = 47;
|
||
VK_A = 65; VK_B = 66;
|
||
VK_C = 67; VK_D = 68; VK_E = 69;
|
||
VK_F = 70; VK_G = 71; VK_H = 72;
|
||
VK_I = 73; VK_J = 74; VK_K = 75;
|
||
VK_L = 76; VK_M = 77; VK_N = 78;
|
||
VK_O = 79; VK_P = 80; VK_Q = 81;
|
||
VK_R = 82; VK_S = 83; VK_T = 84;
|
||
VK_U = 85; VK_V = 86; VK_W = 87;
|
||
VK_X = 88; VK_Y = 89; VK_Z = 90;
|
||
VK_LWin = 91; VK_RWin = 92; VK_Apps = 93;
|
||
VK_Sleep = 95; VK_NumPad0 = 96; VK_NumPad1 = 97;
|
||
VK_NumPad2 = 98; VK_NumPad3 = 99; VK_NumPad4 = 100;
|
||
VK_NumPad5 = 101; VK_NumPad6 = 102; VK_NumPad7 = 103;
|
||
VK_NumPad8 = 104; VK_NumPad9 = 105; VK_Multiply = 106;
|
||
VK_Add = 107; VK_Separator = 108; VK_Subtract = 109;
|
||
VK_Decimal = 110; VK_Divide = 111; VK_F1 = 112;
|
||
VK_F2 = 113; VK_F3 = 114; VK_F4 = 115;
|
||
VK_F5 = 116; VK_F6 = 117; VK_F7 = 118;
|
||
VK_F8 = 119; VK_F9 = 120; VK_F10 = 121;
|
||
VK_F11 = 122; VK_F12 = 123; VK_NumLock = 144;
|
||
VK_Scroll = 145; VK_LShiftKey = 160; VK_RShiftKey = 161;
|
||
VK_LControlKey = 162; VK_RControlKey = 163; VK_LMenu = 164;
|
||
VK_RMenu = 165;
|
||
VK_KeyCode = 65535; VK_Shift = 65536; VK_Control = 131072;
|
||
VK_Alt = 262144; VK_Modifiers = -65536;
|
||
|
||
// Pen style constants
|
||
psSolid = DashStyle.Solid;
|
||
psClear = DashStyle.Custom;
|
||
psDash = DashStyle.Dash;
|
||
psDot = DashStyle.Dot;
|
||
psDashDot = DashStyle.DashDot;
|
||
psDashDotDot = DashStyle.DashDotDot;
|
||
|
||
// Pen mode constants
|
||
pmCopy = 0;
|
||
pmNot = 1;
|
||
|
||
// Brush hatch type constants
|
||
bhHorizontal = HatchStyle.Horizontal;
|
||
bhMin = HatchStyle.Min;
|
||
bhVertical = HatchStyle.Vertical;
|
||
bhForwardDiagonal = HatchStyle.ForwardDiagonal;
|
||
bhBackwardDiagonal = HatchStyle.BackwardDiagonal;
|
||
bhCross = HatchStyle.Cross;
|
||
bhLargeGrid = HatchStyle.LargeGrid;
|
||
bhMax = HatchStyle.Max;
|
||
bhDiagonalCross = HatchStyle.DiagonalCross;
|
||
bhPercent05 = HatchStyle.Percent05;
|
||
bhPercent10 = HatchStyle.Percent10;
|
||
bhPercent20 = HatchStyle.Percent20;
|
||
bhPercent25 = HatchStyle.Percent25;
|
||
bhPercent30 = HatchStyle.Percent30;
|
||
bhPercent40 = HatchStyle.Percent40;
|
||
bhPercent50 = HatchStyle.Percent50;
|
||
bhPercent60 = HatchStyle.Percent60;
|
||
bhPercent70 = HatchStyle.Percent70;
|
||
bhPercent75 = HatchStyle.Percent75;
|
||
bhPercent80 = HatchStyle.Percent80;
|
||
bhPercent90 = HatchStyle.Percent90;
|
||
bhLightDownwardDiagonal = HatchStyle.LightDownwardDiagonal;
|
||
bhLightUpwardDiagonal = HatchStyle.LightUpwardDiagonal;
|
||
bhDarkDownwardDiagonal = HatchStyle.DarkDownwardDiagonal;
|
||
bhDarkUpwardDiagonal = HatchStyle.DarkUpwardDiagonal;
|
||
bhWideDownwardDiagonal = HatchStyle.WideDownwardDiagonal;
|
||
bhWideUpwardDiagonal = HatchStyle.WideUpwardDiagonal;
|
||
bhLightVertical = HatchStyle.LightVertical;
|
||
bhLightHorizontal = HatchStyle.LightHorizontal;
|
||
bhNarrowVertical = HatchStyle.NarrowVertical;
|
||
bhNarrowHorizontal = HatchStyle.NarrowHorizontal;
|
||
bhDarkVertical = HatchStyle.DarkVertical;
|
||
bhDarkHorizontal = HatchStyle.DarkHorizontal;
|
||
bhDashedDownwardDiagonal = HatchStyle.DashedDownwardDiagonal;
|
||
bhDashedUpwardDiagonal = HatchStyle.DashedUpwardDiagonal;
|
||
bhDashedHorizontal = HatchStyle.DashedHorizontal;
|
||
bhDashedVertical = HatchStyle.DashedVertical;
|
||
bhSmallConfetti = HatchStyle.SmallConfetti;
|
||
bhLargeConfetti = HatchStyle.LargeConfetti;
|
||
bhZigZag = HatchStyle.ZigZag;
|
||
bhWave = HatchStyle.Wave;
|
||
bhDiagonalBrick = HatchStyle.DiagonalBrick;
|
||
bhHorizontalBrick = HatchStyle.HorizontalBrick;
|
||
bhWeave = HatchStyle.Weave;
|
||
bhPlaid = HatchStyle.Plaid;
|
||
bhDivot = HatchStyle.Divot;
|
||
bhDottedGrid = HatchStyle.DottedGrid;
|
||
bhDottedDiamond = HatchStyle.DottedDiamond;
|
||
bhShingle = HatchStyle.Shingle;
|
||
bhTrellis = HatchStyle.Trellis;
|
||
bhSphere = HatchStyle.Sphere;
|
||
bhSmallGrid = HatchStyle.SmallGrid;
|
||
bhSmallCheckerBoard = HatchStyle.SmallCheckerBoard;
|
||
bhLargeCheckerBoard = HatchStyle.LargeCheckerBoard;
|
||
bhOutlinedDiamond = HatchStyle.OutlinedDiamond;
|
||
bhSolidDiamond = HatchStyle.SolidDiamond;
|
||
|
||
// Font & Brush style constants
|
||
type
|
||
FontStyleType = (fsNormal, fsBold, fsItalic, fsBoldItalic, fsUnderline, fsBoldUnderline, fsItalicUnderline, fsBoldItalicUnderline);
|
||
BrushStyleType = (bsSolid, bsClear, bsHatch, bsGradient);
|
||
|
||
/// Çŕęđŕřčâŕĺň ďčęńĺë ń ęîîđäčíŕňŕěč (x,y) öâĺňîě c
|
||
procedure SetPixel(x,y: integer; c: Color);
|
||
/// Çŕęđŕřčâŕĺň ďčęńĺë ń ęîîđäčíŕňŕěč (x,y) öâĺňîě c
|
||
procedure PutPixel(x,y: integer; c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň ďčęńĺëŕ ń ęîîđäčíŕňŕěč (x,y)
|
||
function GetPixel(x,y: integer): Color;
|
||
|
||
/// Óńňŕíŕâëčâŕĺň ňĺęóůóţ ďîçčöčţ đčńîâŕíč˙ â ňî÷ęó (x,y)
|
||
procedure MoveTo(x,y: integer);
|
||
/// Đčńóĺň îňđĺçîę îň ňĺęóůĺé ďîçčöčč äî ňî÷ęč (x,y). Ňĺęóůŕ˙ ďîçčöč˙ ďĺđĺíîńčňń˙ â ňî÷ęó (x,y)
|
||
procedure LineTo(x,y: integer);
|
||
/// Đčńóĺň îňđĺçîę îň ňĺęóůĺé ďîçčöčč äî ňî÷ęč (x,y) öâĺňîě c. Ňĺęóůŕ˙ ďîçčöč˙ ďĺđĺíîńčňń˙ â ňî÷ęó (x,y)
|
||
procedure LineTo(x,y: integer; c: Color);
|
||
|
||
/// Đčńóĺň îňđĺçîę îň ňî÷ęč (x1,y1) äî ňî÷ęč (x2,y2)
|
||
procedure Line(x1,y1,x2,y2: integer);
|
||
/// Đčńóĺň îňđĺçîę îň ňî÷ęč (x1,y1) äî ňî÷ęč (x2,y2) öâĺňîě c
|
||
procedure Line(x1,y1,x2,y2: integer; c: Color);
|
||
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü îęđóćíîńňč ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure FillCircle(x,y,r: integer);
|
||
/// Đčńóĺň îęđóćíîńňü ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure DrawCircle(x,y,r: integer);
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü ýëëčďńŕ, îăđŕíč÷ĺííîăî ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillEllipse(x1,y1,x2,y2: integer);
|
||
/// Đčńóĺň ăđŕíčöó ýëëčďńŕ, îăđŕíč÷ĺííîăî ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure DrawEllipse(x1,y1,x2,y2: integer);
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillRectangle(x1,y1,x2,y2: integer);
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillRect(x1,y1,x2,y2: integer);
|
||
/// Đčńóĺň ăđŕíčöó ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure DrawRectangle(x1,y1,x2,y2: integer);
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü ďđ˙ěîóăîëüíčęŕ ńî ńęđóăëĺííűěč ęđŕ˙ěč; (x1,y1) č (x2,y2) çŕäŕţň ďŕđó ďđîňčâîďîëîćíűő âĺđřčí, ŕ w č h <20> řčđčíó č âűńîňó ýëëčďńŕ, čńďîëüçóĺěîăî äë˙ ńęđóăëĺíč˙ ęđŕĺâ
|
||
procedure FillRoundRect(x1,y1,x2,y2,w,h: integer);
|
||
/// Đčńóĺň ăđŕíčöó ďđ˙ěîóăîëüíčęŕ ńî ńęđóăëĺííűěč ęđŕ˙ěč; (x1,y1) č (x2,y2) çŕäŕţň ďŕđó ďđîňčâîďîëîćíűő âĺđřčí, ŕ w č h <20> řčđčíó č âűńîňó ýëëčďńŕ, čńďîëüçóĺěîăî äë˙ ńęđóăëĺíč˙ ęđŕĺâ
|
||
procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer);
|
||
|
||
/// Đčńóĺň çŕďîëíĺííóţ îęđóćíîńňü ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure Circle(x,y,r: integer);
|
||
/// Đčńóĺň çŕďîëíĺííűé ýëëčďń, îăđŕíč÷ĺííűé ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure Ellipse(x1,y1,x2,y2: integer);
|
||
/// Đčńóĺň çŕďîëíĺííűé ďđ˙ěîóăîëüíčę, çŕäŕííűé ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure Rectangle(x1,y1,x2,y2: integer);
|
||
/// Đčńóĺň çŕďîëíĺííűé ďđ˙ěîóăîëüíčę ńî ńęđóăëĺííűěč ęđŕ˙ěč; (x1,y1) č (x2,y2) çŕäŕţň ďŕđó ďđîňčâîďîëîćíűő âĺđřčí, ŕ w č h <20> řčđčíó č âűńîňó ýëëčďńŕ, čńďîëüçóĺěîăî äë˙ ńęđóăëĺíč˙ ęđŕĺâ
|
||
procedure RoundRect(x1,y1,x2,y2,w,h: integer);
|
||
|
||
/// Đčńóĺň äóăó îęđóćíîńňč ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure Arc(x,y,r,a1,a2: integer);
|
||
/// Çŕďîëí˙ĺň âíóňđĺííîńňü ńĺęňîđŕ îęđóćíîńňč, îăđŕíč÷ĺííîăî äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure FillPie(x,y,r,a1,a2: integer);
|
||
/// Đčńóĺň ńĺęňîđ îęđóćíîńňč, îăđŕíč÷ĺííűé äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure DrawPie(x,y,r,a1,a2: integer);
|
||
/// Đčńóĺň çŕďîëíĺííűé ńĺęňîđ îęđóćíîńňč, îăđŕíč÷ĺííűé äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure Pie(x,y,r,a1,a2: integer);
|
||
|
||
/// Đčńóĺň çŕěęíóňóţ ëîěŕíóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure DrawPolygon(points: array of Point);
|
||
/// Çŕďîëí˙ĺň ěíîăîóăîëüíčę, ęîîđäčíŕňű âĺđřčí ęîňîđîăî çŕäŕíű â ěŕńńčâĺ points
|
||
procedure FillPolygon(points: array of Point);
|
||
/// Đčńóĺň çŕďîëíĺííűé ěíîăîóăîëüíčę, ęîîđäčíŕňű âĺđřčí ęîňîđîăî çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Polygon(points: array of Point);
|
||
/// Đčńóĺň ëîěŕíóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Polyline(points: array of Point);
|
||
/// Đčńóĺň ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Curve(points: array of Point);
|
||
/// Đčńóĺň çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure DrawClosedCurve(points: array of Point);
|
||
/// Çŕďîëí˙ĺň çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure FillClosedCurve(points: array of Point);
|
||
/// Đčńóĺň çŕďîëíĺííóţ çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure ClosedCurve(points: array of Point);
|
||
|
||
/// Âűâîäčň ńňđîęó s â ďđ˙ěîóăîëüíčę ę ęîîđäčíŕňŕěč ëĺâîăî âĺđőíĺăî óăëŕ (x,y)
|
||
procedure TextOut(x,y: integer; s: string);
|
||
/// Çŕëčâŕĺň îáëŕńňü îäíîăî öâĺňŕ öâĺňîě c, íŕ÷číŕ˙ ń ňî÷ęč (x,y).
|
||
procedure FloodFill(x,y: integer; c: Color);
|
||
|
||
{procedure FillCircle(x,y,r: integer; c: Color);
|
||
procedure DrawCircle(x,y,r: integer; c: Color);
|
||
procedure FillEllipse(x1,y1,x2,y2: integer; c: Color);
|
||
procedure DrawEllipse(x1,y1,x2,y2: integer; c: Color);
|
||
procedure FillRectangle(x1,y1,x2,y2: integer; c: Color);
|
||
procedure FillRect(x1,y1,x2,y2: integer; c: Color);
|
||
procedure DrawRectangle(x1,y1,x2,y2: integer; c: Color);
|
||
procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer; c: Color);
|
||
procedure FillRoundRect(x1,y1,x2,y2,w,h: integer; c: Color);
|
||
|
||
procedure Circle(x,y,r: integer; c: Color);
|
||
procedure Ellipse(x1,y1,x2,y2: integer; c: Color);
|
||
procedure Rectangle(x1,y1,x2,y2: integer; c: Color);
|
||
procedure RoundRect(x1,y1,x2,y2,w,h: integer; c: Color);
|
||
|
||
procedure Arc(x,y,r,a1,a2: integer; c: Color);
|
||
procedure FillPie(x,y,r,a1,a2: integer; c: Color);
|
||
procedure DrawPie(x,y,r,a1,a2: integer; c: Color);
|
||
procedure Pie(x,y,r,a1,a2: integer; c: Color);
|
||
|
||
procedure DrawPolygon(a: array of Point; c: Color);
|
||
procedure FillPolygon(a: array of Point; c: Color);
|
||
procedure Polygon(a: array of Point; c: Color);
|
||
procedure Polyline(a: array of Point; c: Color);}
|
||
|
||
//--------------------------------------------
|
||
//// Öâĺňŕ
|
||
//--------------------------------------------
|
||
/// Âîçâđŕůŕĺň öâĺň, ęîňîđűé ńîäĺđćčň ęđŕńíóţ (r), çĺëĺíóţ (g) č ńčíţţ (b) ńîńňŕâë˙ţůčĺ (r,g č b - â äčŕďŕçîíĺ îň 0 äî 255)
|
||
function RGB(r,g,b: byte): Color;
|
||
/// Âîçâđŕůŕĺň öâĺň, ęîňîđűé ńîäĺđćčň ęđŕńíóţ (r), çĺëĺíóţ (g) č ńčíţţ (b) ńîńňŕâë˙ţůčĺ č ďđîçđŕ÷íîńňü (a) (a,r,g,b - â äčŕďŕçîíĺ îň 0 äî 255)
|
||
function ARGB(a,r,g,b: byte): Color;
|
||
|
||
/// Âîçâđŕůŕĺň ęđŕńíűé öâĺň ń číňĺíńčâíîńňüţ r (r - â äčŕďŕçîíĺ îň 0 äî 255)
|
||
function RedColor(r: byte): Color;
|
||
/// Âîçâđŕůŕĺň çĺëĺíűé öâĺň ń číňĺíńčâíîńňüţ g (g - â äčŕďŕçîíĺ îň 0 äî 255)
|
||
function GreenColor(g: byte): Color;
|
||
/// Âîçâđŕůŕĺň ńčíčé öâĺň ń číňĺíńčâíîńňüţ b (b - â äčŕďŕçîíĺ îň 0 äî 255)
|
||
function BlueColor(b: byte): Color;
|
||
/// Âîçâđŕůŕĺň ńëó÷ŕéíűé öâĺň
|
||
function clRandom: Color;
|
||
|
||
/// Âîçâđŕůŕĺň ęđŕńíóţ ńîńňŕâë˙ţůóţ öâĺňŕ
|
||
function GetRed(c: Color): integer;
|
||
/// Âîçâđŕůŕĺň çĺëĺíóţ ńîńňŕâë˙ţůóţ öâĺňŕ
|
||
function GetGreen(c: Color): integer;
|
||
/// Âîçâđŕůŕĺň ńčíţţ ńîńňŕâë˙ţůóţ öâĺňŕ
|
||
function GetBlue(c: Color): integer;
|
||
|
||
//--------------------------------------------
|
||
//// Ďĺđü˙
|
||
//--------------------------------------------
|
||
/// Óńňŕíŕâëčâŕĺň öâĺň ňĺęóůĺăî ďĺđŕ
|
||
procedure SetPenColor(c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň ňĺęóůĺăî ďĺđŕ
|
||
function PenColor: Color;
|
||
/// Óńňŕíŕâëčâŕĺň řčđčíó ňĺęóůĺăî ďĺđŕ
|
||
procedure SetPenWidth(Width: integer);
|
||
/// Âîçâđŕůŕĺň řčđčíó ňĺęóůĺăî ďĺđŕ
|
||
function PenWidth: integer;
|
||
/// Óńňŕíŕâëčâŕĺň ńňčëü ňĺęóůĺăî ďĺđŕ
|
||
procedure SetPenStyle(style: DashStyle);
|
||
/// Âîçâđŕůŕĺň ńňčëü ňĺęóůĺăî ďĺđŕ
|
||
function PenStyle: DashStyle;
|
||
/// Óńňŕíŕâëčâŕĺň đĺćčě ňĺęóůĺăî ďĺđŕ
|
||
procedure SetPenMode(m: integer);
|
||
/// Âîçâđŕůŕĺň đĺćčě ňĺęóůĺăî ďĺđŕ
|
||
function PenMode: integer;
|
||
|
||
/// Âîçâđŕůŕţň x-ęîîđäčíŕňó ňĺęóůĺé ďîçčöčč đčńîâŕíč˙
|
||
function PenX: integer;
|
||
/// Âîçâđŕůŕţň y-ęîîđäčíŕňó ňĺęóůĺé ďîçčöčč đčńîâŕíč˙
|
||
function PenY: integer;
|
||
|
||
//--------------------------------------------
|
||
//// Ęčńňč
|
||
//--------------------------------------------
|
||
/// Óńňŕíŕâëčâŕĺň öâĺň ňĺęóůĺé ęčńňč
|
||
procedure SetBrushColor(c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň ňĺęóůĺé ęčńňč
|
||
function BrushColor: Color;
|
||
/// Óńňŕíŕâëčâŕĺň öâĺň ňĺęóůĺé ęčńňč
|
||
procedure SetBrushStyle(bs: BrushStyleType);
|
||
/// Âîçâđŕůŕĺň öâĺň ňĺęóůĺé ęčńňč
|
||
function BrushStyle: BrushStyleType;
|
||
/// Óńňŕíŕâëčâŕĺň řňđčőîâęó ňĺęóůĺé ęčńňč
|
||
procedure SetBrushHatch(bh: HatchStyle);
|
||
/// Âîçâđŕůŕĺň řňđčőîâęó ňĺęóůĺé ęčńňč
|
||
function BrushHatch: HatchStyle;
|
||
/// Óńňŕíŕâëčâŕĺň öâĺň çŕäíĺăî ďëŕíŕ ňĺęóůĺé řňđčőîâîé ęčńňč
|
||
procedure SetHatchBrushBackgroundColor(c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň çŕäíĺăî ďëŕíŕ ňĺęóůĺé řňđčőîâîé ęčńňč
|
||
function HatchBrushBackgroundColor: Color;
|
||
/// Óńňŕíŕâëčâŕĺň âňîđîé öâĺň ňĺęóůĺé ăđŕäčĺíňíîé ęčńňč
|
||
procedure SetGradientBrushSecondColor(c: Color);
|
||
/// Âîçâđŕůŕĺň âňîđîé öâĺň ňĺęóůĺé ăđŕäčĺíňíîé ęčńňč
|
||
function GradientBrushSecondColor: Color;
|
||
|
||
//--------------------------------------------
|
||
//// Řđčôňű
|
||
//--------------------------------------------
|
||
/// Óńňŕíŕâëčâŕĺň đŕçěĺđ ňĺęóůĺăî řđčôňŕ â ďóíęňŕő
|
||
procedure SetFontSize(size: integer);
|
||
/// Âîçâđŕůŕĺň đŕçěĺđ ňĺęóůĺăî řđčôňŕ â ďóíęňŕő
|
||
function FontSize: integer;
|
||
/// Óńňŕíŕâëčâŕĺň čě˙ ňĺęóůĺăî řđčôňŕ
|
||
procedure SetFontName(name: string);
|
||
/// Âîçâđŕůŕĺň čě˙ ňĺęóůĺăî řđčôňŕ
|
||
function FontName: string;
|
||
/// Óńňŕíŕâëčâŕĺň öâĺň ňĺęóůĺăî řđčôňŕ
|
||
procedure SetFontColor(c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň ňĺęóůĺăî řđčôňŕ
|
||
function FontColor: Color;
|
||
/// Óńňŕíŕâëčâŕĺň ńňčëü ňĺęóůĺăî řđčôňŕ
|
||
procedure SetFontStyle(fs: FontStyleType);
|
||
/// Âîçâđŕůŕĺň ńňčëü ňĺęóůĺăî řđčôňŕ
|
||
function FontStyle: FontStyleType;
|
||
/// Âîçâđŕůŕĺň řčđčíó ńňđîęč s â ďčęńĺë˙ő ďđč ňĺęóůčő íŕńňđîéęŕő řđčôňŕ
|
||
function TextWidth(s: string): integer;
|
||
/// Âîçâđŕůŕĺň âűńîňó ńňđîęč s â ďčęńĺë˙ő ďđč ňĺęóůčő íŕńňđîéęŕő řđčôňŕ
|
||
function TextHeight(s: string): integer;
|
||
|
||
//--------------------------------------------
|
||
//// Ăđŕôč÷ĺńęîĺ îęíî
|
||
//--------------------------------------------
|
||
/// Î÷čůŕĺň ăđŕôč÷ĺńęîĺ îęíî áĺëűě öâĺňîě
|
||
procedure ClearWindow;
|
||
/// Î÷čůŕĺň ăđŕôč÷ĺńęîĺ îęíî öâĺňîě c
|
||
procedure ClearWindow(c: Color);
|
||
|
||
/// Âîçâđŕůŕĺň řčđčíó ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
function WindowWidth: integer;
|
||
/// Âîçâđŕůŕĺň âűńîňó ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
function WindowHeight: integer;
|
||
/// Âîçâđŕůŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň ëĺâîăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
function WindowLeft: integer;
|
||
/// Âîçâđŕůŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň âĺđőíĺăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
function WindowTop: integer;
|
||
/// Âîçâđŕůŕĺň öĺíňđ ăđŕôč÷ĺńęîăî îęíŕ
|
||
function WindowCenter: Point;
|
||
/// Âîçâđŕůŕĺň True, ĺńëč ăđŕôč÷ĺńęîĺ iîęíî čěĺĺň ôčęńčđîâŕííűé đŕçěĺđ, č False â ďđîňčâíîě ńëó÷ŕĺ
|
||
function WindowIsFixedSize: boolean;
|
||
|
||
/// Óńňŕíŕâëčâŕĺň řčđčíó ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
procedure SetWindowWidth(w: integer);
|
||
/// Óńňŕíŕâëčâŕĺň âűńîňó ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
procedure SetWindowHeight(h: integer);
|
||
/// Óńňŕíŕâëčâŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň ëĺâîăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
procedure SetWindowLeft(l: integer);
|
||
/// Óńňŕíŕâëčâŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň âĺđőíĺăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
procedure SetWindowTop(t: integer);
|
||
/// Óńňŕíŕâëčâŕĺň, čěĺĺň ëč ăđŕôč÷ĺńęîĺ îęíî ôčęńčđîâŕííűé đŕçěĺđ
|
||
procedure SetWindowIsFixedSize(b: boolean);
|
||
|
||
/// Óńňŕíŕâëčâŕĺň đŕçěĺđű ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
procedure SetWindowSize(w,h: integer);
|
||
/// Óńňŕíŕâëčâŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň ëĺâîăî âĺđőíĺăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
procedure SetWindowPos(l,t: integer);
|
||
|
||
/// Âîçâđŕůŕĺň řčđčíó ăđŕôč÷ĺńęîăî ęîěďîíĺíňŕ â ďčęńĺëŕő (ďî óěîë÷ŕíčţ ńîâďŕäŕĺň ń WindowWidth)
|
||
function GraphBoxWidth: integer;
|
||
/// Âîçâđŕůŕĺň âűńîňó ăđŕôč÷ĺńęîăî ęîěďîíĺíňŕ â ďčęńĺëŕő (ďî óěîë÷ŕíčţ ńîâďŕäŕĺň ń WindowHeight)
|
||
function GraphBoxHeight: integer;
|
||
/// Âîçâđŕůŕĺň îňńňóď ăđŕôč÷ĺńęîăî ęîěďîíĺíňŕ îň ëĺâîăî ęđŕ˙ îęíŕ â ďčęńĺëŕő
|
||
function GraphBoxLeft: integer;
|
||
/// Âîçâđŕůŕĺň îňńňóď ăđŕôč÷ĺńęîăî ęîěďîíĺíňŕ îň âĺđőíĺăî ęđŕ˙ îęíŕ â ďčęńĺëŕő
|
||
function GraphBoxTop: integer;
|
||
|
||
/// Âîçâđŕůŕĺň çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
function WindowCaption: string;
|
||
/// Âîçâđŕůŕĺň çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
function WindowTitle: string;
|
||
/// Óńňŕíŕâëčâŕĺň çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
procedure SetWindowCaption(s: string);
|
||
/// Óńňŕíŕâëčâŕĺň çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
procedure SetWindowTitle(s: string);
|
||
|
||
/// Óńňŕíŕâëčâŕĺň řčđčíó č âűńîňó ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite);
|
||
|
||
/// Ńîőđŕí˙ĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ â ôŕéë ń čěĺíĺě fname
|
||
procedure SaveWindow(fname: string);
|
||
/// Âîńńňŕíŕâëčâŕĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ čç ôŕéëŕ ń čěĺíĺě fname
|
||
procedure LoadWindow(fname: string);
|
||
/// Çŕďîëí˙ĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ îáî˙ěč čç ôŕéëŕ ń čěĺíĺě fname
|
||
procedure FillWindow(fname: string);
|
||
/// Çŕęđűâŕĺň ăđŕôč÷ĺńęîĺ îęíî č çŕâĺđřŕĺň ďđčëîćĺíčĺ
|
||
procedure CloseWindow;
|
||
|
||
/// Âîçâđŕůŕĺň řčđčíó ýęđŕíŕ â ďčęńĺë˙ő
|
||
function ScreenWidth: integer;
|
||
/// Âîçâđŕůŕĺň âűńîňó ýęđŕíŕ â ďčęńĺë˙ő
|
||
function ScreenHeight: integer;
|
||
|
||
/// Öĺíňđčđóĺň ăđŕôč÷ĺńęîĺ îęíî ďî öĺíňđó ýęđŕíŕ
|
||
procedure CenterWindow;
|
||
/// Ěŕęńčěčçčđóĺň ăđŕôč÷ĺńęîĺ îęíî
|
||
procedure MaximizeWindow;
|
||
/// Ńâîđŕ÷čâŕĺň ăđŕôč÷ĺńęîĺ îęíî
|
||
procedure MinimizeWindow;
|
||
/// Âîçâđŕůŕĺň ăđŕôč÷ĺńęîĺ îęíî ę íîđěŕëüíîěó đŕçěĺđó
|
||
procedure NormalizeWindow;
|
||
|
||
//--------------------------------------------
|
||
//// Áóôĺđčçŕöč˙ đčńîâŕíč˙
|
||
//--------------------------------------------
|
||
/// Ďĺđĺđčńîâűâŕĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ. Âűçűâŕĺňń˙ â ďŕđĺ ń LockDrawing
|
||
procedure Redraw;
|
||
///--
|
||
procedure FullRedraw;
|
||
/// Áëîęčđóĺň đčńîâŕíčĺ íŕ ăđŕôč÷ĺńęîě îęíĺ. Ďĺđĺđčńîâęŕ ăđŕôč÷ĺńęîăî îęíŕ âűďîëí˙ĺňń˙ ń ďîěîůüţ Redraw
|
||
procedure LockDrawing;
|
||
/// Ńíčěŕĺň áëîęčđîâęó đčńîâŕíč˙ íŕ ăđŕôč÷ĺńęîě îęíĺ č îńóůĺńňâë˙ĺň ĺăî ďĺđĺđčńîâęó
|
||
procedure UnlockDrawing;
|
||
|
||
//--------------------------------------------
|
||
//// Ńăëŕćčâŕíčĺ
|
||
//--------------------------------------------
|
||
/// Óńňŕíŕâëčâŕĺň đĺćčě ńăëŕćčâŕíč˙
|
||
procedure SetSmoothing(sm: boolean);
|
||
/// Âęëţ÷ŕĺň đĺćčě ńăëŕćčâŕíč˙
|
||
procedure SetSmoothingOn;
|
||
/// Âűęëţ÷ŕĺň đĺćčě ńăëŕćčâŕíč˙
|
||
procedure SetSmoothingOff;
|
||
/// Âîçâđŕůŕĺň True, ĺńëč đĺćčě ńăëŕćčâŕíč˙ óńňŕíîâëĺí
|
||
function SmoothingIsOn: boolean;
|
||
|
||
//--------------------------------------------
|
||
//// Âńďîěîăŕňĺëüíűĺ ďîäďđîăđŕěěű
|
||
//--------------------------------------------
|
||
/// Áëîęčđóĺň ďđîđčńîâęó ăđŕôčęč. Âűçűâŕĺňń˙ äë˙ ńčíőđîíčçŕöčč
|
||
procedure LockGraphics;
|
||
/// Đŕçáëîęčđóĺň ďđîđčńîâęó ăđŕôčęč. Âűçűâŕĺňń˙ äë˙ ńčíőđîíčçŕöčč
|
||
procedure UnLockGraphics;
|
||
/// Óńňŕíŕâëčâŕĺň íŕ÷ŕëî ęîîđäčíŕň â ňî÷ęó (x0,y0)
|
||
procedure SetCoordinateOrigin(x0,y0: integer);
|
||
/// Číčöčŕëčçčđóĺň ăđŕôč÷ĺńęîĺ îęíî. Čńďîëüçóĺňń˙ äë˙ âíóňđĺííčő öĺëĺé
|
||
procedure InitGraphABC;
|
||
|
||
type
|
||
/// Ňčď ďĺđŕ GraphABC
|
||
GraphABCPen = class
|
||
private
|
||
_NETPen: System.Drawing.Pen;
|
||
procedure SetColor(c: GraphABC.Color);
|
||
function GetColor: GraphABC.Color;
|
||
procedure SetWidth(w: integer);
|
||
function GetWidth: integer;
|
||
procedure SetStyle(st: DashStyle);
|
||
function GetStyle: DashStyle;
|
||
procedure SetMode(m: integer);
|
||
function GetMode: integer;
|
||
procedure SetNETPen(p: System.Drawing.Pen);
|
||
function GetX: integer;
|
||
function GetY: integer;
|
||
public
|
||
/// Ňĺęóůĺĺ ďĺđî .NET
|
||
property NETPen: System.Drawing.Pen read _NETPen write SetNETPen;
|
||
/// Öâĺň ďĺđŕ
|
||
property Color: GraphABC.Color read GetColor write SetColor;
|
||
/// Řčđčíŕ ďĺđŕ
|
||
property Width: integer read GetWidth write SetWidth;
|
||
/// Ńňčëü ďĺđŕ
|
||
property Style: DashStyle read GetStyle write SetStyle;
|
||
/// Đĺćčě ďĺđŕ
|
||
property Mode: integer read GetMode write SetMode;
|
||
/// X-ęîîđäčíŕňŕ ňĺęóůĺé ďîçčöčč ďĺđŕ
|
||
property X: integer read GetX;
|
||
/// Y-ęîîđäčíŕňŕ ňĺęóůĺé ďîçčöčč ďĺđŕ
|
||
property Y: integer read GetY;
|
||
end;
|
||
|
||
/// Ňčď ęčńňč GraphABC
|
||
GraphABCBrush = class
|
||
private
|
||
_NETBrush: System.Drawing.Brush;
|
||
procedure SetNETBrush(b: System.Drawing.Brush);
|
||
procedure SetColor(c: GraphABC.Color);
|
||
function GetColor: GraphABC.Color;
|
||
procedure SetStyle(st: BrushStyleType);
|
||
function GetStyle: BrushStyleType;
|
||
procedure SetHatch(h: HatchStyle);
|
||
function GetHatch: HatchStyle;
|
||
procedure SetHatchBackgroundColor(c: GraphABC.Color);
|
||
function GetHatchBackgroundColor: GraphABC.Color;
|
||
procedure SetGradientSecondColor(c: GraphABC.Color);
|
||
function GetGradientSecondColor: GraphABC.Color;
|
||
public
|
||
/// Ňĺęóůŕ˙ ęčńňü .NET
|
||
property NETBrush: System.Drawing.Brush read _NETBrush write SetNETBrush;
|
||
/// Öâĺň ęčńňč
|
||
property Color: GraphABC.Color read GetColor write SetColor;
|
||
/// Ńňčëü ęčńňč
|
||
property Style: BrushStyleType read GetStyle write SetStyle;
|
||
/// Řňđčőîâęŕ ęčńňč
|
||
property Hatch: HatchStyle read GetHatch write SetHatch;
|
||
/// Öâĺň çŕäíĺăî ďëŕíŕ řňđčőîâîé ęčńňč
|
||
property HatchBackgroundColor: GraphABC.Color read GetHatchBackgroundColor write SetHatchBackgroundColor;
|
||
/// Âňîđîé öâĺň ăđŕäčĺíňíîé ęčńňč
|
||
property GradientSecondColor: GraphABC.Color read GetGradientSecondColor write SetGradientSecondColor;
|
||
end;
|
||
|
||
/// Ňčď řđčôňŕ GraphABC
|
||
GraphABCFont = class
|
||
private
|
||
_NETFont: System.Drawing.Font;
|
||
procedure SetNETFont(f: System.Drawing.Font);
|
||
procedure SetColor(c: GraphABC.Color);
|
||
function GetColor: GraphABC.Color;
|
||
procedure SetStyle(st: FontStyleType);
|
||
function GetStyle: FontStyleType;
|
||
procedure SetSize(sz: integer);
|
||
function GetSize: integer;
|
||
procedure SetName(nm: string);
|
||
function GetName: string;
|
||
public
|
||
/// Ňĺęóůčé řđčôň .NET
|
||
property NETFont: System.Drawing.Font read _NETFont write SetNETFont;
|
||
/// Öâĺň řđčôňŕ
|
||
property Color: GraphABC.Color read GetColor write SetColor;
|
||
/// Ńňčëü řđčôňŕ
|
||
property Style: FontStyleType read GetStyle write SetStyle;
|
||
/// Đŕçěĺđ řđčôňŕ â ďóíęňŕő
|
||
property Size: integer read GetSize write SetSize;
|
||
/// Íŕčěĺíîâŕíčĺ řđčôňŕ
|
||
property Name: string read GetName write SetName;
|
||
end;
|
||
|
||
GraphABCWindow = class
|
||
private
|
||
procedure SetLeft(l: integer);
|
||
function GetLeft: integer;
|
||
procedure SetTop(t: integer);
|
||
function GetTop: integer;
|
||
procedure SetWidth(w: integer);
|
||
function GetWidth: integer;
|
||
procedure SetHeight(h: integer);
|
||
function GetHeight: integer;
|
||
procedure SetCaption(c: string);
|
||
function GetCaption: string;
|
||
procedure SetIsFixedSize(b: boolean);
|
||
function GetIsFixedSize: boolean;
|
||
public
|
||
/// Îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň ëĺâîăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
property Left: integer read GetLeft write SetLeft;
|
||
/// Îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň âĺđőíĺăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
property Top: integer read GetTop write SetTop;
|
||
/// Řčđčíŕ ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
property Width: integer read GetWidth write SetWidth;
|
||
/// Âűńîňŕ ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
property Height: integer read GetHeight write SetHeight;
|
||
/// Çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
property Caption: string read GetCaption write SetCaption;
|
||
/// Çŕăîëîâîę ăđŕôč÷ĺńęîăî îęíŕ
|
||
property Title: string read GetCaption write SetCaption;
|
||
/// Čěĺĺň ëč ăđŕôč÷ĺńęîĺ îęíî ôčęńčđîâŕííűé đŕçěĺđ
|
||
property IsFixedSize: boolean read GetIsFixedSize write SetIsFixedSize;
|
||
/// Î÷čůŕĺň ăđŕôč÷ĺńęîĺ îęíî áĺëűě öâĺňîě
|
||
procedure Clear;
|
||
/// Î÷čůŕĺň ăđŕôč÷ĺńęîĺ îęíî öâĺňîě c
|
||
procedure Clear(c: Color);
|
||
/// Óńňŕíŕâëčâŕĺň đŕçěĺđű ęëčĺíňńęîé ÷ŕńňč ăđŕôč÷ĺńęîăî îęíŕ â ďčęńĺëŕő
|
||
procedure SetSize(w,h: integer);
|
||
/// Óńňŕíŕâëčâŕĺň îňńňóď ăđŕôč÷ĺńęîăî îęíŕ îň ëĺâîăî âĺđőíĺăî ęđŕ˙ ýęđŕíŕ â ďčęńĺëŕő
|
||
procedure SetPos(l,t: integer);
|
||
/// Óńňŕíŕâëčâŕĺň ďîëîćĺíčĺ, đŕçěĺđű č öâĺň ăđŕôč÷ĺńęîăî îęíŕ
|
||
procedure Init(Left,Top,Width,Height: integer; BackColor: Color := clWhite);
|
||
/// Ńîőđŕí˙ĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ â ôŕéë ń čěĺíĺě fname
|
||
procedure Save(fname: string);
|
||
/// Âîńńňŕíŕâëčâŕĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ čç ôŕéëŕ ń čěĺíĺě fname
|
||
procedure Load(fname: string);
|
||
/// Çŕďîëí˙ĺň ńîäĺđćčěîĺ ăđŕôč÷ĺńęîăî îęíŕ îáî˙ěč čç ôŕéëŕ ń čěĺíĺě fname
|
||
procedure Fill(fname: string);
|
||
/// Çŕęđűâŕĺň ăđŕôč÷ĺńęîĺ îęíî č çŕâĺđřŕĺň ďđčëîćĺíčĺ
|
||
procedure Close;
|
||
/// Ńâîđŕ÷čâŕĺň ăđŕôč÷ĺńęîĺ îęíî
|
||
procedure Minimize;
|
||
/// Ěŕęńčěčçčđóĺň ăđŕôč÷ĺńęîĺ îęíî
|
||
procedure Maximize;
|
||
/// Âîçâđŕůŕĺň ăđŕôč÷ĺńęîĺ îęíî ę íîđěŕëüíîěó đŕçěĺđó
|
||
procedure Normalize;
|
||
/// Öĺíňđčđóĺň ăđŕôč÷ĺńęîĺ îęíî ďî öĺíňđó ýęđŕíŕ
|
||
procedure CenterOnScreen;
|
||
/// Âîçâđŕůŕĺň öĺíňđ ăđŕôč÷ĺńęîăî îęíŕ
|
||
function Center: Point;
|
||
end;
|
||
|
||
/// Ňčď đčńóíęŕ GraphABC
|
||
Picture = class
|
||
private
|
||
bmp,savedbmp: Bitmap;
|
||
gb: Graphics;
|
||
istransp: boolean;
|
||
transpcolor: System.Drawing.Color;
|
||
procedure SetWidth(w: integer);
|
||
function GetWidth: integer;
|
||
procedure SetHeight(h: integer);
|
||
function GetHeight: integer;
|
||
procedure SetTransparent(b: boolean);
|
||
procedure SetTransparentColor(c: GraphABC.Color);
|
||
function GetTransparentColor: GraphABC.Color;
|
||
public
|
||
/// Ńîçäŕĺň đčńóíîę đŕçěĺđŕ w íŕ h ďčęńĺëĺé
|
||
constructor Create(w,h: integer);
|
||
/// Ńîçäŕĺň đčńóíîę čç ôŕéëŕ ń čěĺíĺě fname
|
||
constructor Create(fname: string);
|
||
/// Ńîçäŕĺň đčńóíîę čç ďđ˙ěîóăîëüíčęŕ r ăđŕôč÷ĺńęîăî îęíŕ
|
||
constructor Create(r: System.Drawing.Rectangle); // Create from screen
|
||
/// Çŕăđóćŕĺň đčńóíîę čç ôŕéëŕ ń čěĺíĺě fname
|
||
procedure Load(fname: string);
|
||
/// Ńîőđŕí˙ĺň đčńóíîę â ôŕéë ń čěĺíĺě fname
|
||
procedure Save(fname: string);
|
||
/// Óńňŕíŕâëčâŕĺň đŕçěĺđ đčńóíęŕ w íŕ h ďčęńĺëĺé
|
||
procedure SetSize(w,h: integer);
|
||
/// Řčđčíŕ đčńóíęŕ â ďčęńĺëŕő
|
||
property Width: integer read GetWidth write SetWidth;
|
||
/// Âűńîňŕ đčńóíęŕ â ďčęńĺëŕő
|
||
property Height: integer read GetHeight write SetHeight;
|
||
/// Ďđîçđŕ÷íîńňü đčńóíęŕ; ďđîçđŕ÷íűé öâĺň çŕäŕĺňń˙ ńâîéńňâîě TransparentColor
|
||
property Transparent: boolean read istransp write SetTransparent;
|
||
/// Ďđîçđŕ÷íűé öâĺň đčńóíęŕ. Äîëćíŕ áűňü óńňŕíîâëĺíŕ ďđîçđŕ÷íîńňü Transparent := True
|
||
property TransparentColor: GraphABC.Color read GetTransparentColor write SetTransparentColor;
|
||
/// Âîçâđŕůŕĺň True, ĺńëč čçîáđŕćĺíčĺ äŕííîăî đčńóíęŕ ďĺđĺńĺęŕĺňń˙ ń čçîáđŕćĺíčĺě đčńóíęŕ p, č False â ďđîňčâíîě ńëó÷ŕĺ. Áĺëűé öâĺň ń÷čňŕĺňń˙ ďđîçđŕ÷íűě
|
||
function Intersect(p: Picture): boolean;
|
||
/// Âűâîäčň đčńóíîę â ďîçčöčč (x,y)
|
||
procedure Draw(x,y: integer);
|
||
/// Âűâîäčň đčńóíîę â ďîçčöčč (x,y) íŕ ďîâĺđőíîńňü đčńîâŕíč˙ g
|
||
procedure Draw(x,y: integer; g: Graphics);
|
||
/// Âűâîäčň đčńóíîę â ďîçčöčč (x,y), ěŕńřňŕáčđó˙ ĺăî ę đŕçěĺđó (w,h)
|
||
procedure Draw(x,y,w,h: integer);
|
||
/// Âűâîäčň đčńóíîę â ďîçčöčč (x,y), ěŕńřňŕáčđó˙ ĺăî ę đŕçěĺđó (w,h), íŕ ďîâĺđőíîńňü đčńîâŕíč˙ g
|
||
procedure Draw(x,y,w,h: integer; g: Graphics);
|
||
/// Âűâîäčň ÷ŕńňü đčńóíęŕ, çŕęëţ÷ĺííóţ â ďđ˙ěîóăîëüíčęĺ r, â ďîçčöčč (x,y)
|
||
procedure Draw(x,y: integer; r: System.Drawing.Rectangle); // r - part of Picture
|
||
/// Âűâîäčň ÷ŕńňü đčńóíęŕ, çŕęëţ÷ĺííóţ â ďđ˙ěîóăîëüíčęĺ r, â ďîçčöčč (x,y) íŕ ďîâĺđőíîńňü đčńîâŕíč˙ g
|
||
procedure Draw(x,y: integer; r: System.Drawing.Rectangle; g: Graphics);
|
||
/// Âűâîäčň ÷ŕńňü đčńóíęŕ, çŕęëţ÷ĺííóţ â ďđ˙ěîóăîëüíčęĺ r, â ďîçčöčč (x,y), ěŕńřňŕáčđó˙ ĺăî ę đŕçěĺđó (w,h)
|
||
procedure Draw(x,y,w,h: integer; r: System.Drawing.Rectangle); // r - part of Picture
|
||
/// Âűâîäčň ÷ŕńňü đčńóíęŕ, çŕęëţ÷ĺííóţ â ďđ˙ěîóăîëüíčęĺ r, â ďîçčöčč (x,y), ěŕńřňŕáčđó˙ ĺăî ę đŕçěĺđó (w,h), íŕ ďîâĺđőíîńňü đčńîâŕíč˙ g
|
||
procedure Draw(x,y,w,h: integer; r: System.Drawing.Rectangle; g: Graphics);
|
||
/// Ęîďčđóĺň ďđ˙ěîóăîëüíčę src đčńóíęŕ p â ďđ˙ěîóăîëüíčę dst ňĺęóůĺăî đčńóíęŕ
|
||
procedure CopyRect(dst: System.Drawing.Rectangle; p: Picture; src: System.Drawing.Rectangle);
|
||
/// Ęîďčđóĺň ďđ˙ěîóăîëüíčę src áčňîâîăî îáđŕçŕ bmp â ďđ˙ěîóăîëüíčę dst ňĺęóůĺăî đčńóíęŕ
|
||
procedure CopyRect(dst: System.Drawing.Rectangle; bmp: Bitmap; src: System.Drawing.Rectangle);
|
||
/// Çĺđęŕëüíî îňîáđŕćŕĺň đčńóíîę îňíîńčňĺëüíî ăîđčçîíňŕëüíîé îńč ńčěěĺňđčč
|
||
procedure FlipHorizontal;
|
||
/// Çĺđęŕëüíî îňîáđŕćŕĺň đčńóíîę îňíîńčňĺëüíî âĺđňčęŕëüíîé îńč ńčěěĺňđčč
|
||
procedure FlipVertical;
|
||
|
||
/// Çŕęđŕřčâŕĺň ďčęńĺë (x,y) đčńóíęŕ öâĺňîě c
|
||
procedure SetPixel(x,y: integer; c: Color);
|
||
/// Çŕęđŕřčâŕĺň ďčęńĺë (x,y) đčńóíęŕ öâĺňîě c
|
||
procedure PutPixel(x,y: integer; c: Color);
|
||
/// Âîçâđŕůŕĺň öâĺň ďčęńĺëŕ (x,y) đčńóíęŕ
|
||
function GetPixel(x,y: integer): Color;
|
||
|
||
/// Âűâîäčň íŕ đčńóíęĺ îňđĺçîę îň ňî÷ęč (x1,y1) äî ňî÷ęč (x2,y2)
|
||
procedure Line(x1,y1,x2,y2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ îňđĺçîę îň ňî÷ęč (x1,y1) äî ňî÷ęč (x2,y2) öâĺňîě c
|
||
procedure Line(x1,y1,x2,y2: integer; c: Color);
|
||
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ âíóňđĺííîńňü îęđóćíîńňč ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure FillCircle(x,y,r: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ îęđóćíîńňü ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure DrawCircle(x,y,r: integer);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ âíóňđĺííîńňü ýëëčďńŕ, îăđŕíč÷ĺííîăî ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillEllipse(x1,y1,x2,y2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ ăđŕíčöó ýëëčďńŕ, îăđŕíč÷ĺííîăî ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure DrawEllipse(x1,y1,x2,y2: integer);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ âíóňđĺííîńňü ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillRectangle(x1,y1,x2,y2: integer);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ âíóňđĺííîńňü ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure FillRect(x1,y1,x2,y2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ ăđŕíčöó ű ďđ˙ěîóăîëüíčęŕ, çŕäŕííîăî ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure DrawRectangle(x1,y1,x2,y2: integer);
|
||
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííóţ îęđóćíîńňü ń öĺíňđîě (x,y) č đŕäčóńîě r
|
||
procedure Circle(x,y,r: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííűé ýëëčďń, îăđŕíč÷ĺííűé ďđ˙ěîóăîëüíčęîě, çŕäŕííűě ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure Ellipse(x1,y1,x2,y2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííűé ďđ˙ěîóăîëüíčę, çŕäŕííűé ęîîđäčíŕňŕěč ďđîňčâîďîëîćíűő âĺđřčí (x1,y1) č (x2,y2)
|
||
procedure Rectangle(x1,y1,x2,y2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííűé ďđ˙ěîóăîëüíčę ńî ńęđóăëĺííűěč ęđŕ˙ěč; (x1,y1) č (x2,y2) çŕäŕţň ďŕđó ďđîňčâîďîëîćíűő âĺđřčí, ŕ w č h <20> řčđčíó č âűńîňó ýëëčďńŕ, čńďîëüçóĺěîăî äë˙ ńęđóăëĺíč˙ ęđŕĺâ
|
||
procedure RoundRect(x1,y1,x2,y2,w,h: integer);
|
||
|
||
/// Âűâîäčň íŕ đčńóíęĺ äóăó îęđóćíîńňč ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure Arc(x,y,r,a1,a2: integer);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ âíóňđĺííîńňü ńĺęňîđŕ îęđóćíîńňč, îăđŕíč÷ĺííîăî äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure FillPie(x,y,r,a1,a2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ ńĺęňîđ îęđóćíîńňč, îăđŕíč÷ĺííűé äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure DrawPie(x,y,r,a1,a2: integer);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííűé ńĺęňîđ îęđóćíîńňč, îăđŕíč÷ĺííűé äóăîé ń öĺíňđîě â ňî÷ęĺ (x,y) č đŕäčóńîě r, çŕęëţ÷ĺííîé ěĺćäó äâóě˙ ëó÷ŕěč, îáđŕçóţůčěč óăëű a1 č a2 ń îńüţ OX (a1 č a2 <20> âĺůĺńňâĺííűĺ, çŕäŕţňń˙ â ăđŕäóńŕő č îňń÷čňűâŕţňń˙ ďđîňčâ ÷ŕńîâîé ńňđĺëęč)
|
||
procedure Pie(x,y,r,a1,a2: integer);
|
||
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕěęíóňóţ ëîěŕíóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure DrawPolygon(points: array of Point);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ ěíîăîóăîëüíčę, ęîîđäčíŕňű âĺđřčí ęîňîđîăî çŕäŕíű â ěŕńńčâĺ points
|
||
procedure FillPolygon(points: array of Point);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííűé ěíîăîóăîëüíčę, ęîîđäčíŕňű âĺđřčí ęîňîđîăî çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Polygon(points: array of Point);
|
||
/// Âűâîäčň íŕ đčńóíęĺ ëîěŕíóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Polyline(points: array of Point);
|
||
/// Âűâîäčň íŕ đčńóíęĺ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure Curve(points: array of Point);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure DrawClosedCurve(points: array of Point);
|
||
/// Çŕďîëí˙ĺň íŕ đčńóíęĺ çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure FillClosedCurve(points: array of Point);
|
||
/// Âűâîäčň íŕ đčńóíęĺ çŕďîëíĺííóţ çŕěęíóňóţ ęđčâóţ ďî ňî÷ęŕě, ęîîđäčíŕňű ęîňîđűő çŕäŕíű â ěŕńńčâĺ points
|
||
procedure ClosedCurve(points: array of Point);
|
||
|
||
/// Âűâîäčň íŕ đčńóíęĺ ńňđîęó s â ďđ˙ěîóăîëüíčę ę ęîîđäčíŕňŕěč ëĺâîăî âĺđőíĺăî óăëŕ (x,y)
|
||
procedure TextOut(x,y: integer; s: string);
|
||
/// Çŕëčâŕĺň íŕ đčńóíęĺ îáëŕńňü îäíîăî öâĺňŕ öâĺňîě c, íŕ÷číŕ˙ ń ňî÷ęč (x,y).
|
||
procedure FloodFill(x,y: integer; c: Color);
|
||
|
||
/// Î÷čůŕĺň đčńóíîę áĺëűě öâĺňîě
|
||
procedure Clear;
|
||
/// Î÷čůŕĺň đčńóíîę öâĺňîě c
|
||
procedure Clear(c: Color);
|
||
end;
|
||
|
||
type
|
||
ABCControl = class(Control)
|
||
private
|
||
procedure OnPaint(sender: Object; e: PaintEventArgs);
|
||
procedure OnClosing(sender: Object; e: FormClosingEventArgs);
|
||
procedure OnMouseDown(sender: Object; e: MouseEventArgs);
|
||
procedure OnMouseUp(sender: Object; e: MouseEventArgs);
|
||
procedure OnMouseMove(sender: Object; e: MouseEventArgs);
|
||
procedure OnKeyDown(sender: Object; e: KeyEventArgs);
|
||
procedure OnKeyUp(sender: Object; e: KeyEventArgs);
|
||
procedure OnKeyPress(sender: Object; e: KeyPressEventArgs);
|
||
procedure OnResize(sender: Object; e: EventArgs);
|
||
procedure Init;
|
||
protected
|
||
function IsInputKey(keyData: Keys): boolean; override;
|
||
procedure OnPaintBackground(e: PaintEventArgs); override; begin end; // ńŕěč âńĺ ďĺđĺđčńîâűâŕĺě!
|
||
public
|
||
constructor (w,h: integer);
|
||
end;
|
||
|
||
/// Âîçâđŕůŕĺň îęíî ăđŕôč÷ĺńęîăî ďđčëîćĺíč˙
|
||
function Window: GraphABCWindow;
|
||
/// Âîçâđŕůŕĺň ăëŕâíóţ ôîđěó ăđŕôč÷ĺńęîăî ďđčëîćĺíč˙
|
||
function MainForm: Form;
|
||
/// Âîçâđŕůŕĺň ăđŕôč÷ĺńęčé ęîěďîíĺíň
|
||
function GraphABCControl: ABCControl;
|
||
/// Âîçâđŕůŕĺň ňĺęóůĺĺ ďĺđî
|
||
function Pen: GraphABCPen;
|
||
/// Âîçâđŕůŕĺň ňĺęóůóţ ęčńňü
|
||
function Brush: GraphABCBrush;
|
||
/// Âîçâđŕůŕĺň ňĺęóůčé řđčôň
|
||
function Font: GraphABCFont;
|
||
|
||
function GraphWindowGraphics: Graphics;
|
||
function GraphBufferGraphics: Graphics;
|
||
function GraphBufferBitmap: Bitmap;
|
||
|
||
var
|
||
/// Ńîáűňčĺ íŕćŕňč˙ íŕ ęíîďęó ěűřč. (x,y) - ęîîđäčíŕňű ęóđńîđŕ ěűřč â ěîěĺíň íŕńňóďëĺíč˙ ńîáűňč˙, mousebutton = 1, ĺńëč íŕćŕňŕ ëĺâŕ˙ ęíîďęŕ ěűřč, č 2, ĺńëč íŕćŕňŕ ďđŕâŕ˙ ęíîďęŕ ěűřč
|
||
OnMouseDown: procedure (x,y,mousebutton: integer);
|
||
/// Ńîáűňčĺ îňćŕňč˙ ęíîďęč ěűřč. (x,y) - ęîîđäčíŕňű ęóđńîđŕ ěűřč â ěîěĺíň íŕńňóďëĺíč˙ ńîáűňč˙, mousebutton = 1, ĺńëč îňćŕňŕ ëĺâŕ˙ ęíîďęŕ ěűřč, č 2, ĺńëč îňćŕňŕ ďđŕâŕ˙ ęíîďęŕ ěűřč
|
||
OnMouseUp: procedure (x,y,mousebutton: integer);
|
||
/// Ńîáűňčĺ ďĺđĺěĺůĺíč˙ ěűřč. (x,y) - ęîîđäčíŕňű ęóđńîđŕ ěűřč â ěîěĺíň íŕńňóďëĺíč˙ ńîáűňč˙, mousebutton = 0, ĺńëč ęíîďęŕ ěűřč íĺ íŕćŕňŕ, 1, ĺńëč íŕćŕňŕ ëĺâŕ˙ ęíîďęŕ ěűřč, č 2, ĺńëč íŕćŕňŕ ďđŕâŕ˙ ęíîďęŕ ěűřč
|
||
OnMouseMove: procedure (x,y,mousebutton: integer);
|
||
/// Ńîáűňčĺ íŕćŕňč˙ ęëŕâčřč
|
||
OnKeyDown: procedure (key: integer);
|
||
/// Ńîáűňčĺ îňćŕňč˙ ęëŕâčřč
|
||
OnKeyUp: procedure (key: integer);
|
||
/// Ńîáűňčĺ íŕćŕňč˙ ńčěâîëüíîé ęëŕâčřč
|
||
OnKeyPress: procedure (ch: char);
|
||
/// Ńîáűňčĺ čçěĺíĺíč˙ đŕçěĺđŕ ăđŕôč÷ĺńęîăî îęíŕ
|
||
OnResize: procedure;
|
||
/// Ńîáűňčĺ çŕęđűňč˙ ăđŕôč÷ĺńęîăî îęíŕ
|
||
OnClose: procedure;
|
||
|
||
/// Ďđîöĺäóđíŕ˙ ďĺđĺěĺííŕ˙ ďĺđĺđčńîâęč ăđŕôč÷ĺńęîăî îęíŕ. Ĺńëč đŕâíŕ nil, ňî čńďîëüçóĺňń˙ ńňŕíäŕđňíŕ˙ ďĺđĺđčńîâęŕ
|
||
RedrawProc: procedure;
|
||
/// Ńëĺäóĺň ëč đčńîâŕňü âî âíĺýęđŕííîě áóôĺđĺ
|
||
DrawInBuffer: boolean;
|
||
|
||
implementation
|
||
|
||
uses
|
||
System.Threading,
|
||
GraphABCHelper;
|
||
|
||
const
|
||
FILE_NOT_FOUND_MESSAGE = 'Ôŕéë {0} íĺ íŕéäĺí';
|
||
|
||
type
|
||
Proc1Integer = procedure(x: integer);
|
||
Proc1String = procedure(s: string);
|
||
Proc2Integer = procedure(x,y: integer);
|
||
|
||
var
|
||
_Window: GraphABCWindow;
|
||
_Pen: GraphABCPen;
|
||
_Brush: GraphABCBrush;
|
||
_Font: GraphABCFont;
|
||
_MainForm: Form;
|
||
_GraphABCControl: ABCControl;
|
||
|
||
__buffer: Bitmap;
|
||
bmp: Bitmap;
|
||
gr: Graphics;
|
||
gbmp: Graphics;
|
||
|
||
f: ABCControl;
|
||
|
||
CurrentSolidBrush: SolidBrush;
|
||
CurrentHatchBrush: HatchBrush;
|
||
CurrentGradientBrush: LinearGradientBrush;
|
||
PixelBrush: SolidBrush;
|
||
|
||
x_coord,y_coord: integer;
|
||
NotLockDrawing: boolean;
|
||
|
||
StartIsComplete: boolean;
|
||
MainFormThread: System.Threading.Thread;
|
||
|
||
writecoords: Point;
|
||
CurrentWriteFont: System.Drawing.Font;
|
||
|
||
procedure SetCoordinateOrigin(x0,y0: integer);
|
||
begin
|
||
lock f do
|
||
begin
|
||
gr.ResetTransform();
|
||
gbmp.ResetTransform();
|
||
gr.TranslateTransform(x0,y0);
|
||
gbmp.TranslateTransform(x0,y0);
|
||
end;
|
||
end;
|
||
|
||
{function CurrentABCWindow: ABCWindow;
|
||
begin
|
||
Result := f;
|
||
end; }
|
||
|
||
procedure LockGraphics;
|
||
begin
|
||
Monitor.Enter(f);
|
||
end;
|
||
|
||
procedure UnLockGraphics;
|
||
begin
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure SetSmoothingOn;
|
||
begin
|
||
gr.SmoothingMode := SmoothingMode.AntiAlias;
|
||
gbmp.SmoothingMode := SmoothingMode.AntiAlias;
|
||
end;
|
||
|
||
procedure SetSmoothingOff;
|
||
begin
|
||
gr.SmoothingMode := SmoothingMode.None;
|
||
gbmp.SmoothingMode := SmoothingMode.None;
|
||
end;
|
||
|
||
procedure SetSmoothing(sm: boolean);
|
||
begin
|
||
if sm then
|
||
SetSmoothingOn
|
||
else SetSmoothingOff;
|
||
end;
|
||
|
||
function SmoothingIsOn: boolean;
|
||
begin
|
||
Result := gr.SmoothingMode = SmoothingMode.AntiAlias;
|
||
end;
|
||
|
||
function GraphWindowGraphics: Graphics;
|
||
begin
|
||
Result := gr;
|
||
end;
|
||
|
||
function GraphBufferGraphics: Graphics;
|
||
begin
|
||
Result := gbmp;
|
||
end;
|
||
|
||
function GraphBufferBitmap: Bitmap;
|
||
begin
|
||
Result := bmp;
|
||
end;
|
||
|
||
procedure Swap(var x1,x2: integer);
|
||
begin
|
||
var t := x1;
|
||
x1 := x2;
|
||
x2 := t;
|
||
end;
|
||
|
||
// Graphics Primitives
|
||
// ------------ __MyPen -----------------
|
||
procedure GraphABCPen.SetColor(c: GraphABC.Color);
|
||
begin
|
||
SetPenColor(c);
|
||
end;
|
||
|
||
function GraphABCPen.GetColor: GraphABC.Color;
|
||
begin
|
||
Result := PenColor;
|
||
end;
|
||
|
||
procedure GraphABCPen.SetWidth(w: integer);
|
||
begin
|
||
SetPenWidth(w);
|
||
end;
|
||
|
||
function GraphABCPen.GetWidth: integer;
|
||
begin
|
||
Result := PenWidth;
|
||
end;
|
||
|
||
procedure GraphABCPen.SetStyle(st: DashStyle);
|
||
begin
|
||
SetPenStyle(st);
|
||
end;
|
||
|
||
function GraphABCPen.GetStyle: DashStyle;
|
||
begin
|
||
Result := PenStyle;
|
||
end;
|
||
|
||
procedure GraphABCPen.SetMode(m: integer);
|
||
begin
|
||
SetPenMode(m);
|
||
end;
|
||
|
||
function GraphABCPen.GetMode: integer;
|
||
begin
|
||
Result := PenMode;
|
||
end;
|
||
|
||
procedure GraphABCPen.SetNETPen(p: System.Drawing.Pen);
|
||
begin
|
||
if p=nil then exit;
|
||
_NETPen := p;
|
||
end;
|
||
|
||
function GraphABCPen.GetX: integer;
|
||
begin
|
||
Result := PenX;
|
||
end;
|
||
|
||
function GraphABCPen.GetY: integer;
|
||
begin
|
||
Result := PenY;
|
||
end;
|
||
|
||
// ------------ GraphABCBrush -----------------
|
||
procedure GraphABCBrush.SetNETBrush(b: System.Drawing.Brush);
|
||
begin
|
||
//if b=nil then Exit;
|
||
_NETBrush := b;
|
||
end;
|
||
|
||
procedure GraphABCBrush.SetColor(c: GraphABC.Color);
|
||
begin
|
||
SetBrushColor(c);
|
||
end;
|
||
|
||
function GraphABCBrush.GetColor: GraphABC.Color;
|
||
begin
|
||
Result := BrushColor;
|
||
end;
|
||
|
||
procedure GraphABCBrush.SetStyle(st: BrushStyleType);
|
||
begin
|
||
SetBrushStyle(st);
|
||
end;
|
||
|
||
function GraphABCBrush.GetStyle: BrushStyleType;
|
||
begin
|
||
Result := BrushStyle;
|
||
end;
|
||
|
||
procedure GraphABCBrush.SetHatch(h: HatchStyle);
|
||
begin
|
||
SetBrushHatch(h);
|
||
end;
|
||
|
||
function GraphABCBrush.GetHatch: HatchStyle;
|
||
begin
|
||
Result := BrushHatch;
|
||
end;
|
||
|
||
procedure GraphABCBrush.SetHatchBackgroundColor(c: GraphABC.Color);
|
||
begin
|
||
SetHatchBrushBackgroundColor(c);
|
||
end;
|
||
|
||
function GraphABCBrush.GetHatchBackgroundColor: GraphABC.Color;
|
||
begin
|
||
Result := HatchBrushBackgroundColor;
|
||
end;
|
||
|
||
procedure GraphABCBrush.SetGradientSecondColor(c: GraphABC.Color);
|
||
begin
|
||
SetGradientBrushSecondColor(c);
|
||
end;
|
||
|
||
function GraphABCBrush.GetGradientSecondColor: GraphABC.Color;
|
||
begin
|
||
Result := GradientBrushSecondColor;
|
||
end;
|
||
|
||
// ------------ GraphABCFont -----------------
|
||
procedure GraphABCFont.SetNETFont(f: System.Drawing.Font);
|
||
begin
|
||
if f=nil then Exit;
|
||
_NetFont := f;
|
||
end;
|
||
|
||
procedure GraphABCFont.SetColor(c: GraphABC.Color);
|
||
begin
|
||
SetFontColor(c);
|
||
end;
|
||
|
||
function GraphABCFont.GetColor: GraphABC.Color;
|
||
begin
|
||
Result := FontColor;
|
||
end;
|
||
|
||
procedure GraphABCFont.SetStyle(st: FontStyleType);
|
||
begin
|
||
SetFontStyle(st);
|
||
end;
|
||
|
||
function GraphABCFont.GetStyle: FontStyleType;
|
||
begin
|
||
Result := FontStyle;
|
||
end;
|
||
|
||
procedure GraphABCFont.SetSize(sz: integer);
|
||
begin
|
||
SetFontSize(sz);
|
||
end;
|
||
|
||
function GraphABCFont.GetSize: integer;
|
||
begin
|
||
Result := FontSize;
|
||
end;
|
||
|
||
procedure GraphABCFont.SetName(nm: string);
|
||
begin
|
||
SetFontName(nm);
|
||
end;
|
||
|
||
function GraphABCFont.GetName: string;
|
||
begin
|
||
Result := FontName;
|
||
end;
|
||
|
||
// Picture
|
||
constructor Picture.Create(w,h: integer);
|
||
begin
|
||
if (w<=0) or (h<=0) then
|
||
raise new GraphABCException('w or h <= 0');
|
||
bmp := new Bitmap(w,h);
|
||
gb := Graphics.FromImage(bmp);
|
||
transpcolor := bmp.GetPixel(0,bmp.Height-1);
|
||
istransp := false;
|
||
savedbmp := nil;
|
||
end;
|
||
|
||
constructor Picture.Create(fname: string);
|
||
begin
|
||
try
|
||
bmp := new Bitmap(fname);
|
||
except on ex: System.ArgumentException do
|
||
raise new System.IO.FileNotFoundException(string.Format(FILE_NOT_FOUND_MESSAGE,fname));
|
||
end;
|
||
|
||
gb := Graphics.FromImage(bmp);
|
||
transpcolor := bmp.GetPixel(0,bmp.Height-1);
|
||
istransp := false;
|
||
savedbmp := nil;
|
||
end;
|
||
|
||
constructor Picture.Create(r: System.Drawing.Rectangle);
|
||
// Create from Screen
|
||
begin
|
||
bmp := new Bitmap(r.Width,r.Height);
|
||
gb := Graphics.FromImage(bmp);
|
||
gb.CopyFromScreen(r.Left,r.Top,0,0,r.Size);
|
||
transpcolor := bmp.GetPixel(0,bmp.Height-1);
|
||
istransp := false;
|
||
savedbmp := nil;
|
||
end;
|
||
|
||
procedure Picture.SetWidth(w: integer);
|
||
begin
|
||
SetSize(w,Height);
|
||
end;
|
||
|
||
function Picture.GetWidth: integer;
|
||
begin
|
||
Result := bmp.Width;
|
||
end;
|
||
|
||
procedure Picture.SetHeight(h: integer);
|
||
begin
|
||
SetSize(Width,h);
|
||
end;
|
||
|
||
function Picture.GetHeight: integer;
|
||
begin
|
||
Result := bmp.Height;
|
||
end;
|
||
|
||
// Ëîăčęŕ óńňŕíîâęč ďđîçđŕ÷íîńňč
|
||
// 1. Transparent := True - savedbmp:=bmp; bmp:=bmp.Clone; bmp.MakeTransparent(transpcolor);
|
||
// 2. Transparent := False - bmp.Dispose; bmp := savedbmp; savedbmp := nil;
|
||
// 3. Transparentcolor := c
|
||
// a) Ĺńëč Transparent = False, ňî ďđîńňî ďđčńâîčňü
|
||
// á) Ĺńëč Transparent = True, ňî bmp.Dispose; bmp:=savedbmp.Clone; bmp.MakeTransparent(transpcolor);
|
||
|
||
function Picture.GetTransparentColor: Color;
|
||
begin
|
||
Result := transpcolor;
|
||
end;
|
||
|
||
procedure Picture.SetTransparentColor(c: Color);
|
||
var ob: Object;
|
||
begin
|
||
if c=TransparentColor then
|
||
Exit;
|
||
transpcolor := c;
|
||
if istransp then
|
||
begin
|
||
bmp.Dispose;
|
||
ob := savedbmp.Clone;
|
||
bmp := Bitmap(ob);
|
||
bmp.MakeTransparent(transpcolor);
|
||
end;
|
||
end;
|
||
|
||
procedure Picture.SetTransparent(b: boolean);
|
||
var ob: Object;
|
||
begin
|
||
if b = istransp then
|
||
Exit;
|
||
istransp := b;
|
||
if istransp then
|
||
begin
|
||
savedbmp := bmp;
|
||
ob := bmp.Clone;
|
||
bmp := Bitmap(ob);
|
||
bmp.MakeTransparent(transpcolor);
|
||
end
|
||
else
|
||
begin
|
||
bmp.Dispose;
|
||
bmp := savedbmp;
|
||
savedbmp := nil;
|
||
end;
|
||
end;
|
||
|
||
procedure Picture.Load(fname: string);
|
||
begin
|
||
bmp.Dispose;
|
||
bmp := new Bitmap(fname);
|
||
gb := Graphics.FromImage(bmp);
|
||
istransp := False;
|
||
if savedbmp<>nil then
|
||
begin
|
||
savedbmp.Dispose;
|
||
savedbmp := nil;
|
||
end;
|
||
end;
|
||
|
||
procedure Picture.Save(fname: string);
|
||
begin
|
||
bmp.Save(fname);
|
||
end;
|
||
|
||
procedure Picture.SetSize(w,h: integer);
|
||
var oldbmp: Bitmap;
|
||
begin
|
||
oldbmp := bmp;
|
||
bmp := new Bitmap(oldbmp,w,h);
|
||
gb := Graphics.FromImage(bmp);
|
||
gb.DrawImage(oldbmp,0,0);
|
||
oldbmp.Dispose;
|
||
// TODO íĺ çíŕţ, ěîćĺň, íŕäî ÷ňî-ňî äĺëŕňü äë˙ ďđîçđŕ÷íîé
|
||
{ if istransp then
|
||
begin
|
||
end}
|
||
end;
|
||
|
||
function Picture.Intersect(p: Picture): boolean;
|
||
begin
|
||
// bmp.L
|
||
result := false;
|
||
// TODO
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
gr.DrawImage(bmp,x,y,bmp.Width,bmp.Height);
|
||
if DrawInBuffer then
|
||
gbmp.DrawImage(bmp,x,y,bmp.Width,bmp.Height);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y: integer; g: Graphics);
|
||
begin
|
||
g.DrawImage(bmp,x,y,bmp.Width,bmp.Height);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y,w,h: integer);
|
||
// Draw bmp scaled to size w,h
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
gr.DrawImage(bmp,x,y,w,h);
|
||
if DrawInBuffer then
|
||
gbmp.DrawImage(bmp,x,y,w,h);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y,w,h: integer; g: Graphics);
|
||
// Draw bmp scaled to size w,h
|
||
begin
|
||
g.DrawImage(bmp,x,y,w,h);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y: integer; r: System.Drawing.Rectangle);
|
||
// Draw bmp in rectangle r
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
gr.DrawImage(bmp,x,y,r,GraphicsUnit.Pixel);
|
||
if DrawInBuffer then
|
||
gbmp.DrawImage(bmp,x,y,r,GraphicsUnit.Pixel);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y: integer; r: System.Drawing.Rectangle; g: Graphics);
|
||
begin
|
||
g.DrawImage(bmp,x,y,r,GraphicsUnit.Pixel);
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y,w,h: integer; r: System.Drawing.Rectangle);
|
||
// Draw rectangle r portion of bmp scaled to size w,h
|
||
var
|
||
r1: System.Drawing.Rectangle;
|
||
tempbmp: Bitmap;
|
||
begin
|
||
r1 := new System.Drawing.Rectangle(x,y,w,h);
|
||
tempbmp := GetView(bmp,r);
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
gr.DrawImage(tempbmp,r1);
|
||
// gr.DrawImage(bmp,r1,r,GraphicsUnit.Pixel);
|
||
if DrawInBuffer then
|
||
gbmp.DrawImage(tempbmp,r1);
|
||
// gbmp.DrawImage(bmp,r1,r,GraphicsUnit.Pixel);
|
||
Monitor.Exit(f);
|
||
tempbmp.Dispose;
|
||
end;
|
||
|
||
procedure Picture.Draw(x,y,w,h: integer; r: System.Drawing.Rectangle; g: Graphics);
|
||
var tempbmp: Bitmap;
|
||
begin
|
||
tempbmp := GetView(bmp,r);
|
||
g.DrawImage(tempbmp,x,y,new System.Drawing.Rectangle(x,y,w,h),GraphicsUnit.Pixel);
|
||
tempbmp.Dispose;
|
||
end;
|
||
|
||
procedure Picture.CopyRect(dst: System.Drawing.Rectangle; p: Picture; src: System.Drawing.Rectangle);
|
||
// Copy src portion of p on dst rectangle of this picture
|
||
begin
|
||
CopyRect(dst,p.bmp,src);
|
||
end;
|
||
|
||
procedure Picture.CopyRect(dst: System.Drawing.Rectangle; bmp: Bitmap; src: System.Drawing.Rectangle);
|
||
var tempbmp: Bitmap;
|
||
begin
|
||
// Copy src portion of bmp on dst rectangle of this picture
|
||
tempbmp := GetView(bmp,src);
|
||
// gb.DrawImage(bmp,dst,src,GraphicsUnit.Pixel);
|
||
gb.DrawImage(tempbmp,dst);
|
||
tempbmp.Dispose;
|
||
end;
|
||
|
||
procedure Picture.FlipHorizontal;
|
||
begin
|
||
bmp.RotateFlip(RotateFlipType.RotateNoneFlipX);
|
||
end;
|
||
|
||
procedure Picture.FlipVertical;
|
||
begin
|
||
bmp.RotateFlip(RotateFlipType.RotateNoneFlipY);
|
||
end;
|
||
|
||
procedure Picture.SetPixel(x,y: integer; c: Color);
|
||
begin
|
||
bmp.SetPixel(x,y,c);
|
||
end;
|
||
|
||
procedure Picture.PutPixel(x,y: integer; c: Color);
|
||
begin
|
||
bmp.SetPixel(x,y,c);
|
||
end;
|
||
|
||
function Picture.GetPixel(x,y: integer): Color;
|
||
begin
|
||
Result := bmp.GetPixel(x,y);
|
||
end;
|
||
|
||
procedure Picture.Line(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.Line(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.Line(x1,y1,x2,y2: integer; c: Color);
|
||
begin
|
||
GraphABCHelper.Line(x1,y1,x2,y2,c,gb);
|
||
end;
|
||
|
||
procedure Picture.FillCircle(x,y,r: integer);
|
||
begin
|
||
GraphABCHelper.FillEllipse(x-r,y-r,x+r,y+r,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawCircle(x,y,r: integer);
|
||
begin
|
||
GraphABCHelper.DrawEllipse(x-r,y-r,x+r,y+r,gb);
|
||
end;
|
||
|
||
procedure Picture.FillEllipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.FillEllipse(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawEllipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.DrawEllipse(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.FillRectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.FillRectangle(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.FillRect(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.FillRectangle(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawRectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.DrawRectangle(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.Circle(x,y,r: integer);
|
||
begin
|
||
GraphABCHelper.Ellipse(x-r,y-r,x+r,y+r,gb);
|
||
end;
|
||
|
||
procedure Picture.Ellipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.Ellipse(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.Rectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
GraphABCHelper.Rectangle(x1,y1,x2,y2,gb);
|
||
end;
|
||
|
||
procedure Picture.RoundRect(x1,y1,x2,y2,w,h: integer);
|
||
begin
|
||
GraphABCHelper.RoundRect(x1,y1,x2,y2,w,h,gb);
|
||
end;
|
||
|
||
procedure Picture.Arc(x,y,r,a1,a2: integer);
|
||
begin
|
||
GraphABCHelper.Arc(x,y,r,a1,a2,gb);
|
||
end;
|
||
|
||
procedure Picture.FillPie(x,y,r,a1,a2: integer);
|
||
begin
|
||
GraphABCHelper.FillPie(x,y,r,a1,a2,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawPie(x,y,r,a1,a2: integer);
|
||
begin
|
||
GraphABCHelper.DrawPie(x,y,r,a1,a2,gb);
|
||
end;
|
||
|
||
procedure Picture.Pie(x,y,r,a1,a2: integer);
|
||
begin
|
||
GraphABCHelper.Pie(x,y,r,a1,a2,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawPolygon(points: array of Point);
|
||
begin
|
||
GraphABCHelper.DrawPolygon(points,gb);
|
||
end;
|
||
|
||
procedure Picture.FillPolygon(points: array of Point);
|
||
begin
|
||
GraphABCHelper.FillPolygon(points,gb);
|
||
end;
|
||
|
||
procedure Picture.Polygon(points: array of Point);
|
||
begin
|
||
GraphABCHelper.Polygon(points,gb);
|
||
end;
|
||
|
||
procedure Picture.Polyline(points: array of Point);
|
||
begin
|
||
GraphABCHelper.Polyline(points,gb);
|
||
end;
|
||
|
||
procedure Picture.Curve(points: array of Point);
|
||
begin
|
||
GraphABCHelper.Curve(points,gb);
|
||
end;
|
||
|
||
procedure Picture.DrawClosedCurve(points: array of Point);
|
||
begin
|
||
GraphABCHelper.DrawClosedCurve(points,gb);
|
||
end;
|
||
|
||
procedure Picture.FillClosedCurve(points: array of Point);
|
||
begin
|
||
GraphABCHelper.FillClosedCurve(points,gb);
|
||
end;
|
||
|
||
procedure Picture.ClosedCurve(points: array of Point);
|
||
begin
|
||
GraphABCHelper.ClosedCurve(points,gb);
|
||
end;
|
||
|
||
procedure Picture.TextOut(x,y: integer; s: string);
|
||
begin
|
||
GraphABCHelper.TextOut(x,y,s,gb);
|
||
end;
|
||
|
||
function ExtFloodFill(hdc: IntPtr; x,y: integer; color: integer; filltype: integer): boolean; external 'Gdi32.dll' name 'ExtFloodFill';
|
||
function SelectObject(hdc, hgdiobj: IntPtr): IntPtr; external 'Gdi32.dll' name 'SelectObject';
|
||
function CreateSolidBrush(c: integer): IntPtr; external 'Gdi32.dll' name 'CreateSolidBrush';
|
||
function DeleteObject(obj: IntPtr): integer; external 'Gdi32.dll' name 'DeleteObject';
|
||
function CreateCompatibleDC(obj: IntPtr): IntPtr; external 'Gdi32.dll' name 'CreateCompatibleDC';
|
||
|
||
procedure Picture.FloodFill(x,y: integer; c: Color);
|
||
var hdc,hBrush,hOldBrush: IntPtr;
|
||
begin
|
||
var borderColor: Color := GetPixel(x,y);
|
||
|
||
var bc := ColorTranslator.ToWin32(borderColor);
|
||
var cc := ColorTranslator.ToWin32(c);
|
||
|
||
Monitor.Enter(f);
|
||
|
||
hdc := gbmp.GetHDC();
|
||
hBrush := CreateSolidBrush(cc);
|
||
|
||
hOldBrush := SelectObject(hdc, hBrush);
|
||
ExtFloodFill(hdc, x, y, bc, 1);
|
||
SelectObject(hdc, holdBrush);
|
||
|
||
DeleteObject(hBrush);
|
||
|
||
gr.ReleaseHdc();
|
||
|
||
DeleteObject(hdc);
|
||
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Picture.Clear;
|
||
begin
|
||
Monitor.Enter(f);
|
||
gb.FillRectangle(Brushes.White,0,0,WindowWidth,WindowHeight);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Picture.Clear(c: Color);
|
||
begin
|
||
Monitor.Enter(f);
|
||
gb.FillRectangle(new SolidBrush(c),0,0,WindowWidth,WindowHeight);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
// ABCControl
|
||
function ABCControl.IsInputKey(keyData: Keys): boolean;
|
||
begin
|
||
Result := True;
|
||
end;
|
||
|
||
procedure ABCControl.Init;
|
||
begin
|
||
BackColor := System.Drawing.Color.White;
|
||
Dock := DockStyle.Fill;
|
||
|
||
Paint += OnPaint;
|
||
MouseDown += OnMouseDown;
|
||
MouseUp += OnMouseUp;
|
||
MouseMove += OnMouseMove;
|
||
Resize += OnResize;
|
||
KeyDown += OnKeyDown;
|
||
KeyUp += OnKeyUp;
|
||
KeyPress += OnKeyPress;
|
||
|
||
// These Events must be initialised in main form
|
||
// FormClosing += OnClosing;
|
||
|
||
// Initialization of global vars
|
||
|
||
bmp := new Bitmap(Screen.PrimaryScreen.Bounds.Width,Screen.PrimaryScreen.Bounds.Height);
|
||
gr := Graphics.FromHwnd(Handle);
|
||
gbmp := Graphics.FromImage(bmp);
|
||
__buffer:=bmp;
|
||
gbmp.FillRectangle(Brushes.White,0,0,Screen.PrimaryScreen.Bounds.Width,Screen.PrimaryScreen.Bounds.Height);
|
||
|
||
_Pen.NETPen := new System.Drawing.Pen(System.Drawing.Color.Black);
|
||
_Font.NETFont := new System.Drawing.Font('Arial',10);
|
||
|
||
PixelBrush := new SolidBrush(System.Drawing.Color.Black);
|
||
CurrentSolidBrush := new SolidBrush(System.Drawing.Color.White);
|
||
CurrentHatchBrush := new HatchBrush(HatchStyle.Cross,System.Drawing.Color.Black,System.Drawing.Color.White);
|
||
CurrentGradientBrush := new LinearGradientBrush(new Point(0,0), new Point(600,600),System.Drawing.Color.Black,System.Drawing.Color.White);
|
||
_Brush.NETBrush := CurrentSolidBrush;
|
||
|
||
CurrentWriteFont := new System.Drawing.Font('Courier New',10);
|
||
|
||
write(1);
|
||
NotLockDrawing := True;
|
||
write(2);
|
||
DrawInBuffer := True;
|
||
write(3);
|
||
RedrawProc := nil;
|
||
end;
|
||
|
||
constructor ABCControl.Create(w,h: integer);
|
||
begin
|
||
ClientSize := new System.Drawing.Size(w,h);
|
||
Init;
|
||
end;
|
||
|
||
procedure ABCControl.OnPaint(sender: object; e: PaintEventArgs);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if (e <> nil) and NotLockDrawing then
|
||
begin
|
||
if RedrawProc<>nil then
|
||
RedrawProc
|
||
else e.Graphics.DrawImage(bmp,0,0);
|
||
end;
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure ABCControl.OnClosing(sender: object; e: FormClosingEventArgs);
|
||
begin
|
||
if GraphABC.OnClose<>nil then
|
||
GraphABC.OnClose;
|
||
NotLockDrawing := False;
|
||
//Sleep(0);
|
||
Halt;
|
||
end;
|
||
|
||
procedure ABCControl.OnMouseDown(sender: Object; e: MouseEventArgs);
|
||
type MouseButtons = System.Windows.Forms.MouseButtons;
|
||
var mb: integer;
|
||
begin
|
||
if e.Button = MouseButtons.Left then
|
||
mb := 1
|
||
else if e.Button = MouseButtons.Right then
|
||
mb := 2;
|
||
if GraphABC.OnMouseDown<>nil then
|
||
GraphABC.OnMouseDown(e.x,e.y,mb);
|
||
end;
|
||
|
||
procedure ABCControl.OnMouseUp(sender: Object; e: MouseEventArgs);
|
||
type MouseButtons = System.Windows.Forms.MouseButtons;
|
||
var mb: integer;
|
||
begin
|
||
if e.Button = MouseButtons.Left then
|
||
mb := 1
|
||
else if e.Button = MouseButtons.Right then
|
||
mb := 2;
|
||
if GraphABC.OnMouseUp<>nil then
|
||
GraphABC.OnMouseUp(e.x,e.y,mb);
|
||
end;
|
||
|
||
procedure ABCControl.OnMouseMove(sender: Object; e: MouseEventArgs);
|
||
type MouseButtons = System.Windows.Forms.MouseButtons;
|
||
var mb: integer;
|
||
begin
|
||
if e.Button = MouseButtons.Left then
|
||
mb := 1
|
||
else if e.Button = MouseButtons.Right then
|
||
mb := 2;
|
||
if GraphABC.OnMouseMove<>nil then
|
||
GraphABC.OnMouseMove(e.x,e.y,mb);
|
||
end;
|
||
|
||
procedure ABCControl.OnKeyDown(sender: Object; e: KeyEventArgs);
|
||
begin
|
||
if GraphABC.OnKeyDown<>nil then
|
||
GraphABC.OnKeyDown(integer(e.KeyCode));
|
||
end;
|
||
|
||
procedure ABCControl.OnKeyUp(sender: Object; e: KeyEventArgs);
|
||
begin
|
||
if GraphABC.OnKeyUp<>nil then
|
||
GraphABC.OnKeyUp(integer(e.KeyCode));
|
||
end;
|
||
|
||
procedure ABCControl.OnKeyPress(sender: Object; e: KeyPressEventArgs);
|
||
begin
|
||
if GraphABC.OnKeyPress<>nil then
|
||
GraphABC.OnKeyPress(e.KeyChar);
|
||
end;
|
||
|
||
procedure ResizeHelper;
|
||
var t: SmoothingMode;
|
||
begin
|
||
Monitor.Enter(f);
|
||
t := gr.SmoothingMode;
|
||
gr := Graphics.FromHwnd(f.Handle);
|
||
gr.SmoothingMode := t;
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure ABCControl.OnResize(sender: Object; e: EventArgs);
|
||
begin
|
||
ResizeHelper;
|
||
if GraphABC.OnResize<>nil then
|
||
GraphABC.OnResize;
|
||
end;
|
||
|
||
// Primitives
|
||
procedure SetPixel(x,y: integer; c: Color);
|
||
var b: boolean;
|
||
begin
|
||
lock f do begin
|
||
if NotLockDrawing then begin
|
||
b := SmoothingIsOn;
|
||
SetSmoothingOff;
|
||
PixelBrush.Color := c;
|
||
gr.FillRectangle(PixelBrush,x,y,1,1);
|
||
SetSmoothing(b);
|
||
end;
|
||
if DrawInBuffer then
|
||
bmp.SetPixel(x,y,c);
|
||
end;
|
||
end;
|
||
|
||
procedure PutPixel(x,y: integer; c: Color);
|
||
var b: boolean;
|
||
begin
|
||
Monitor.Enter(f);
|
||
b := SmoothingIsOn;
|
||
SetSmoothingOff;
|
||
PixelBrush.Color := c;
|
||
if NotLockDrawing then
|
||
gr.FillRectangle(PixelBrush,x,y,1,1);
|
||
if DrawInBuffer then
|
||
gbmp.FillRectangle(PixelBrush,x,y,1,1);
|
||
SetSmoothing(b);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
function GetPixel(x,y: integer): Color;
|
||
begin
|
||
Monitor.Enter(f);
|
||
Result := bmp.GetPixel(x,y);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure MoveTo(x,y: integer);
|
||
begin
|
||
x_coord := x;
|
||
y_coord := y;
|
||
end;
|
||
|
||
procedure LineTo(x,y: integer);
|
||
begin
|
||
Line(x_coord,y_coord,x,y);
|
||
x_coord := x;
|
||
y_coord := y;
|
||
end;
|
||
|
||
procedure LineTo(x,y: integer; c: Color);
|
||
begin
|
||
Line(x_coord,y_coord,x,y,c);
|
||
x_coord := x;
|
||
y_coord := y;
|
||
end;
|
||
|
||
procedure Line(x1,y1,x2,y2: integer; c: Color);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
Line(x1,y1,x2,y2,c,gr);
|
||
if DrawInBuffer then
|
||
Line(x1,y1,x2,y2,c,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Line(x1,y1,x2,y2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
Line(x1,y1,x2,y2,gr);
|
||
if DrawInBuffer then
|
||
Line(x1,y1,x2,y2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillCircle(x,y,r: integer);
|
||
begin
|
||
FillEllipse(x-r,y-r,x+r,y+r);
|
||
end;
|
||
|
||
procedure DrawCircle(x,y,r: integer);
|
||
begin
|
||
DrawEllipse(x-r,y-r,x+r,y+r);
|
||
end;
|
||
|
||
procedure Circle(x,y,r: integer);
|
||
begin
|
||
Ellipse(x-r,y-r,x+r,y+r);
|
||
end;
|
||
|
||
procedure FillEllipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillEllipse(x1,y1,x2,y2,gr);
|
||
if DrawInBuffer then
|
||
FillEllipse(x1,y1,x2,y2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure DrawEllipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawEllipse(x1,y1,x2,y2,gr);
|
||
if DrawInBuffer then
|
||
DrawEllipse(x1,y1,x2,y2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Ellipse(x1,y1,x2,y2: integer);
|
||
begin
|
||
if Brush.NETBrush <> nil then
|
||
FillEllipse(x1,y1,x2,y2);
|
||
if Pen.NETPen.DashStyle <> DashStyle.Custom then
|
||
DrawEllipse(x1,y1,x2,y2);
|
||
end;
|
||
|
||
procedure FillRectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillRectangle(x1,y1,x2,y2,gr);
|
||
if DrawInBuffer then
|
||
FillRectangle(x1,y1,x2,y2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure DrawRectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawRectangle(x1,y1,x2,y2,gr);
|
||
if DrawInBuffer then
|
||
DrawRectangle(x1,y1,x2,y2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Rectangle(x1,y1,x2,y2: integer);
|
||
begin
|
||
if x1>x2 then
|
||
Swap(x1,x2);
|
||
if y1>y2 then
|
||
Swap(y1,y2);
|
||
if Brush.NETBrush <> nil then
|
||
FillRectangle(x1,y1,x2-1,y2-1);
|
||
if Pen.NETPen.DashStyle <> DashStyle.Custom then
|
||
DrawRectangle(x1,y1,x2,y2);
|
||
end;
|
||
|
||
procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawRoundRect(x1,y1,x2,y2,w,h,gr);
|
||
if DrawInBuffer then
|
||
DrawRoundRect(x1,y1,x2,y2,w,h,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillRoundRect(x1,y1,x2,y2,w,h: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillRoundRect(x1,y1,x2,y2,w,h,gr);
|
||
if DrawInBuffer then
|
||
FillRoundRect(x1,y1,x2,y2,w,h,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure RoundRect(x1,y1,x2,y2,w,h: integer);
|
||
begin
|
||
if Brush.NETBrush <> nil then
|
||
FillRoundRect(x1,y1,x2,y2,w,h);
|
||
if Pen.NETPen.DashStyle <> DashStyle.Custom then
|
||
DrawRoundRect(x1,y1,x2,y2,w,h);
|
||
end;
|
||
|
||
procedure Arc(x,y,r,a1,a2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
Arc(x,y,r,a1,a2,gr);
|
||
if DrawInBuffer then
|
||
Arc(x,y,r,a1,a2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillPie(x,y,r,a1,a2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillPie(x,y,r,a1,a2,gr);
|
||
if DrawInBuffer then
|
||
FillPie(x,y,r,a1,a2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure DrawPie(x,y,r,a1,a2: integer);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawPie(x,y,r,a1,a2,gr);
|
||
if DrawInBuffer then
|
||
DrawPie(x,y,r,a1,a2,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Pie(x,y,r,a1,a2: integer);
|
||
begin
|
||
if Brush.NETBrush <> nil then
|
||
FillPie(x,y,r,a1,a2);
|
||
if Pen.NETPen.DashStyle <> DashStyle.Custom then
|
||
DrawPie(x,y,r,a1,a2);
|
||
end;
|
||
|
||
procedure TextOut(x,y: integer; s: string);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
TextOut(x,y,s,gr);
|
||
if DrawInBuffer then
|
||
TextOut(x,y,s,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure DrawPolygon(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawPolygon(points,gr);
|
||
if DrawInBuffer then
|
||
DrawPolygon(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillPolygon(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillPolygon(points,gr);
|
||
if DrawInBuffer then
|
||
FillPolygon(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Polygon(points: array of Point);
|
||
begin
|
||
if Brush.NETBrush <> nil then
|
||
FillPolygon(points);
|
||
if Pen.NETPen.DashStyle <> DashStyle.Custom then
|
||
DrawPolygon(points);
|
||
end;
|
||
|
||
procedure Polyline(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
Polyline(points,gr);
|
||
if DrawInBuffer then
|
||
Polyline(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure Curve(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
Curve(points,gr);
|
||
if DrawInBuffer then
|
||
Curve(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure DrawClosedCurve(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
DrawClosedCurve(points,gr);
|
||
if DrawInBuffer then
|
||
DrawClosedCurve(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillClosedCurve(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
FillClosedCurve(points,gr);
|
||
if DrawInBuffer then
|
||
FillClosedCurve(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure ClosedCurve(points: array of Point);
|
||
begin
|
||
Monitor.Enter(f);
|
||
if NotLockDrawing then
|
||
ClosedCurve(points,gr);
|
||
if DrawInBuffer then
|
||
ClosedCurve(points,gbmp);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
// Fills
|
||
procedure FloodFill(x,y: integer; c: Color);
|
||
var hdc,hBrush,hOldBrush: IntPtr;
|
||
begin
|
||
var borderColor: Color := GetPixel(x,y);
|
||
// var bc: integer := integer(borderColor.R) + (integer(borderColor.G) shl 8) + (integer(borderColor.B) shl 16);
|
||
// var cc: integer := integer(c.R) + (integer(c.G) shl 8) + (integer(c.B) shl 16);
|
||
|
||
var bc := ColorTranslator.ToWin32(borderColor);
|
||
var cc := ColorTranslator.ToWin32(c);
|
||
|
||
Monitor.Enter(f);
|
||
|
||
hdc := gr.GetHDC();
|
||
hBrush := CreateSolidBrush(cc);
|
||
|
||
hOldBrush := SelectObject(hdc, hBrush);
|
||
ExtFloodFill(hdc, x, y, bc, 1);
|
||
SelectObject(hdc, holdBrush);
|
||
|
||
var hbmp := bmp.GetHbitmap(); // Ńîçäŕĺňń˙ GDI Bitmap
|
||
var memdc: IntPtr := CreateCompatibleDC(hdc);
|
||
SelectObject(memdc,hbmp);
|
||
|
||
hOldBrush := SelectObject(memdc, hBrush);
|
||
ExtFloodFill(memdc, x, y, bc, 1);
|
||
SelectObject(hdc, holdBrush);
|
||
|
||
bmp.Dispose();
|
||
bmp := Bitmap.FromHbitmap(hbmp);
|
||
|
||
DeleteObject(hBrush);
|
||
DeleteObject(hbmp);
|
||
DeleteObject(memdc);
|
||
|
||
gr.ReleaseHdc();
|
||
|
||
DeleteObject(hdc);
|
||
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillRect(x1,y1,x2,y2: integer);
|
||
begin
|
||
FillRectangle(x1,y1,x2,y2);
|
||
end;
|
||
|
||
// Colors
|
||
function RGB(r,g,b: byte): Color;
|
||
begin
|
||
Result := System.Drawing.Color.FromArgb(r,g,b);
|
||
end;
|
||
|
||
//------------------------------------------------------------------------------
|
||
// Color from component
|
||
//------------------------------------------------------------------------------
|
||
const AlphaBase = $FF000000;
|
||
|
||
function RedColor(r: byte): Color;
|
||
begin
|
||
Result := System.Drawing.Color.FromArgb(AlphaBase or (r shl 16));
|
||
end;
|
||
|
||
function GreenColor(g: byte): Color;
|
||
begin
|
||
Result := System.Drawing.Color.FromArgb(AlphaBase or (g shl 8));
|
||
end;
|
||
|
||
function BlueColor(b: byte): Color;
|
||
begin
|
||
Result := System.Drawing.Color.FromArgb(AlphaBase or b);
|
||
end;
|
||
//------------------------------------------------------------------------------
|
||
|
||
function ARGB(a,r,g,b: byte) : Color;
|
||
begin
|
||
Result := System.Drawing.Color.FromArgb(a,r,g,b);
|
||
// Result := ((((r shl 16) or (g shl 8)) or b) or (a shl 24)) and -1;
|
||
end;
|
||
|
||
function clRandom: Color;
|
||
begin
|
||
Result:=System.Drawing.Color.FromArgb(255,PABCSystem.Random(255),PABCSystem.Random(255),PABCSystem.Random(255));
|
||
end;
|
||
|
||
function GetRed(c: Color): integer;
|
||
begin
|
||
Result := c.R;
|
||
// Result := (c shr 16) and 255;
|
||
end;
|
||
|
||
function GetGreen(c: Color): integer;
|
||
begin
|
||
Result := c.G;
|
||
// Result := (c shr 8) and 255;
|
||
end;
|
||
|
||
function GetBlue(c: Color): integer;
|
||
begin
|
||
Result := c.B;
|
||
// Result := c and 255;
|
||
end;
|
||
|
||
// Pens
|
||
procedure SetPenColor(c: Color);
|
||
begin
|
||
//if Pen.NETPen.Color <> c then
|
||
lock f do
|
||
Pen.NETPen.Color := c;
|
||
end;
|
||
|
||
function PenColor: Color;
|
||
begin
|
||
Result := Pen.NETPen.Color;
|
||
end;
|
||
|
||
procedure SetPenWidth(Width: integer);
|
||
begin
|
||
lock f do
|
||
Pen.NETPen.Width := Width;
|
||
end;
|
||
|
||
function PenWidth: integer;
|
||
begin
|
||
Result := round(Pen.NETPen.Width);
|
||
end;
|
||
|
||
procedure SetPenStyle(style: DashStyle);
|
||
begin
|
||
LockGraphics;
|
||
// try
|
||
case style of
|
||
psSolid: Pen.NETPen.DashStyle := DashStyle.Solid;
|
||
psClear: Pen.NETPen.DashStyle := DashStyle.Custom;
|
||
psDash: Pen.NETPen.DashStyle := DashStyle.Dash;
|
||
psDot: Pen.NETPen.DashStyle := DashStyle.Dot;
|
||
psDashDot: Pen.NETPen.DashStyle := DashStyle.DashDot;
|
||
psDashDotDot: Pen.NETPen.DashStyle := DashStyle.DashDotDot;
|
||
end;
|
||
{ except
|
||
on e: System.InvalidOperationException do
|
||
writeln(e);
|
||
end;}
|
||
UnLockGraphics;
|
||
end;
|
||
|
||
function PenStyle: DashStyle;
|
||
begin
|
||
case Pen.NETPen.DashStyle of
|
||
DashStyle.Solid: Result := psSolid;
|
||
DashStyle.Dash: Result := psDash;
|
||
DashStyle.Dot: Result := psDot;
|
||
DashStyle.DashDot: Result := psDashDot;
|
||
DashStyle.DashDotDot: Result := psDashDotDot;
|
||
DashStyle.Custom: Result := psClear;
|
||
end;
|
||
end;
|
||
|
||
procedure SetPenMode(m: integer);
|
||
begin
|
||
// TODO
|
||
end;
|
||
|
||
function PenMode: integer;
|
||
begin
|
||
result := -1;
|
||
// TODO
|
||
end;
|
||
|
||
function PenX: integer;
|
||
begin
|
||
Result := x_coord;
|
||
end;
|
||
|
||
function PenY: integer;
|
||
begin
|
||
Result := y_coord;
|
||
end;
|
||
|
||
// Brushes
|
||
procedure SetBrushColor(c: Color);
|
||
begin
|
||
LockGraphics;
|
||
if Brush.NETBrush = CurrentHatchBrush then
|
||
CurrentHatchBrush := new HatchBrush(CurrentHatchBrush.HatchStyle,c,CurrentHatchBrush.BackgroundColor)
|
||
else
|
||
begin
|
||
// try
|
||
CurrentSolidBrush.Color := c;
|
||
{ except
|
||
on e: System.InvalidOperationException do
|
||
writeln(e.StackTrace);
|
||
end;}
|
||
CurrentGradientBrush.LinearColors[0] := CurrentSolidBrush.Color;
|
||
end;
|
||
UnLockGraphics;
|
||
end;
|
||
|
||
function BrushColor: Color;
|
||
begin
|
||
if Brush.NETBrush = CurrentHatchBrush then
|
||
Result := CurrentHatchBrush.ForegroundColor
|
||
else Result := CurrentSolidBrush.Color;
|
||
end;
|
||
|
||
procedure SetBrushStyle(bs: BrushStyleType);
|
||
begin
|
||
lock f do
|
||
case bs of
|
||
bsSolid: Brush.NETBrush := CurrentSolidBrush;
|
||
bsClear: Brush.NETBrush := nil;
|
||
bsHatch: Brush.NETBrush := CurrentHatchBrush;
|
||
bsGradient: Brush.NETBrush := CurrentGradientBrush;
|
||
end;
|
||
end;
|
||
|
||
function BrushStyle: BrushStyleType;
|
||
begin
|
||
if Brush.NETBrush = CurrentSolidBrush then
|
||
Result := bsSolid
|
||
else if Brush.NETBrush = nil then
|
||
Result := bsClear
|
||
else if Brush.NETBrush = CurrentHatchBrush then
|
||
Result := bsHatch
|
||
else if Brush.NETBrush = CurrentGradientBrush then
|
||
Result := bsGradient;
|
||
end;
|
||
|
||
procedure SetBrushHatch(bh: HatchStyle);
|
||
var flag: boolean;
|
||
begin
|
||
lock f do
|
||
begin
|
||
flag := CurrentHatchBrush = Brush.NETBrush;
|
||
CurrentHatchBrush := new HatchBrush(HatchStyle(bh),CurrentHatchBrush.ForegroundColor,CurrentHatchBrush.BackgroundColor);
|
||
if flag then
|
||
Brush.NETBrush := CurrentHatchBrush;
|
||
end;
|
||
end;
|
||
|
||
function BrushHatch: HatchStyle;
|
||
begin
|
||
Result := CurrentHatchBrush.HatchStyle;
|
||
end;
|
||
|
||
procedure SetHatchBrushBackgroundColor(c: Color);
|
||
var flag: boolean;
|
||
begin
|
||
lock f do
|
||
begin
|
||
flag := CurrentHatchBrush = Brush.NETBrush;
|
||
CurrentHatchBrush := new HatchBrush(CurrentHatchBrush.HatchStyle,CurrentHatchBrush.ForegroundColor,c);
|
||
if flag then
|
||
Brush.NETBrush := CurrentHatchBrush;
|
||
end;
|
||
end;
|
||
|
||
function HatchBrushBackgroundColor: Color;
|
||
begin
|
||
Result := CurrentHatchBrush.BackgroundColor;
|
||
end;
|
||
|
||
procedure SetGradientBrushSecondColor(c: Color);
|
||
begin
|
||
lock f do
|
||
CurrentGradientBrush.LinearColors[1] := c;
|
||
end;
|
||
|
||
function GradientBrushSecondColor: Color;
|
||
begin
|
||
Result := CurrentGradientBrush.LinearColors[1];
|
||
end;
|
||
|
||
// Fonts
|
||
procedure SetFontSize(size: integer);
|
||
begin
|
||
Font.NETFont := new System.Drawing.Font(Font.NETFont.Name,Convert.ToSingle(size),Font.NETFont.Style);
|
||
end;
|
||
|
||
function FontSize: integer;
|
||
begin
|
||
Result := round(Font.NETFont.SizeInPoints);
|
||
end;
|
||
|
||
procedure SetFontName(name: string);
|
||
begin
|
||
lock f do
|
||
Font.NETFont := new System.Drawing.Font(name,Font.NETFont.SizeInPoints,Font.NETFont.Style);
|
||
end;
|
||
|
||
function FontName: string;
|
||
begin
|
||
Result := Font.NETFont.Name;
|
||
end;
|
||
|
||
procedure SetFontColor(c: Color);
|
||
begin
|
||
lock f do
|
||
CurrentTextBrush.Color := c;
|
||
end;
|
||
|
||
function FontColor: Color;
|
||
begin
|
||
Result := CurrentTextBrush.Color;
|
||
end;
|
||
|
||
procedure SetFontStyle(fs: FontStyleType);
|
||
begin
|
||
lock f do
|
||
Font.NETFont := new System.Drawing.Font(Font.NETFont.name,Font.NETFont.SizeInPoints,System.Drawing.FontStyle(integer(fs)));
|
||
end;
|
||
|
||
function FontStyle: FontStyleType;
|
||
begin
|
||
Result := FontStyleType(integer(Font.NETFont.Style));
|
||
end;
|
||
|
||
function TextWidth(s: string): integer;
|
||
begin
|
||
// äîáŕâčë 1. Áĺç íĺĺ đčńóĺň, çŕíčěŕ˙ 1 ëčříčé ďčęńĺë
|
||
Result := round(gr.MeasureString(s,Font.NETFont,0,new StringFormat(StringFormat.GenericTypographic)).Width) + 1;
|
||
end;
|
||
|
||
function TextHeight(s: string): integer;
|
||
begin
|
||
Result := round(gr.MeasureString(s,Font.NETFont).Height);
|
||
end;
|
||
|
||
// Window
|
||
procedure ClearWindow;
|
||
begin
|
||
ClearWindow(clWhite);
|
||
end;
|
||
|
||
procedure ClearWindow(c: Color);
|
||
var i: Color;
|
||
begin
|
||
Monitor.Enter(f);
|
||
i := BrushColor;
|
||
SetBrushColor(c);
|
||
FillRect(0,0,GraphABCControl.Width,GraphABCControl.Height);
|
||
SetBrushColor(i);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
function WindowLeft: integer;
|
||
begin
|
||
Result := MainForm.Left;
|
||
end;
|
||
|
||
function WindowTop: integer;
|
||
begin
|
||
Result := MainForm.Top;
|
||
end;
|
||
|
||
function WindowCenter: Point;
|
||
begin
|
||
Result := new Point(WindowWidth div 2,WindowHeight div 2);
|
||
end;
|
||
|
||
function WindowIsFixedSize: boolean;
|
||
begin
|
||
Result := (MainForm.FormBorderStyle = FormBorderStyle.FixedSingle) and (MainForm.MaximizeBox = False);
|
||
end;
|
||
|
||
function WindowWidth: integer;
|
||
begin
|
||
Result := MainForm.ClientSize.Width;
|
||
end;
|
||
|
||
function WindowHeight: integer;
|
||
begin
|
||
Result := MainForm.ClientSize.Height;
|
||
end;
|
||
|
||
procedure SetWindowWidth(w: integer);
|
||
begin
|
||
SetWindowSize(w,MainForm.ClientSize.Height);
|
||
end;
|
||
|
||
procedure SetWindowHeight(h: integer);
|
||
begin
|
||
SetWindowSize(MainForm.ClientSize.Width,h);
|
||
end;
|
||
|
||
procedure SetWindowLeft(l: integer);
|
||
begin
|
||
SetWindowPos(l,MainForm.Top);
|
||
end;
|
||
|
||
procedure SetWindowTop(t: integer);
|
||
begin
|
||
SetWindowPos(MainForm.Left,t);
|
||
end;
|
||
|
||
procedure SetWindowIsFixedSize(b: boolean);
|
||
begin
|
||
if b then
|
||
begin
|
||
MainForm.FormBorderStyle := FormBorderStyle.FixedSingle;
|
||
MainForm.MaximizeBox := False;
|
||
end
|
||
else
|
||
begin
|
||
MainForm.FormBorderStyle := FormBorderStyle.Sizable;
|
||
MainForm.MaximizeBox := True;
|
||
end
|
||
end;
|
||
|
||
procedure ChangeFormPos(l,t: integer); // âńďîěîăŕňĺëüíŕ˙
|
||
begin
|
||
MainForm.Left := l;
|
||
MainForm.Top := t;
|
||
end;
|
||
|
||
procedure SetWindowPos(l,t: integer);
|
||
var p: Proc2Integer;
|
||
begin
|
||
p := ChangeFormPos;
|
||
f.Invoke(p,l,t);
|
||
end;
|
||
|
||
procedure ChangeFormClientSize(w,h: integer); // âńďîěîăŕňĺëüíŕ˙
|
||
begin
|
||
MainForm.ClientSize := new System.Drawing.Size(w,h);
|
||
ResizeHelper;
|
||
end;
|
||
|
||
procedure SetWindowSize(w,h: integer);
|
||
var p: Proc2Integer;
|
||
begin
|
||
p := ChangeFormClientSize;
|
||
f.Invoke(p,w,h);
|
||
//ResizeHelper;
|
||
end;
|
||
|
||
function GraphBoxWidth: integer;
|
||
begin
|
||
Result := f.Width;
|
||
end;
|
||
|
||
function GraphBoxHeight: integer;
|
||
begin
|
||
Result := f.Height;
|
||
end;
|
||
|
||
function GraphBoxLeft: integer;
|
||
begin
|
||
Result := f.Left;
|
||
end;
|
||
|
||
function GraphBoxTop: integer;
|
||
begin
|
||
Result := f.Top;
|
||
end;
|
||
|
||
function WindowCaption: string;
|
||
begin
|
||
Result := MainForm.Text;
|
||
end;
|
||
|
||
function WindowTitle: string;
|
||
begin
|
||
Result := MainForm.Text;
|
||
end;
|
||
|
||
procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color);
|
||
begin
|
||
SetWindowSize(Width, Height);
|
||
SetWindowPos(Left, Top);
|
||
SetBrushColor(BackColor);
|
||
FillRectangle(0, 0, Width, Height);
|
||
end;
|
||
|
||
procedure ChangeFormTitle(s: string);
|
||
begin
|
||
MainForm.Text := s;
|
||
end;
|
||
|
||
procedure SetWindowTitle(s: string);
|
||
var p: Proc1String;
|
||
begin
|
||
p := ChangeFormTitle;
|
||
f.Invoke(p,s);
|
||
end;
|
||
|
||
procedure SetWindowCaption(s: string);
|
||
begin
|
||
SetWindowTitle(s);
|
||
end;
|
||
|
||
procedure SaveWindow(fname: string);
|
||
begin
|
||
bmp.Save(fname);
|
||
end;
|
||
|
||
procedure LoadWindow(fname: string);
|
||
begin
|
||
var b: Bitmap := new Bitmap(fname);
|
||
SetWindowSize(b.Width,b.Height);
|
||
Monitor.Enter(f);
|
||
gr.DrawImage(b,0,0);
|
||
gbmp.DrawImage(b,0,0);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure FillWindow(fname: string);
|
||
begin
|
||
Monitor.Enter(f);
|
||
var b: System.Drawing.Brush := Brush.NETBrush;
|
||
Brush.NETBrush := new TextureBrush(Bitmap.FromFile(fname));
|
||
FillRect(0,0,GraphABCControl.Width,GraphABCControl.Height);
|
||
Brush.NETBrush := b;
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure CloseWindow;
|
||
begin
|
||
Halt;
|
||
end;
|
||
|
||
function ScreenWidth: integer;
|
||
begin
|
||
Result := Screen.PrimaryScreen.Bounds.Width;
|
||
end;
|
||
|
||
function ScreenHeight: integer;
|
||
begin
|
||
Result := Screen.PrimaryScreen.Bounds.Height;
|
||
end;
|
||
|
||
procedure CenterWindow;
|
||
begin
|
||
SetWindowPos((ScreenWidth - MainForm.Width) div 2, (ScreenHeight - MainForm.Height) div 2);
|
||
end;
|
||
|
||
procedure MaximizeWindow;
|
||
begin
|
||
MainForm.WindowState := FormWindowState.Maximized;
|
||
end;
|
||
|
||
procedure MinimizeWindow;
|
||
begin
|
||
MainForm.WindowState := FormWindowState.Minimized;
|
||
end;
|
||
|
||
procedure NormalizeWindow;
|
||
begin
|
||
MainForm.WindowState := FormWindowState.Normal
|
||
end;
|
||
|
||
// BufferedDraw
|
||
procedure Redraw;
|
||
var tempbmp: Bitmap;
|
||
begin
|
||
tempbmp := GetView(bmp,new System.Drawing.Rectangle(0,0,WindowWidth,WindowHeight));
|
||
Monitor.Enter(f);
|
||
if gr<>nil then
|
||
gr.DrawImage(tempbmp,0,0);
|
||
Monitor.Exit(f);
|
||
end;
|
||
procedure FullRedraw;
|
||
begin
|
||
Monitor.Enter(f);
|
||
if gr<>nil then
|
||
gr.DrawImage(bmp,0,0);
|
||
Monitor.Exit(f);
|
||
end;
|
||
|
||
procedure LockDrawing;
|
||
begin
|
||
NotLockDrawing := False;
|
||
end;
|
||
|
||
procedure UnlockDrawing;
|
||
begin
|
||
NotLockDrawing := True;
|
||
Redraw;
|
||
end;
|
||
|
||
procedure InitForm;
|
||
begin
|
||
f := new ABCControl(defaultWindowWidth,defaultWindowHeight);
|
||
_MainForm := new Form;
|
||
_MainForm.Text := 'GraphABC.NET';
|
||
_MainForm.ClientSize := new Size(defaultWindowWidth,defaultWindowHeight);
|
||
_MainForm.Controls.Add(f);
|
||
_MainForm.TopMost := True;
|
||
_MainForm.StartPosition := FormStartPosition.CenterScreen;
|
||
_MainForm.FormClosing += f.OnClosing;
|
||
end;
|
||
|
||
procedure InitForm0;
|
||
begin
|
||
InitForm;
|
||
StartIsComplete := True;
|
||
Application.Run(MainForm);
|
||
end;
|
||
|
||
function RobotUnitUsed: boolean;
|
||
var t: &Type;
|
||
begin
|
||
t := System.Reflection.Assembly.GetExecutingAssembly.GetType('Robot.Robot');
|
||
if t=nil then
|
||
result := false
|
||
else
|
||
result := t.GetField('__IS_ROBOT_UNIT') <> nil;
|
||
end;
|
||
|
||
procedure HideForm;
|
||
begin
|
||
_MainForm.Hide;
|
||
end;
|
||
|
||
function Window: GraphABCWindow;
|
||
begin
|
||
Result := _Window;
|
||
end;
|
||
|
||
function MainForm: Form;
|
||
begin
|
||
Result := _MainForm;
|
||
end;
|
||
|
||
function GraphABCControl: ABCControl;
|
||
begin
|
||
Result := _GraphABCControl;
|
||
end;
|
||
|
||
function Pen: GraphABCPen;
|
||
begin
|
||
Result := _Pen;
|
||
end;
|
||
|
||
function Brush: GraphABCBrush;
|
||
begin
|
||
Result := _Brush;
|
||
end;
|
||
|
||
function Font: GraphABCFont;
|
||
begin
|
||
Result := _Font;
|
||
end;
|
||
|
||
|
||
procedure GraphABCWindow.SetLeft(l: integer);
|
||
begin
|
||
SetWindowLeft(l);
|
||
end;
|
||
|
||
function GraphABCWindow.GetLeft: integer;
|
||
begin
|
||
Result := WindowLeft;
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetTop(t: integer);
|
||
begin
|
||
SetWindowTop(t);
|
||
end;
|
||
|
||
function GraphABCWindow.GetTop: integer;
|
||
begin
|
||
Result := WindowTop;
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetWidth(w: integer);
|
||
begin
|
||
SetWindowWidth(w);
|
||
end;
|
||
|
||
function GraphABCWindow.GetWidth: integer;
|
||
begin
|
||
Result := WindowWidth;
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetHeight(h: integer);
|
||
begin
|
||
SetWindowHeight(h);
|
||
end;
|
||
|
||
function GraphABCWindow.GetHeight: integer;
|
||
begin
|
||
Result := WindowHeight;
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetCaption(c: string);
|
||
begin
|
||
SetWindowCaption(c);
|
||
end;
|
||
|
||
function GraphABCWindow.GetCaption: string;
|
||
begin
|
||
Result := WindowCaption;
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetIsFixedSize(b: boolean);
|
||
begin
|
||
SetWindowIsFixedSize(b);
|
||
end;
|
||
|
||
function GraphABCWindow.GetIsFixedSize: boolean;
|
||
begin
|
||
Result := WindowIsFixedSize;
|
||
end;
|
||
|
||
procedure GraphABCWindow.Clear;
|
||
begin
|
||
ClearWindow;
|
||
end;
|
||
|
||
procedure GraphABCWindow.Clear(c: Color);
|
||
begin
|
||
ClearWindow(c);
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetSize(w,h: integer);
|
||
begin
|
||
SetWindowSize(w,h)
|
||
end;
|
||
|
||
procedure GraphABCWindow.SetPos(l,t: integer);
|
||
begin
|
||
SetWindowPos(l,t)
|
||
end;
|
||
|
||
procedure GraphABCWindow.Init(Left,Top,Width,Height: integer; BackColor: Color);
|
||
begin
|
||
InitWindow(Left,Top,Width,Height,BackColor);
|
||
end;
|
||
|
||
procedure GraphABCWindow.Save(fname: string);
|
||
begin
|
||
SaveWindow(fname);
|
||
end;
|
||
|
||
procedure GraphABCWindow.Load(fname: string);
|
||
begin
|
||
LoadWindow(fname);
|
||
end;
|
||
|
||
procedure GraphABCWindow.Fill(fname: string);
|
||
begin
|
||
FillWindow(fname);
|
||
end;
|
||
|
||
procedure GraphABCWindow.Close;
|
||
begin
|
||
CloseWindow
|
||
end;
|
||
|
||
procedure GraphABCWindow.Minimize;
|
||
begin
|
||
MinimizeWindow
|
||
end;
|
||
|
||
procedure GraphABCWindow.Maximize;
|
||
begin
|
||
MaximizeWindow;
|
||
end;
|
||
|
||
procedure GraphABCWindow.Normalize;
|
||
begin
|
||
NormalizeWindow;
|
||
end;
|
||
|
||
procedure GraphABCWindow.CenterOnScreen;
|
||
begin
|
||
CenterWindow;
|
||
end;
|
||
|
||
function GraphABCWindow.Center: Point;
|
||
begin
|
||
Result := WindowCenter;
|
||
end;
|
||
|
||
var firstcall := True;
|
||
|
||
procedure InitGraphABC;
|
||
begin
|
||
_Window := new GraphABCWindow;
|
||
_Pen := new GraphABCPen;
|
||
_Brush := new GraphABCBrush;
|
||
_Font := new GraphABCFont;
|
||
if not firstcall then exit;
|
||
firstcall := False;
|
||
clMoneyGreen := RGB(192,220,192);
|
||
StartIsComplete := False;
|
||
MainFormThread := new System.Threading.Thread(InitForm0);
|
||
MainFormThread.Start;
|
||
while not StartIsComplete do
|
||
Sleep(30);
|
||
Sleep(30);
|
||
SetSmoothingOn;
|
||
_GraphABCControl := f;
|
||
end;
|
||
|
||
initialization
|
||
InitGraphABC;
|
||
finalization
|
||
// Application.Run(MainWindow);
|
||
end. |