diff --git a/PABCNetHelp/CreateHelp.bat b/PABCNetHelp/CreateHelp.bat index 354713883..dddff8dec 100644 --- a/PABCNetHelp/CreateHelp.bat +++ b/PABCNetHelp/CreateHelp.bat @@ -1,5 +1,6 @@ cd DocGenForStandardUnits !GenDocPABCSystem.exe +!GenDocGraphWPF.exe !GenDocWPFObjects.exe cd .. "C:\Program Files (x86)\HTML Help Workshop\hhc.exe" PascalABCNET.hhp diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.exe b/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.exe new file mode 100644 index 000000000..6ea54103a Binary files /dev/null and b/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.exe differ diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.pas b/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.pas new file mode 100644 index 000000000..468a8f933 --- /dev/null +++ b/PABCNetHelp/DocGenForStandardUnits/!GenDocGraphWPF.pas @@ -0,0 +1,13 @@ +uses GenDocUnit; + +begin + fname1 := '..\..\bin\Lib\GraphWPF.pas'; + fname := '..\..\bin\Lib\GraphWPFBase.pas'; + RootOutputDirectory := 'PABCUnits\GraphWPF\'; + Step1; + Step2; + Step3; + Step3_1; + Step4; + FinalStep; +end. \ No newline at end of file diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.exe b/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.exe new file mode 100644 index 000000000..98bdc4df0 Binary files /dev/null and b/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.exe differ diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.pas b/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.pas index b8026e41a..7e3d8a358 100644 --- a/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.pas +++ b/PABCNetHelp/DocGenForStandardUnits/!GenDocPABCSystem.pas @@ -1,8 +1,8 @@ uses GenDocUnit; begin - fname := 'D:\PABC_Git\bin\Lib\PABCSystem.pas'; - fname1 := 'D:\PABC_Git\bin\Lib\PABCExtensions.pas'; + fname := '..\..\bin\Lib\PABCSystem.pas'; + fname1 := '..\..\bin\Lib\PABCExtensions.pas'; RootOutputDirectory := 'LangGuide\PABCSystemUnit\'; Step1; Step2; diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.exe b/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.exe new file mode 100644 index 000000000..6ccfbb8f3 Binary files /dev/null and b/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.exe differ diff --git a/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.pas b/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.pas index f93411283..86752e50b 100644 --- a/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.pas +++ b/PABCNetHelp/DocGenForStandardUnits/!GenDocWPFObjects.pas @@ -1,7 +1,7 @@ uses GenDocUnit; begin - fname := 'D:\PABC_Git\bin\Lib\WPFObjects.pas'; + fname := '..\..\bin\Lib\WPFObjects.pas'; RootOutputDirectory := 'PABCUnits\WPFObjects\'; Step1; Step2; diff --git a/PABCNetHelp/DocGenForStandardUnits/GenDocUnit.pas b/PABCNetHelp/DocGenForStandardUnits/GenDocUnit.pas index df74c9647..9f1626ce5 100644 --- a/PABCNetHelp/DocGenForStandardUnits/GenDocUnit.pas +++ b/PABCNetHelp/DocGenForStandardUnits/GenDocUnit.pas @@ -16,7 +16,7 @@ begin if fname1<>'' then ll := ll + ReadLines(fname1); - foreach var s in ReadLines(fname) do + foreach var s in ll do begin if s.StartsWith('//{{{doc:') then begin @@ -327,7 +327,7 @@ begin var pf := gr.Where(g->(g.Key='procedure') or (g.Key='function')); table += CreateSectionInClassDef('Методы класса '+classname,pf,Keywords); - if classbase<>'' then + while (classbase<>'') and dictClasses.ContainsKey(classbase) do begin gr := dictClasses[classbase].fds.GroupBy(fd->fd.fun.ToWords[0].Trim); // Добавить свойства предка @@ -336,6 +336,7 @@ begin // Добавить методы предка pf := gr.Where(g->(g.Key='procedure') or (g.Key='function')); table += CreateSectionInClassDef('Методы предка '+classbase,pf,nil); + classbase := dictClasses[classbase].basename; end; end else diff --git a/PABCNetHelp/DocGenForStandardUnits/hrefs.html b/PABCNetHelp/DocGenForStandardUnits/hrefs.html deleted file mode 100644 index 5cf3cf69a..000000000 --- a/PABCNetHelp/DocGenForStandardUnits/hrefs.html +++ /dev/null @@ -1,38 +0,0 @@ - -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
  • C
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
    • -
  • Lst, LLst, HSet, SSet, Dict, KV
    • -
    • -
  • XXX - !
    • -
  • Print
    • -
    • -
    • -
    • -
  • YYY - !
    • -
    • -
  • integer
    • -
  • BigInteger
    • -
  • real
    • -
  • char
    • -
  • string
    • -
  • Func
    • -
  • Complex
    • -
    • diff --git a/PABCNetHelp/DocGenForStandardUnits/toc.html b/PABCNetHelp/DocGenForStandardUnits/toc.html deleted file mode 100644 index 9903afea7..000000000 --- a/PABCNetHelp/DocGenForStandardUnits/toc.html +++ /dev/null @@ -1,149 +0,0 @@ - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - -
  • - - - diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for typed files.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for typed files.html index 4e5ec0f8a..9e3a21b4f 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for typed files.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for typed files.html @@ -9,22 +9,23 @@

    -
    function Read<T>(Self: file of T): T; + - - - - - - - -
    function Read<T>(Self: file of T): T;
            
    function Read2<T>(Self: file of T): (T,T); +
    function Read2<T>(Self: file of T): (T,T);
            
    function Read3<T>(Self: file of T): (T,T,T); +
    function Read3<T>(Self: file of T): (T,T,T);
            
    function ReadElements<T>(Self: file of T): sequence of T; +
    function ReadElements<T>(Self: file of T): sequence of T;
            
    function ReadElements<T>(fname: string): sequence of T;
             ,
    procedure Reset<T>(Self: file of T); +
    procedure Reset<T>(Self: file of T);
            
    procedure Rewrite<T>(Self: file of T); +
    procedure Rewrite<T>(Self: file of T);
            
    function Seek<T>(Self: file of T; n: int64): file of T; +
    function Seek<T>(Self: file of T; n: int64): file of T;
             n
    procedure Write<T>(Self: file of T; params vals: array of T); +
    procedure Write<T>(Self: file of T; params vals: array of T);
            
    \ No newline at end of file +
    + \ No newline at end of file diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for typed files.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for typed files.html index 515173521..f8bd6364a 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for typed files.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for typed files.html @@ -10,7 +10,7 @@

    -
    function CreateBinary<T>(fname: string): file of T; + @@ -28,4 +28,5 @@
             -
    function CreateBinary<T>(fname: string): file of T;
            
    function CreateFile<T>(fname: string): file of T;
            
    procedure WriteElements<T>(fname: string; ss: sequence of T);
             ,
    \ No newline at end of file +
    + \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/Graph3D/index.html b/PABCNetHelp/PABCUnits/Graph3D/index.html index 26d26b2c8..f322d214d 100644 --- a/PABCNetHelp/PABCUnits/Graph3D/index.html +++ b/PABCNetHelp/PABCUnits/Graph3D/index.html @@ -2,7 +2,7 @@ - + diff --git a/PABCNetHelp/PABCUnits/GraphWPF/index.html b/PABCNetHelp/PABCUnits/GraphWPF/index.html index d3c5ecb5f..d301e69b1 100644 --- a/PABCNetHelp/PABCUnits/GraphWPF/index.html +++ b/PABCNetHelp/PABCUnits/GraphWPF/index.html @@ -2,7 +2,7 @@ - + @@ -22,5 +22,27 @@ .

    GraphWPF WPF GraphABC.

    +

    GraphWPF , , , + . + :

    + +

     

    diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class CircleWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class CircleWPF.html index fa7619c9d..d27be548f 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class CircleWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class CircleWPF.html @@ -46,5 +46,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class EllipseWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class EllipseWPF.html index f899beb0f..4a468118a 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class EllipseWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class EllipseWPF.html @@ -35,5 +35,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class PolygonWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class PolygonWPF.html index daaaecac1..946976473 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class PolygonWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class PolygonWPF.html @@ -38,5 +38,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RectangleWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RectangleWPF.html index d9bd8b65c..77f2d8c6a 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RectangleWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RectangleWPF.html @@ -35,5 +35,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RegularPolygonWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RegularPolygonWPF.html index bb5e81468..a284e3b7b 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RegularPolygonWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RegularPolygonWPF.html @@ -49,5 +49,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundRectWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundRectWPF.html index a4b7fa0c5..eb349cf17 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundRectWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundRectWPF.html @@ -40,5 +40,74 @@
             function WithNoBorder: BoundedObjectWPF;
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundSquareWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundSquareWPF.html index 6f998ca0d..5ebef4e0b 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundSquareWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class RoundSquareWPF.html @@ -39,5 +39,88 @@
             function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): CircleWPF;
             + BoundedObjectWPF + +property BorderColor: GColor; +
             +property BorderWidth: real; +
             +property Color: GColor; +
             + BoundedObjectWPF + +function WithBorder(w: real := -1): BoundedObjectWPF; +
             +function WithNoBorder: BoundedObjectWPF; +
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class SquareWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class SquareWPF.html index 2b8e0c209..85b0467da 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class SquareWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class SquareWPF.html @@ -39,5 +39,88 @@
             function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): CircleWPF;
             + BoundedObjectWPF + +property BorderColor: GColor; +
             +property BorderWidth: real; +
             +property Color: GColor; +
             + BoundedObjectWPF + +function WithBorder(w: real := -1): BoundedObjectWPF; +
             +function WithNoBorder: BoundedObjectWPF; +
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class StarWPF.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class StarWPF.html index a78eb3502..9d6f04284 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/Class StarWPF.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/Class StarWPF.html @@ -49,5 +49,88 @@
             function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): RegularPolygonWPF;
             + BoundedObjectWPF + +property BorderColor: GColor; +
             +property BorderWidth: real; +
             +property Color: GColor; +
             + BoundedObjectWPF + +function WithBorder(w: real := -1): BoundedObjectWPF; +
             +function WithNoBorder: BoundedObjectWPF; +
             + ObjectWPF + +property Center: Point; +
             +property Color: GColor; +
             +property Dx: real; +
             X. Move +property Dy: real; +
             Y. Move +property FontColor: Color; +
             +property FontName: string; +
             +property FontSize: real; +
             +property Height: real; +
             +property Left: real; +
             +property LeftBottom: Point; +
             +property LeftTop: Point; +
             +property Number: integer; +
             , . Text +property RightBottom: Point; +
             +property RightTop: Point; +
             +property RotateAngle: real; +
             ( ) +property RotateCenter: Point; +
             +property Text: string; +
             +property TextAlignment: Alignment; +
             +property Top: real; +
             +property Width: real; +
             + ObjectWPF + +procedure AddChild(ch: ObjectWPF); +
             +procedure DeleteChild(ch: ObjectWPF); +
             +procedure Destroy; +
             +procedure Move := MoveOn(dx,dy); +
             (dx,dy) +procedure MoveForward(r: real); +
             RotateAngle ( RotateAngle=0) +procedure MoveOn(a,b: real); +
             (a,b) +procedure MoveTo(x,y: real); +
             (x,y) +procedure Rotate(da: real); +
             da +procedure ToBack; +
             +procedure ToFront; +
             + +function WithRotate(da: real): ObjectWPF; +
             +function WithText(txt: string; size: real := 16; fontname: string := 'Arial'; c: GColor := Colors.Black): ObjectWPF; +
             \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/Files/WPFObjects Variables.html b/PABCNetHelp/PABCUnits/WPFObjects/Files/WPFObjects Variables.html index af2845e99..3d6891641 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/Files/WPFObjects Variables.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/Files/WPFObjects Variables.html @@ -1,35 +1,14 @@ - - - - - - -

    WPFObjects

    - - - - - - - - -
    Objects: ObjectsType; -
            
    OnKeyDown: procedure(k: Key); -
            
    OnKeyPress: procedure(ch: char); -
            
    OnKeyUp: procedure(k: Key); -
            
    OnMouseDown: procedure(x, y: real; mousebutton: integer); -
             . (x,y) - , mousebutton = 1, , 2,
    OnMouseMove: procedure(x, y: real; mousebutton: integer); -
             . (x,y) - , mousebutton = 0, , 1, , 2,
    OnMouseUp: procedure(x, y: real; mousebutton: integer); -
             . (x,y) - , mousebutton = 1, , 2,
    OnResize: procedure; -
            
    Window: WindowType; + +
    Window: WindowType;
            
    GraphWindow: GraphWindowType;
            
    Objects: ObjectsType; +
            
    \ No newline at end of file diff --git a/PABCNetHelp/PABCUnits/WPFObjects/index.html b/PABCNetHelp/PABCUnits/WPFObjects/index.html index b5be46f62..151382ae1 100644 --- a/PABCNetHelp/PABCUnits/WPFObjects/index.html +++ b/PABCNetHelp/PABCUnits/WPFObjects/index.html @@ -23,6 +23,35 @@ WPFObjects WPF ABCObjects.

    +

    WPFObjects , , , + . + :

    + +

     

    +

     

    + +

     

    \ No newline at end of file diff --git a/PABCNetHelp/Table of Contents.hhc b/PABCNetHelp/Table of Contents.hhc index b1bb8ec42..8b06c57ec 100644 --- a/PABCNetHelp/Table of Contents.hhc +++ b/PABCNetHelp/Table of Contents.hhc @@ -918,6 +918,70 @@ +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + + +
  • + + +
  • @@ -935,6 +999,10 @@ +
  • + + +
  • @@ -988,21 +1056,21 @@
  • - +
  • - + +
  • + + +
  • -
  • - - -
  • @@ -1073,10 +1141,6 @@ -
  • - - -
  • @@ -1113,6 +1177,10 @@ +
  • + + +
  • diff --git a/bin/Lib/GraphWPF.pas b/bin/Lib/GraphWPF.pas index f08d1bdb8..02e54e1bb 100644 --- a/bin/Lib/GraphWPF.pas +++ b/bin/Lib/GraphWPF.pas @@ -30,7 +30,12 @@ function Invoke(d: Func0): T; function InvokeReal(f: ()->real): real; function InvokeString(f: ()->string): string;} +//{{{doc: Начало секции 1 }}} + type +// ----------------------------------------------------- +//>> Типы модуля GraphWPF # GraphWPF types +// ----------------------------------------------------- /// Тип клавиши Key = System.Windows.Input.Key; /// Цветовые константы @@ -41,14 +46,29 @@ type GColor = System.Windows.Media.Color; /// Тип прямоугольника GRect = System.Windows.Rect; + /// Тип окна GWindow = System.Windows.Window; GPen = System.Windows.Media.Pen; + /// Тип точки GPoint = System.Windows.Point; GBrush = System.Windows.Media.Brush; /// Тип стиля шрифта FontStyle = (Normal,Bold,Italic,BoldItalic); + + /// Виды системы координат + CoordType = (MathematicalCoords,StandardCoords); + /// Константы выравнивания текста относительно точки + Alignment = (LeftTop,CenterTop,RightTop,LeftCenter,Center,RightCenter,LeftBottom,CenterBottom,RightBottom); +//{{{--doc: Конец секции 1 }}} + +//{{{doc: Начало секции 2 }}} + +// ----------------------------------------------------- +//>> Класс BrushType # BrushType class +// ----------------------------------------------------- ///!# + /// Тип кисти BrushType = class private c := Colors.White; @@ -58,7 +78,11 @@ type property Color: GColor read c write c; end; +// ----------------------------------------------------- +//>> Класс PenType # PenType class +// ----------------------------------------------------- ///!# + /// Тип пера PenType = class private c: Color := Colors.Black; @@ -80,7 +104,11 @@ type property Y: real read fy; end; +// ----------------------------------------------------- +//>> Класс FontType # FontType class +// ----------------------------------------------------- ///!# + /// Тип шрифта FontType = class private tf := new Typeface('Arial'); @@ -114,6 +142,11 @@ type property Style: FontStyle write SetFS; end; +// ----------------------------------------------------- +//>> Класс GraphWindowType # GraphWPF GraphWindowType class +// ----------------------------------------------------- + ///!# + /// Тип графического окна GraphWindowType = class private function GetTop: real; @@ -138,6 +171,10 @@ type end; // Специфический тип окна для модуля GraphWPF +// ----------------------------------------------------- +//>> Класс WindowTypeWPF # WindowTypeWPF class +// ----------------------------------------------------- + /// Тип графического окна WindowTypeWPF WindowTypeWPF = class(WindowType) public /// Сохраняет содержимое графического окна в файл с именем fname @@ -148,12 +185,14 @@ type procedure Clear; override; end; +//{{{--doc: Конец секции 2 }}} - /// Виды системы координат - CoordType = (MathematicalCoords,StandardCoords); - /// Константы выравнивания текста относительно точки - Alignment = (LeftTop,CenterTop,RightTop,LeftCenter,Center,RightCenter,LeftBottom,CenterBottom,RightBottom); + +//{{{doc: Начало секции 3 }}} +// ----------------------------------------------------- +//>> Графические примитивы # GraphWPF primitives +// ----------------------------------------------------- /// Рисует эллипс с центром в точке (x,y) и радиусами rx и ry procedure Ellipse(x,y,rx,ry: real); /// Рисует контур эллипса с центром в точке (x,y) и радиусами rx и ry @@ -248,6 +287,9 @@ procedure DrawPolygon(points: array of Point; c: GColor); /// Рисует внутренность многоугольника, заданного массивом точек и цветом procedure FillPolygon(points: array of Point; c: GColor); +// ----------------------------------------------------- +//>> Функции для вывода изображений и видео # GraphWPF functions for images and video +// ----------------------------------------------------- /// Рисует изображение из файла fname в позиции (x,y) procedure DrawImage(x,y: real; fname: string); /// Рисует изображение из файла fname в позиции (x,y) размера w на h @@ -264,40 +306,9 @@ function ImageHeight(fname: string): integer; /// Размер изображения в пикселах function ImageSize(fname: string): (integer,integer); -/// Ширина текста при выводе -function TextWidth(text: string): real; -/// Высота текста при выводе -function TextHeight(text: string): real; -/// Размер текста при выводе -function TextSize(text: string): Size; - -/// Текущая кисть -var Brush: BrushType; -/// Текущее перо -var Pen: PenType; -/// Текущий шрифт -var Font: FontType; -/// Главное окно -var Window: WindowTypeWPF; -/// Графическое окно -var GraphWindow: GraphWindowType; - -var - /// Событие нажатия на кнопку мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши - OnMouseDown: procedure(x, y: real; mousebutton: integer); - /// Событие отжатия кнопки мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если отжата левая кнопка мыши, и 2, если отжата правая кнопка мыши - OnMouseUp: procedure(x, y: real; mousebutton: integer); - /// Событие перемещения мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 0, если кнопка мыши не нажата, 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши - OnMouseMove: procedure(x, y: real; mousebutton: integer); - /// Событие нажатия клавиши - OnKeyDown: procedure(k: Key); - /// Событие отжатия клавиши - OnKeyUp: procedure(k: Key); - /// Событие нажатия символьной клавиши - OnKeyPress: procedure(ch: char); - /// Событие изменения размера графического окна - OnResize: procedure; - +// ----------------------------------------------------- +//>> Вспомогательные функции GraphWPF # GraphWPF service functions +// ----------------------------------------------------- /// Возвращает цвет по красной, зеленой и синей составляющей (в диапазоне 0..255) function RGB(r,g,b: byte): Color; /// Возвращает цвет по красной, зеленой и синей составляющей и параметру прозрачности (в диапазоне 0..255) @@ -317,13 +328,19 @@ function ColorBrush(c: Color): GBrush; /// Возвращает однотонное цветное перо, заданное цветом function ColorPen(c: Color): GPen; -/// Начать анимацию, основанную на кадре +// ----------------------------------------------------- +//>> Процедуры покадровой анимации # GraphWPF FrameBasedAnimation functions +// ----------------------------------------------------- +/// Начинает анимацию, основанную на кадре. Перед рисованием каждого кадра содержимое окна стирается, затем вызывается процедура Draw procedure BeginFrameBasedAnimation(Draw: procedure; frate: integer := 60); -/// Начать анимацию, основанную на кадре +/// Начинает анимацию, основанную на кадре Перед рисованием каждого кадра содержимое окна стирается, затем вызывается процедура Draw с параметром, равным номеру кадра procedure BeginFrameBasedAnimation(Draw: procedure(frame: integer); frate: integer := 60); -/// Завершить анимацию, основанную на кадре +/// Завершает анимацию, основанную на кадре procedure EndFrameBasedAnimation; +// ----------------------------------------------------- +//>> Функции для вывода текста # GraphWPF text functions +// ----------------------------------------------------- /// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) procedure DrawText(x, y, w, h: real; text: string; align: Alignment := Alignment.Center; angle: real := 0.0); /// Выводит строку в прямоугольник к координатами левого верхнего угла (x,y) @@ -362,6 +379,16 @@ procedure TextOut(x, y: real; text: real; align: Alignment := Alignment.LeftTop; /// Выводит вещественное в позицию (x,y) цветом c procedure TextOut(x, y: real; text: real; c: GColor; align: Alignment := Alignment.LeftTop; angle: real := 0.0); +/// Ширина текста при выводе +function TextWidth(text: string): real; +/// Высота текста при выводе +function TextHeight(text: string): real; +/// Размер текста при выводе +function TextSize(text: string): Size; + +// ----------------------------------------------------- +//>> Функции для вывода графиков # GraphWPF graph functions +// ----------------------------------------------------- /// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, в прямоугольнике, задаваемом координатами x1,y1,x2,y2, procedure DrawGraph(f: real -> real; a, b, min, max, x, y, w, h: real); /// Рисует график функции f, заданной на отрезке [a,b] по оси абсцисс и на отрезке [min,max] по оси ординат, в прямоугольнике r @@ -379,17 +406,65 @@ procedure DrawGraph(f: real -> real; a, b: real); /// Рисует график функции f, заданной на отрезке [-5,5], на полное графическое окно procedure DrawGraph(f: real -> real); -procedure SetMathematicCoords(x1: real := -10; x2: real := 10; drawcoords: boolean := true); -procedure SetMathematicCoords(x1,x2,ymin: real; drawcoords: boolean := true); +// ----------------------------------------------------- +//>> Функции для настройки системы координат # GraphWPF coordinate system functions +// ----------------------------------------------------- +/// Устанавливает математическую систему координат с диапазоном [x1,x2] по оси OX. +procedure SetMathematicCoords(x1: real := -10; x2: real := 10; drawgrid: boolean := true); +/// Устанавливает математическую систему координат с диапазоном [x1,x2] по оси OX и минимальной координатой ymin по оси OY +procedure SetMathematicCoords(x1,x2,ymin: real; drawgrid: boolean := true); +/// Устанавливает стандартную систему координат (ось OY направлена вниз) с центром (x0,y0) procedure SetStandardCoords(scale: real := 1.0; x0: real := 0; y0: real := 0); +/// Устанавливает стандартную систему координат с центром (x0,y0). Изображение не масштабируется к разрешению монитора и линии получаются чёткими procedure SetStandardCoordsSharpLines(x0: real := 0; y0: real := 0); +/// Рисует сетку системы координат procedure DrawGrid; +/// Минимальная отображаемая x-координата function XMin: real; +/// Максимальная отображаемая x-координата function XMax: real; +/// Минимальная отображаемая y-координата function YMin: real; +/// Максимальная отображаемая y-координата function YMax: real; +// ----------------------------------------------------- +//>> Переменные модуля GraphWPF # GraphWPF variables +// ----------------------------------------------------- +/// Текущая кисть +var Brush: BrushType; +/// Текущее перо +var Pen: PenType; +/// Текущий шрифт +var Font: FontType; +/// Главное окно +var Window: WindowTypeWPF; +/// Графическое окно +var GraphWindow: GraphWindowType; + +// ----------------------------------------------------- +//>> События модуля GraphWPF # GraphWPF events +// ----------------------------------------------------- +var + /// Событие нажатия на кнопку мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши + OnMouseDown: procedure(x, y: real; mousebutton: integer); + /// Событие отжатия кнопки мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если отжата левая кнопка мыши, и 2, если отжата правая кнопка мыши + OnMouseUp: procedure(x, y: real; mousebutton: integer); + /// Событие перемещения мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 0, если кнопка мыши не нажата, 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши + OnMouseMove: procedure(x, y: real; mousebutton: integer); + /// Событие нажатия клавиши + OnKeyDown: procedure(k: Key); + /// Событие отжатия клавиши + OnKeyUp: procedure(k: Key); + /// Событие нажатия символьной клавиши + OnKeyPress: procedure(ch: char); + /// Событие изменения размера графического окна + OnResize: procedure; + + +//{{{--doc: Конец секции 3 }}} + {procedure AddRightPanel(Width: real := 200; c: Color := Colors.LightGray); procedure AddLeftPanel(Width: real := 200; c: Color := Colors.LightGray); procedure AddTopPanel(Height: real := 100; c: Color := Colors.LightGray); @@ -1235,7 +1310,7 @@ begin end; procedure SetMathematicCoordsScale(x0,y0,scale: real) := Invoke(SetMathematicCoordsScaleP,x0,y0,scale); -procedure SetMathematicCoordsP(x1,x2: real; drawcoords: boolean); +procedure SetMathematicCoordsP(x1,x2: real; drawgrid: boolean); begin if CurrentCoordType = StandardCoords then StandardCoordsPenWidthSave := Pen.Width; @@ -1247,10 +1322,10 @@ begin XOrigin := -x1*GlobalScale; YOrigin := Window.Height/2; SetMathematicCoordsScaleP(XOrigin,YOrigin,GlobalScale); - if drawcoords then + if drawgrid then DrawGridP end; -procedure SetMathematicCoordsP1(x1,x2,ymin: real; drawcoords: boolean); +procedure SetMathematicCoordsP1(x1,x2,ymin: real; drawgrid: boolean); begin if CurrentCoordType = StandardCoords then StandardCoordsPenWidthSave := Pen.Width; @@ -1264,11 +1339,11 @@ begin // Window.Height + ymin*scale YOrigin := Window.Height + ymin*GlobalScale; SetMathematicCoordsScaleP(XOrigin,YOrigin,GlobalScale); - if drawcoords then + if drawgrid then DrawGridP end; -procedure SetMathematicCoords(x1: real; x2: real; drawcoords: boolean) := Invoke(SetMathematicCoordsP,x1,x2,drawcoords); -procedure SetMathematicCoords(x1,x2,ymin: real; drawcoords: boolean) := Invoke(SetMathematicCoordsP1,x1,x2,ymin,drawcoords); +procedure SetMathematicCoords(x1: real; x2: real; drawgrid: boolean) := Invoke(SetMathematicCoordsP,x1,x2,drawgrid); +procedure SetMathematicCoords(x1,x2,ymin: real; drawgrid: boolean) := Invoke(SetMathematicCoordsP1,x1,x2,ymin,drawgrid); procedure SetStandardCoordsP(scale: real := 1.0; x0: real := 0; y0: real := 0); begin diff --git a/bin/Lib/GraphWPFBase.pas b/bin/Lib/GraphWPFBase.pas index 05809118d..0fc2a1dba 100644 --- a/bin/Lib/GraphWPFBase.pas +++ b/bin/Lib/GraphWPFBase.pas @@ -71,8 +71,13 @@ function Inv(p: ()->T): T := Invoke&(p); // Теперь это работ function MainDockPanel: DockPanel := MainWindow.MainPanel; +//{{{doc: Начало секции 1 }}} type +// ----------------------------------------------------- +//>> Класс WindowType # WindowType class +// ----------------------------------------------------- ///!# + /// Тип главного окна приложения WindowType = class private procedure SetLeft(l: real); @@ -121,6 +126,7 @@ type /// Возвращает прямоугольник клиентской области окна function ClientRect: GRect; end; +//{{{--doc: Конец секции 1 }}} function wplus := SystemParameters.WindowResizeBorderThickness.Left + SystemParameters.WindowResizeBorderThickness.Right; diff --git a/bin/Lib/WPFObjects.pas b/bin/Lib/WPFObjects.pas index b22e83e20..0d286261b 100644 --- a/bin/Lib/WPFObjects.pas +++ b/bin/Lib/WPFObjects.pas @@ -873,8 +873,13 @@ type var Window: WindowType; /// Графическое окно var GraphWindow: GraphWindowType; +/// Список графических объектов +var Objects: ObjectsType; var +// ----------------------------------------------------- +//>> События модуля WPFObjects# WPFObjects events +// ----------------------------------------------------- /// Событие нажатия на кнопку мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если нажата левая кнопка мыши, и 2, если нажата правая кнопка мыши OnMouseDown: procedure(x, y: real; mousebutton: integer); /// Событие отжатия кнопки мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если отжата левая кнопка мыши, и 2, если отжата правая кнопка мыши @@ -889,8 +894,6 @@ var OnKeyPress: procedure(ch: char); /// Событие изменения размера графического окна OnResize: procedure; - /// Список графических объектов - Objects: ObjectsType; // ----------------------------------------------------- //>> Функции пересечения# Intersection functions diff --git a/bin/PascalABCNET.chm b/bin/PascalABCNET.chm index 9a0364c86..c3bc2f946 100644 Binary files a/bin/PascalABCNET.chm and b/bin/PascalABCNET.chm differ