From eccc96de15af05fea903383a9141560e48306de0 Mon Sep 17 00:00:00 2001 From: tslediter Date: Fri, 26 Jan 2024 16:37:33 +0800 Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 添加绘图功能库 --- funcext/tvclib/tcustomcontrol.tsf | 11 +- funcext/tvclib/twincontrol.tsf | 11 +- funcext/tvclib/ugtkinterface.tsf | 42 +- funcext/tvclib/utslvclauxiliary.tsf | 2 +- funcext/tvclib/utslvclgdi.tsf | 85 +- funcext/tvclib/utvclgraphics.tsf | 1790 +++++++++++++++++++++++++++ 6 files changed, 1926 insertions(+), 15 deletions(-) create mode 100644 funcext/tvclib/utvclgraphics.tsf diff --git a/funcext/tvclib/tcustomcontrol.tsf b/funcext/tvclib/tcustomcontrol.tsf index 3cb371a..82af9e0 100644 --- a/funcext/tvclib/tcustomcontrol.tsf +++ b/funcext/tvclib/tcustomcontrol.tsf @@ -11,12 +11,15 @@ type tcustomcontrol=class(TWinControl) begin //odh := canvas.Handle; Canvas.Handle := dc; - Canvas.ClipRect := PAINTSTRUCT().rcpaint(); - try + canvas.font := font; + canvas.brush.Color := Color; + Canvas.requiregdi(); + Canvas.rcpaint := PAINTSTRUCT().rcpaint(); + try Paint(); finally - Canvas.Handle := odh; - end; + Canvas.Handle := 0; + end; end procedure Paint();override; begin diff --git a/funcext/tvclib/twincontrol.tsf b/funcext/tvclib/twincontrol.tsf index 1a6f808..ff8785d 100644 --- a/funcext/tvclib/twincontrol.tsf +++ b/funcext/tvclib/twincontrol.tsf @@ -241,7 +241,12 @@ type TWinControl = class(tcontrol) begin factivated := false; FWsPopUp := nv; - if HandleAllocated()then RecreateWnd(); + vb := Visible; + if HandleAllocated()then + begin + RecreateWnd(); + if vb and nv then show(); //´¦Àí¶¥²ã´°¿ÚµÄÏÔʾ + end end end function GetWsPopUp();virtual; @@ -1257,6 +1262,8 @@ type TWinControl = class(tcontrol) memdc := _wapi.CreateCompatibleDC(0); if not memdc then exit; oldmp := _wapi.SelectObject(memdc,mbit); + _wapi.SaveDC(memdc); + _wapi.SetGraphicsMode(memdc,2); {$else} cr := ClientRect; @@ -1280,6 +1287,7 @@ type TWinControl = class(tcontrol) rc := ps.rcpaint; {$ifdef gdipaint} + _wapi.RestoreDC(memdc,-1); _wapi.BitBlt(dc,rc[0],rc[1],rc[2]-rc[0],rc[3]-rc[1],memdc,rc[0],rc[1],SRCCOPY); //_wapi.BitBlt(dc,c[0],c[1],c[2],c[3],memdc,0,0,SRCCOPY); {$else} _wapi.SelectClipRgn(memdc,0); @@ -1420,6 +1428,7 @@ type TWinControl = class(tcontrol) end procedure PaintHandler(var TheMessage:TLMPaint); //type_twinctrol begin + hdc := TheMessage.wparam; PaintWindow(TheMessage.wparam); //c := ClientRect; c := array(0,0); //ÉèÖûù×¼µã,Ϊ00 20201112 ÐÞ¸Ä diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf index d6b91f3..48d119c 100644 --- a/funcext/tvclib/ugtkinterface.tsf +++ b/funcext/tvclib/ugtkinterface.tsf @@ -1824,9 +1824,42 @@ type tsgtkapi = class(tgtkapis) cairo_scale(dc,1,rx/ry); cairo_translate(dc,0-mx,0-my); end - Function Polygon(hdc :pointer;points:array of integer;n:integer):integer; + Function Polygon(dc :pointer;points:array of integer;n:integer):integer; begin - + if n<3 then return ; + x := gtk_object_get_data(dc,"viewport.x"); + y := gtk_object_get_data(dc,"viewport.y"); + pc := gtk_object_get_data(dc,"pen.color"); + brc := gtk_object_get_data(dc,"brush.color"); + pw := gtk_object_get_data(dc,"pen.width"); + if pw>0 then cairo_set_line_width(dc,pw); + else cairo_set_line_width(dc,1); + + //cairo_move_to(dc,points[0]+x,Points[1]+y); + cairo_applay_pen_style(dc); + for i := 0 to n-1 do + begin + cairo_line_to(dc,Points[i,0]+x,Points[i,1]+y); + end + cairo_line_to(dc,Points[0,0]+x,Points[0,1]+y); + if brc=0 then + begin + cairo_set_source_rgb(dc,0,0,0); + end else + begin + gtk_rgb_color_rgb(brc,rc,gc,bc); + cairo_set_source_rgb(dc,rc,gc,bc); + end + cairo_fill_preserve(dc); + if pc=0 then + begin + cairo_set_source_rgb(dc,0,0,0); + end else + begin + gtk_rgb_color_rgb(pc,rc,gc,bc); + cairo_set_source_rgb(dc,rc,gc,bc); + end + cairo_stroke(dc); end Function PolyBezier(dc :pointer;points:array of integer;n:integer):integer; begin @@ -1875,11 +1908,10 @@ type tsgtkapi = class(tgtkapis) gtk_rgb_color_rgb(pc,rc,gc,bc); cairo_set_source_rgb(dc,rc,gc,bc); end - cairo_move_to(dc,points[0]+x,Points[1]+y); cairo_applay_pen_style(dc); - for i := 1 to n-1 do + for i := 0 to n-1 do begin - cairo_line_to(dc,Points[i*2]+x,Points[i*2+1]+y); + cairo_line_to(dc,Points[i,0]+x,Points[i,1]+y); end cairo_stroke(dc); end diff --git a/funcext/tvclib/utslvclauxiliary.tsf b/funcext/tvclib/utslvclauxiliary.tsf index 8d3052a..3cd184a 100644 --- a/funcext/tvclib/utslvclauxiliary.tsf +++ b/funcext/tvclib/utslvclauxiliary.tsf @@ -2226,7 +2226,7 @@ type TIniFileExter=class() ffilename; finiobj; end -type TCanvsRgnClipAutoSave=class +type TCanvsRgnClipAutoSave=class() {** @expan(˵Ã÷) ²Ã¼ôcanvasÇøÓò,Ïú»Ùʱ»¹Ô­ %% **} diff --git a/funcext/tvclib/utslvclgdi.tsf b/funcext/tvclib/utslvclgdi.tsf index 7271f09..6c3f774 100644 --- a/funcext/tvclib/utslvclgdi.tsf +++ b/funcext/tvclib/utslvclgdi.tsf @@ -524,7 +524,7 @@ type tcustompen=class(tgdi) begin w := FWidth; end else - w := 0; + w := 0; hp := _wapi.CreatePen(FStyle,w,FColor); addsource(hp); end @@ -2339,6 +2339,7 @@ type TcustomCanvas = class(TSLUIBASE) FFont := new Tcustomfont(); FFont.Canvas := self; FTEXTMETRICA := new ttagTEXTMETRICA(); + _xformobj := new Ttagxform(); end function Recycling();override; begin @@ -2627,6 +2628,17 @@ type TcustomCanvas = class(TSLUIBASE) if HandleAllocated() then requiregdi(); return new tshapeBezier(self(true)); end + function draw_polygon(); //Ìî³äÕÛÏß»æÖÆ + begin + if HandleAllocated() then requiregdi(); + return new tshapepolygon(self(true)); + end + function draw_polyline(); //ÕÛÏß»æÖÆ + begin + if HandleAllocated() then requiregdi(); + return new tshapepolyline(self(true)); + end + function draw(name_,points,f,m); begin {** @@ -2738,8 +2750,6 @@ type TcustomCanvas = class(TSLUIBASE) {$ifdef linux} return r; {$endif} - if not _xformobj then - _xformobj := new Ttagxform(); _xformobj.em11 := trans[0]; _xformobj.em12 := trans[1]; _xformobj.em21 := trans[2]; @@ -2748,6 +2758,25 @@ type TcustomCanvas = class(TSLUIBASE) _xformobj.edy := trans[5]; return _wapi.SetWorldTransform(FHandle,_xformobj._getptr_); end + function trans(ag,x,y); + begin + {** + @explan(˵Ã÷)Îı¾Ðýת%% + @param(ag)(double) ½Ç¶È%% + **} + {$ifdef linux} + _wapi.cairo_translate(FHandle,x,y); + _wapi.cairo_rotate(FHandle,-ag); + return 1; + {$endif} + _xformobj.em11 := cos(ag); + _xformobj.em12 := -sin(ag); + _xformobj.em21 := sin(ag); + _xformobj.em22 := cos(ag); + _xformobj.edx := ifnumber(x)?x:0; + _xformobj.edy := ifnumber(y)?y:0; + return _wapi.SetWorldTransform(FHandle,_xformobj._getptr_); + end function SetPolyFillMode(md); //ÉèÖÃÌî³äÑùʽ begin {** @@ -2864,7 +2893,7 @@ type TControlCanvs=class(TcustomCanvas) begin inherited; end - property ClipRect read FClipRect write SetClipRect; + property rcpaint read FClipRect write SetClipRect; private Function SetClipRect(v); begin @@ -3181,6 +3210,54 @@ type tshapechord = class(tshape,tshaperect,tsepoint) return inherited; end end +type tshapepolygon = class(tshape) + function create(dc); + begin + inherited; + fbpoints := array(); + end + function draw();override; + begin + if fcanvas and fcanvas.HandleAllocated() and fbpoints then + begin + fcanvas._wapi.Polygon(fcanvas.handle,fbpoints,length(fbpoints)); + end + return inherited; + end + function points(ps);virtual; + begin + tps := array(); + for i,v in ps do + begin + if ifarray(v) and ifnumber(v[0]) and ifnumber(v[1]) then + begin + tps[idx++] := array(v[0],v[1]); + end + end + if length(tps)>2 then + begin + fbpoints := tps; + end + return self(true); + end + protected + fbpoints; + +end +type tshapepolyline = class(tshapepolygon) + function create(dc); + begin + inherited; + end + function draw();override; + begin + if fcanvas and fcanvas.HandleAllocated() and fbpoints then + begin + fcanvas._wapi.polyline(fcanvas.handle,fbpoints,length(fbpoints)); + end + return self(true); + end +end type tshapeBezier = class(tshape) function create(dc); begin diff --git a/funcext/tvclib/utvclgraphics.tsf b/funcext/tvclib/utvclgraphics.tsf new file mode 100644 index 0000000..745851b --- /dev/null +++ b/funcext/tvclib/utvclgraphics.tsf @@ -0,0 +1,1790 @@ +unit utvclgraphics; +interface +uses utslvclauxiliary; +//tsl»æͼ¿â +//20240126 +{ +//////////////////»æͼ·¶Àý////////////////////////// +uses tslvcl,utvclgraphics; +app := initializeapplication(); +app.createform(class(tfm),fm); +fm.show(); +app.run(); +type tfm = class(tvcform) + function create(aowner); + begin + inherited; + fg := new tcustomfigure(self); + fg.Caption := "hello1"; + fg.parent := self; + fg.Align := alClient; + //////////ÉèÖÃ×ø±êÖáÊôÐÔ//////////////////////// + axs := new tg_axes(); + axs.figure := fg; + axs.title.text := "ÄãºÃ plot "; + axs.title.fontinfo.size := 15; + axs.title.fontinfo.color := 0xff0000; + axs.x_label.text := "x fanli "; + + axs.axises(1).tics_color := 0x0000ff; + axs.axises(1).fontinfo.size := 8; + + axs.axises(1).lineinfo.color := 0x00ff00; + axs.grid(0).Width := 2; + axs.grid(0).color := 0x0ff0f0; + + //ÉèÖÃÏßÐÍÊôÐÔ + line := new tg_Polyline(); + line.lineinfo.style := 4; + line.lineinfo.color := 0xff0000; + line.markinfo.bkcolor := 0x00ff00; + line.markinfo.color := 0x0000ff; + line.mark_mode := "on"; + line.markinfo.size := 30; + line.markinfo.style := "pentagram"; + line.polyline_style := "staircase"; + d := array(); + idx := 0; + for i:= -pi() to pi() step 0.2 do + begin + d[idx] := array(i,sin(i)); + idx++; + end + line.data := d; + line.parent := axs; + end + fg; +end + +} +type tcustomfigure = class(tcustomcontrol,tg_const) //»æͼ´°¿Ú + function create(AOwner); + begin + inherited; + faxeses := new tnumindexarray(); + end + function paint();override; //»æÖÆ + begin + for i,v in faxeses.data do + begin + v.axes_paint_rect_changd(); + v.paint(canvas); + end + end + function add_axes(axs);//Ìí¼Ó + begin + if get_axes_idx(axs)>=0 then return ; + if fwilladdaxs and fwilladdaxs=axs then + begin + faxeses.unshift(axs); + fwilladdaxs := nil; + axs.figure := self(true); + return ; + end + if not(axs is class(tg_axes)) then return ; + fwilladdaxs := axs; + axs.figure := self(true); + end + function del_axes(axs); //ÒƳý + begin + idx := get_axes_idx(axs); + if not(idx>=0) then return ; + if fwilldelaxs and fwilldelaxs = axs then + begin + fwilldelaxs := nil; + faxeses.splice(idx,1); + axs.figure := nil; + return ; + end + fwilldelaxs := axs; + axs.figure := nil; + end + function Recycling();override; + begin + for i,v in faxeses.data do + begin + v.figure := nil; + end + inherited; + end + private + function get_axes_idx(axs); + begin + for i ,v in faxeses.data do + begin + if v=axs then + begin + return i; + end + end + return -1; + end + private + fwilladdaxs; + fwilldelaxs; + faxeses; +end +type tg_axis_main = class(tg_axis) //Ö÷Öá + public + function create(pms); + begin + inherited; + end + protected + function get_axes();override; + begin + return faxes; + end + function set_axes(axs);override; + begin + faxes := axs; + end + private + [weakref] faxes; +end +type tg_label_axes = class(tg_label) //×ø±êϵ±êÇ© + public + function create(pms); + begin + inherited; + auto_position := tgc_on; + end + protected + function get_axes();override; + begin + return faxes; + end + function set_axes(axs);override; + begin + faxes := axs; + end + private + [weakref] faxes; +end +type tg_axis = class(tg_base) //Öá¶ÔÏó + function create(pms); + begin + inherited; + fticksize := 12; + fsubticksize := 6; + ftics_direction := tgc_bottom; // + fxtics_coord := array(0,1,2,3); + ftcmin := 0; + ftcmax := 3; + ftccount := 3; + fxtics_coord_v := array(0,1,2,3); + fytics_coord := 0; + ftics_labels := array("0","1","2","3"); + ftics_segment := tgc_on; + ftics_style := tgc_t_s_v;//"v"; + fsub_tics := 2; + ftics_color := nil; + //"v". It's the default value, In this case, tics positions are given by the row factor xtics_coord for horizontal axis (ytics_coord for the vertical one). + //"r". In this case, tics positions are given by the vector [min,max,n] where n is the number of intervals. + //"i". In this case the vector given tics positions is of size 4, [k1,k2,a,n] then values are increasing between k1*10^a and k2*10^a, n is the number of intervals. + end + function executecommand(cmd,pm);virtual; + begin + case cmd of + "get_tics_value":return fxtics_coord_v; + + end; + end + function paint(cvs);override; + begin + if not visible then return ; + subtks := array(); + idx := 0; + if fsub_tics>1 then + begin + for i:= 0 to length(fxtics_coord_v)-2 do + begin + dx := (fxtics_coord_v[i+1]-fxtics_coord_v[i])/fsub_tics; + for j := 1 to (fsub_tics-1) do + begin + subtks[idx++] := fxtics_coord_v[i]+dx*j; + end + end + end + case ftics_direction of + tgc_top: + begin + draw_axis(cvs,subtks,1); + end + tgc_bottom: + begin + draw_axis(cvs,subtks,1+2); + end + tgc_left: + begin + draw_axis(cvs,subtks,0); + end + tgc_right: + begin + draw_axis(cvs,subtks,0+2); + end + + end + end + protected + function check_parent(p);override; + begin + return (not(p)) or (p is class(tg_compound)) or (p is class(tg_axes)); + end + published + ///////////////////////////////////// + property tics_direction read ftics_direction write set_tics_direction;//= "top" + property xtics_coord read fxtics_coord write set_xtics_coord ;//= [2,3,4,5,6,7] + property ytics_coord read fytics_coord write set_ytics_coord ;//= 4 + property tics_segment read ftics_segment write set_tics_segment; // true,false + property tics_color read ftics_color write set_tics_color; // -1 + property tics_style read ftics_style write set_tics_style; // = "v" + property sub_tics read fsub_tics write set_sub_tics; // = 2 + property tics_labels read ftics_labels write set_tics_labels; // = ["2","3","4","5","6","7"] + private + fticksize; + fsubticksize; + fxtics_coord_v; + ftcmin; + ftcmax; + ftccount; + /////////////////////////////// + ftics_direction; + fxtics_coord; + fytics_coord; + fsub_tics; + ftics_color; + ftics_segment; + ftics_style; + ftics_labels; + //format_n ;//= "" + //fractional_font ;//= "off" + //clip_state ;//= "off" + //clip_box ;//= [] + //user_data ;//= [] + //tag ;//= "" + private + function draw_axis(cvs,subtks,flg); + begin + tklen := fticksize; + tklensub := fsubticksize; + vtic := flg .& 1 ; + vtic2 := (flg .&2)?1:-1; + + cvs.pen.width := lineinfo.width; + cvs.pen.color := lineinfo.color; + cvs.pen.style := lineinfo.style; + + cvs.font.color := fontinfo.color; + cvs.font.bkcolor := fontinfo.bkcolor; + cvs.font.width := fontinfo.size; + cvs.font.height := fontinfo.size*2; + + if ftics_segment=tgc_on then + begin + for i,v in fxtics_coord_v do + begin + if vtic then + Coordinate_Mapping(v,fytics_coord,0,x,y); + else Coordinate_Mapping(fytics_coord,v,0,x,y); + if i=0 then + cvs.moveto(array(x,y)); + else + cvs.lineto(array(x,y)); + end + end + if ifnumber(ftics_color) then cvs.pen.color := ftics_color; + for i,v in fxtics_coord_v do + begin + if vtic then + Coordinate_Mapping(v,fytics_coord,0,x,y); + else Coordinate_Mapping(fytics_coord,v,0,x,y); + lbi := ftics_labels[i]; + cvs.moveto(array(x,y)); + sz := nil; + if lbi then + begin + sz := array((length(lbi))*fontinfo.size+4,fontinfo.size*2+4) ;//cvs.GetTextExtent(lbi); + end + if vtic then + begin + ny := y+(vtic2*tklen); + cvs.lineto(array(x,ny)); + if sz then + begin + rec := array(x-sz[0]/2,0,x+sz[0]/2,0); + if ny>y then + begin + rec[1] := ny+5; + rec[3] := ny+sz[1]+5; + + end else + begin + rec[1] := ny-sz[1]-5; + rec[3] := ny-5; + end + end + cvs.drawtext(lbi,rec); + end + else + begin + nx := x+(vtic2*tklen); + cvs.lineto(array(nx,y)); + if sz then + begin + rec := array(0,y-sz[1]/2,0,y+sz[1]/2); + if nx>x then + begin + rec[0] := nx+5; + rec[2] := nx+sz[0]+5; + end else + begin + rec[0] := nx-sz[0]-5; + rec[2] := nx-5; + end + cvs.drawtext(lbi,rec); + end + + end + //cvs.textout(lbi,array(x,y)); + end + + for i,v in subtks do + begin + if vtic then + Coordinate_Mapping(v,fytics_coord,0,x,y); + else Coordinate_Mapping(fytics_coord,v,0,x,y); + cvs.moveto(array(x,y)); + if vtic then + cvs.lineto(array(x,y+(vtic2*tklensub))); + else + cvs.lineto(array(x+(vtic2*tklensub),y)); + end + end + function set_tics_direction(v); + begin + if v<>ftics_direction and ( v in array(tgc_top,tgc_left,tgc_right,tgc_bottom)) then + begin + ftics_direction := v; + prop_changed("tics_direction",v); + end + end + function tc_to_label(v); + begin + return format("%.2f",v);//tostn(v); + end + function set_xtics_coord(v); + begin + if v<> fxtics_coord and ifarray(v) then + begin + case ftics_style of + tgc_t_s_v: + begin + lbs := array(); + for i,vi in v do + begin + if not ifnumber(vi) then return ; + lbs[i] := tc_to_label(v); + end + ftcmin := minvalue(v); + ftcmax := maxvalue(v); + if ftcmin=ftcmax then return ; + ftccount := length(v)-1; + fxtics_coord := v; + fxtics_coord_v := v; + ftics_labels := lbs; + end + tgc_t_s_r: + begin + if not(v[0]=1) then return ; + fxtics_coord := v; + ftcmin := v[0]; + ftcmax :=v[1]; + ftccount := v[2]; + type_c_to_r(); + end + + end; + fxtics_coord := v; + prop_changed("xtics_coord",v); + end + end + function set_ytics_coord(v); + begin + if v<> fytics_coord then + begin + fytics_coord := v; + prop_changed("ytics_coord",v); + end + end + function set_tics_segment(v); + begin + nv := v?true:false; + if ftics_segment<>v then + begin + ftics_segment := v; + prop_changed("tics_segment",v); + end + end + function set_tics_color(v); + begin + nv := v?true:false; + if ftics_color<>v then + begin + ftics_color := v; + prop_changed("tics_color",v); + end + end + function set_tics_style(v); + begin + if v<>ftics_style and( v in array(tgc_t_s_v,tgc_t_s_r)) then + begin + ftics_style := v; + case v of + tgc_t_s_v: + begin + fxtics_coord := array(); + for i,v in fxtics_coord_v do + begin + fxtics_coord[i] := v; + end + end + tgc_t_s_r: + begin + fxtics_coord := array(); + fxtics_coord[0] := ftcmin; + fxtics_coord[1] := ftcmax; + fxtics_coord[2] := ftccount; + type_c_to_r(); + end + end ; + prop_changed("tics_style",v); + end + end + function type_c_to_r(); + begin + fxtics_coord_v := array(); + ftics_labels := array(); + vidx := 0; + for x := ftcmin to ftcmax step (ftcmax-ftcmin)/ftccount do + begin + fxtics_coord_v[vidx] := x; + ftics_labels[vidx] := tc_to_label(x); + vidx++; + end + if x>=ftcmax then + begin + fxtics_coord_v[vidx-1] := ftcmax ; + ftics_labels[vidx-1] := tc_to_label(ftcmax) ; + + end else + begin + fxtics_coord_v[vidx] := ftcmax ; + ftics_labels[vidx] := tc_to_label(ftcmax) ; + end + + end + function set_sub_tics(v); + begin + if v>=0 and v<>fsub_tics then + begin + fsub_tics := v; + prop_changed("sub_tics",v); + end + end + function set_tics_labels(v); + begin + if ifarray(v) and v<>ftics_labels then + begin + ftics_labels:=v; + prop_changed("tics_labels",v); + end + end +end + +type tg_label =class(tg_base) //±êÇ©¶ÔÏó + function create(pms); + begin + inherited; + ftext := false; + fposition := array(0,0); + fauto_position_value := array(0,0); + ffill_mode := false; + ffont_angle := 0; + fauto_position := tgc_off; + fauto_rotation := false; + end + function paint(cvs);override; + begin + if not visible then return ; + if not ftext then return ; + cvs.font.width := fontinfo.size; + cvs.font.height := fontinfo.size*2; + cvs.font.color := fontinfo.color; + if fauto_position=tgc_on then + begin + p := fauto_position_value; + end else + begin + p := fposition; + end + if Coordinate_Mapping(p[0],p[1],0,x_,y_) then + begin + if ffont_angle<>0 then + begin + cvs.SaveDC(); + cvs.trans(ffont_angle,x_,y_); + cvs.textout(ftext,array(0,0)); + cvs.RestoreDC(); + end else + cvs.textout(ftext,array(x_,y_)); + end + end + protected + function check_parent(p);override; + begin + return (not p) or (p is class(tg_axis)); + end + published + property text read ftext write set_text;//= "" + property position read fposition write set_positon;//[-27.697388,-1.7130177] + property auto_position read fauto_position write set_auto_position;//"on" + property auto_postion_value read fauto_position_value write fauto_position_value;//"on" + property auto_rotation read fauto_rotation write set_auto_rotation;//"on" + property font_angle read ffont_angle write set_font_angle;//90 + //font_foreground ;//= 6 + //foreground ;//= 9 + //background ;//= 23 + //fill_mode ;//= "off" + //font_style ;//= 6 + //font_size ;//= 4 + //fractional_font ;//= "off" + //font_angle ;//= 90 + private + ftext; + fposition; + fauto_position_value; + ffont_angle; + fauto_position; + fauto_rotation; + private + function set_auto_position(v); + begin + if not(tgc_off=v or tgc_on=v) then return ; + if v<>fauto_position then + begin + fauto_position := v; + prop_changed("auto_postion",nil); + end + end + function set_font_angle(v); + begin + if v<>ffont_angle and ifnumber(v) then + begin + ffont_angle := v; + prop_changed("font_angle",v); + end + end + function set_text(v); + begin + if ifstring(v) and v<>ftext then + begin + ftext := v; + prop_changed("text",nil); + end + end + function set_positon(v); + begin + if ifarray(v) and ifnumber(v[0]) and ifnumber(v[1]) and v[0]<>fposition[0] and v[1]<>fposition[1] then + begin + fposition[0] :=v[0]; + fposition[1] :=v[1]; + fauto_position := tgc_off; + prop_changed("postion",v); + end + end + function set_auto_rotation(v); + begin + if fauto_rotation<>v and (v in array(tgc_on,tgc_off)) then + begin + fauto_rotation := v; + prop_changed("auto_rotation",v); + end + end +end +type tg_compound = class(tg_graph) //×éºÏ¶ÔÏó + function create(pms); + begin + inherited; + end + protected + function check_parent(p);override; + begin + return (not(p)) or (p is class(tg_compound)) or (p is class(tg_axes)); + end +end +type tg_axes = class(tg_graph) //×ø±êϵ + private + [weakref]fFigure; + ///////////////×ø±ê¸¨Öú¼ÆËã///////////////////////// + p_left; + p_top; + p_width; + p_height; + dx_min; + dx_max; + dx_len; + dy_min; + dy_max; + dy_len; + rt_x; + rt_y; + /////////////////////////////////////////// + public + function Coordinate_unMapping(x,y,_x,_y,_z);override; //»­²¼µ½×ø±ê + begin + if not(fFigure and fFigure.HandleAllocated()) then return 0; + if faxes_reverse[0]=tgc_on then //xÖá + begin + _x := fdata_bounds[0,0]-(x-p_left-p_width)/rt_x; + end else + begin + _x := (x-p_left)/rt_x+fdata_bounds[0,0]; + end + if faxes_reverse[1]=tgc_on then //yÖá + begin + _y := (y-p_top)/rt_y +fdata_bounds[1,0]; + end else + begin + _y := fdata_bounds[1,0]-(y-p_top-p_height)/rt_y; + end + return true; + end + function Coordinate_Mapping(x,y,z,_x,_y);override; //×ø±êµ½»­²¼ + begin + if not(fFigure and fFigure.HandleAllocated()) then return 0; + if faxes_reverse[0]=tgc_on then //xÖá + begin + _x := p_left+p_width-(x-fdata_bounds[0,0])*rt_x; + end else + begin + _x := (x-fdata_bounds[0,0])*rt_x+p_left; + end + if faxes_reverse[1]=tgc_on then //yÖá + begin + _y := (y-fdata_bounds[1,0])*rt_y+p_top; + end else + begin + _y := p_top+p_height-(y-fdata_bounds[1,0])*rt_y; + end + return true; + end + function paint(cvs);override; + begin + if not visible then return ; + modify_coordinate_postion(); + inherited; + paint_grid(cvs); + for i,v in faxes_objects do //»æÖÆ×ø±ê + begin + v.paint(cvs); + end + modify_label_postion(); + for i,v in array(ftitle,fx_label,fy_label) do //±êÇ© + begin + v.paint(cvs); + end + if fbox = tgc_on then + begin + cvs.moveto(array(p_left,p_top)); + cvs.lineto(array(p_left+p_width,p_top)); + cvs.lineto(array(p_left+p_width,p_top+p_height)); + cvs.lineto(array(p_left,p_top+p_height)); + cvs.lineto(array(p_left,p_top)); + end + end + + function axes_paint_rect_changd(); //»æÖÆÇøÓò¸Ä±ä + begin + fr := fFigure.clientrect; + w := fr[2]-fr[0]; + h := fr[3]-fr[1]; + p_left := fr[0]+w*fmargins[0]+faxes_bounds[0]; + p_top := fr[1]+h*fmargins[1]+faxes_bounds[1]; + p_width := w*(1-fmargins[0]-fmargins[2])*faxes_bounds[2]; + p_height := h*(1-fmargins[1]-fmargins[3])*faxes_bounds[3]; + merge_graph_data_bounds(); + axes_data_bounds_changed(); + end + function axes_data_bounds_changed(); //Êý¾ÝÇøÓò + begin + dx_min := fdata_bounds[0,0]; + dx_max := fdata_bounds[0,1]; + dx_len := dx_max-dx_min; + dy_min := fdata_bounds[1,0]; + dy_max := fdata_bounds[1,1]; + dy_len := dy_max-dy_min; + rt_x := p_width/ dx_len; + rt_y := p_height/dy_len; + end + function merge_graph_data_bounds();//Êý¾ÝÇøÓò + begin + d := get_data_bounds(); + fdata_bounds := d; + faxes_objects[0].xtics_coord := array(d[0,0],d[0,1],10); + faxes_objects[1].xtics_coord := array(d[1,0],d[1,1],10); + end + function create(pms); + begin + inherited; + fgrid := array(); + for i:= 0 to 1 do + begin + gd := new tg_line_info(); + gd.width := 0; + gd.Style := tgc_PS_DASH; + fgrid[i] := gd; + end + faxes_reverse := array(tgc_off,tgc_off,tgc_off); + fview := "2d"; + fbox := tgc_off; + ffilled := tgc_off; + fx_location := tgc_bottom; + fy_location := tgc_left; + faxes_objects := array(); + for i := 0 to 2 do + begin + axi := new tg_axis_main(); + axi.tics_style := tgc_t_s_r; + case i of + 0: axi.tics_direction := tgc_bottom; + 1:axi.tics_direction := tgc_left; + 2:axi.visible := false; + end ; + faxes_objects[i] := axi; + axi.axes := self(true); + end + + ftitle := new tg_label_axes(); + ftitle.axes := self(true); + fx_label := new tg_label_axes(); + fx_label.axes := self(true); + fy_label := new tg_label_axes(); + fy_label.axes := self(true); + fy_label.font_angle := pi()/2; + + + fauto_ticks := array("on","on","on"); + fmargins := array(0.125,0.125,0.125,0.125); + faxes_bounds := array( 0,0,1,1); + fdata_bounds := array((0,1),(0,1),(0,1)); + fzoom_box := array(); + //FA vector containing the handles of all graphics objects children of the + //axes These graphics objects are of type + //"Compound", "Rectangle", "Polyline", "Segs", "Arc", "Grayplot",.. (see Compound_properties, + //rectangle_properties, champ_properties, axis_properties, polyline_properties, segs_properties, + //grayplot_properties, surface_properties, fec_properties, text_properties, legend_properties) + end + published + property figure read fFigure write SetFigure; //´°¿Ú + property view read fview write set_view; //Á¢Ìå + property axises read get_axises;//axes_visible ;//= ["on","on","on"] + property axes_reverse read gs_axes_reverse write gs_axes_reverse;//axes_reverse ;//= ["off","off","off"] + property x_location read fx_location write set_x_location;//'bottom + property y_location read fy_location write set_y_location;//'left + property title read ftitle; + property x_label read fx_label; + property y_label read fy_label; + property z_label read fz_label; + property auto_ticks read gs_auto_ticks write gs_auto_ticks; + property box read fbox write set_box; + property filled read ffilled write set_filled; + property sub_ticks read gs_sub_ticks write gs_sub_ticks; + //ÉÏÏÂ×óÓÒ¿Õ°× + property margins read gs_margins write gs_margins; + property axes_bounds read gs_axes_bounds write gs_axes_bounds; + property data_bounds read gs_data_bounds write gs_data_bounds; + property zoom_box read fzoom_box write fzoom_box; + //ÔÚ´°¿ÚÖеÄÇøÓò + + //Íø¸ñÏß + property grid read get_grid; + + //grid ;//= [-1,-1] + //grid_position ;//= "background" + //grid_thickness ;//= [1,1] + //grid_style ;//= [7,7] + //x_ticks.locations ;//= matrix 21x1 + //y_ticks.locations ;//= matrix 11x1 + //z_ticks.locations ;//= [] + //x_ticks.labels ;//= matrix 21x1 + //y_ticks.labels ;//= matrix 11x1 + //z_ticks.labels ;//= [] + //ticks_format ;//= ["","",""] + //ticks_st ;//= [1,1,1;0,0,0] + //sub_ticks ;//= [1,1] + font_style ;//= 6 + font_size ;//= 1 + font_color ;//= -1 + fractional_font ;//= "off" + + //isoview ;//= "off" + //cube_scaling ;//= "off" + //rotation_angles ;//= [0,270] + //log_flags ;//= "nnn" + //tight_limits ;//= ["off","off","off"] + //zoom_box ;//= [] + //auto_margins ;//= "on" + //auto_clear ;//= "off" + //auto_scale ;//= "on" + //auto_stretch ;//= "on" + + //hidden_axis_color ;//= 4 + //hiddencolor ;//= 4 + //line_mode ;//= "on" + //line_style ;//= 1 + //thickness ;//= 1 + //mark_mode ;//= "off" + //mark_style ;//= 0 + //mark_size_unit ;//= "tabulated" + //mark_size ;//= 0 + //mark_foreground ;//= -1 + //mark_background ;//= -2 + //foreground ;//= -1 + //background ;//= -2 + //arc_drawing_method ;//= "lines" + //clip_state ;//= "clipgrf" + //clip_box ;//= [] + protected + function get_axes();override; + begin + return self(true); + end + private + fgrid; + faxes_objects; + fzoom_box; + fmargins; + faxes_bounds ;//= [0,0,1,1] + fdata_bounds; + ffilled; + fauto_ticks; + ftitle; + fx_label; + fy_label; + fz_label; + fx_location; + fy_location; + fview; + fbox; + faxes_reverse; + private + fwilldelfigure; + fwilladdfigure; + function paint_grid(cvs);//»æÖƱí¸ñ + begin + xg := fgrid[0]; + if xg.width>0 and ifnumber(xg.color) then + begin + cvs.pen.width :=xg.width; + cvs.pen.color := xg.color; + cvs.pen.Style := xg.Style; + y1 := p_top; + y2 := p_top+p_height; + for i,v in faxes_objects[0].executecommand("get_tics_value") do + begin + if Coordinate_Mapping(v,0,0,_x,_y) then + begin + cvs.moveto(array(_x,y1)); + cvs.lineto(array(_x,y2)); + end + + end + end + xg := fgrid[1]; + if xg.width>0 and ifnumber(xg.color) then + begin + cvs.pen.width :=xg.width; + cvs.pen.color := xg.color; + cvs.pen.Style := xg.Style; + x1 := p_left; + x2 := p_left+p_width; + for i,v in faxes_objects[1].executecommand("get_tics_value") do + begin + if Coordinate_Mapping(0,v,0,_x,_y) then + begin + cvs.moveto(array(x1,_y)); + cvs.lineto(array(x2,_y)); + end + + end + end + + + end + function get_tics(tk); + begin + r := array(); + rd := tk.xtics_coord; + case tk.tics_style of + tgc_t_s_v: + begin + + end + else //tgc_t_s_r: + begin + + end + end + end + function modify_label_postion(); //ÐÞÕý±êǩλÖà + begin + if fx_label and fx_label.visible and fx_label.text then + begin + s := fx_label.text; + if s then + begin + x := p_left+(p_width-length(s)*10)/2; + Coordinate_unMapping(x,p_top+p_height+40,_x,_y,_z); + p := array(_x,_y); + fx_label.auto_postion_value := p; + end + end + if fy_label and fy_label.visible and fy_label.text then + begin + s := fy_label.text; + if s then + begin + y := p_top+(p_height-length(s)*10)/2; + if (fy_location= tgc_left) then x := p_left+p_width+40; + else + x := p_left-40; + Coordinate_unMapping(x,y,_x,_y,_z); + p := array(_x,_y); + fy_label.auto_postion_value := p; + end + end + if ftitle and ftitle.visible then + begin + s := ftitle.text; + if s then + begin + x := p_left+(p_width-length(s)*10)/2; + Coordinate_unMapping(x,p_top-40,_x,_y,_z); + p := array(_x,_y); + ftitle.auto_postion_value := p; + end + end + end + function modify_coordinate_postion(); + begin + case fy_location of + tgc_left: + begin + faxes_objects[1].ytics_coord := fdata_bounds[0,(faxes_reverse[0] = tgc_on)]; + end + tgc_right: + begin + faxes_objects[1].ytics_coord := fdata_bounds[0,(faxes_reverse[0]<> tgc_on)]; + + end + tgc_middle: + begin + faxes_objects[1].ytics_coord := fdata_bounds[0,0]+(fdata_bounds[0,1]-fdata_bounds[0,0])/2; + end + tgc_origin: + begin + faxes_objects[1].ytics_coord := 0; + end + end ; + case fx_location of + tgc_bottom: + begin + faxes_objects[0].ytics_coord := fdata_bounds[1,(faxes_reverse[1]= tgc_on)]; + end + tgc_top: + begin + faxes_objects[0].ytics_coord := fdata_bounds[1,(faxes_reverse[1]<> tgc_on)]; + end + tgc_middle: + begin + faxes_objects[0].ytics_coord := fdata_bounds[1,0]+(fdata_bounds[1,1]-fdata_bounds[1,0])/2; + end + tgc_origin: + begin + faxes_objects[0].ytics_coord := 0; + end + end ; + end + function SetFigure(v); + begin + if v=fFigure then return ; + if fwilladdfigure and fwilladdfigure=v then + begin + fwilladdfigure := nil; + fFigure := v; + v.add_axes(self(true)); + return ; + end + if fwilldelfigure and fwilldelfigure=tp then + begin + fwilldelfigure := nil; + fFigure := nil; + v.del_axes(self(true)); + return ; + end + tp := fFigure; + if tp then //ɾ³ý + begin + fwilldelfigure := tp; + tp.del_axes(self(true)); + fwilldelfigure := nil; + end + if v is class(tcustomfigure) then //Ìí¼Ó + begin + fwilladdfigure := v; + v.add_axes(self(true)); + fwilladdfigure := nil; + end else + begin + fFigure := nil; + end + end + function set_filled(v); + begin + if (v in array(tgc_on,tgc_off)) and v<>fbox then + begin + ffilled := v; + prop_changed("ffilled",v); + end + end + function set_box(v); + begin + if (v in array(tgc_box_on,tgc_box_on,tgc_box_half,tgc_box_hidden_axes)) and v<>fbox then + begin + fbox := v; + prop_changed("box",v); + end + end + function set_x_location(v); + begin + if v<>fx_location and ( v in array(tgc_bottom,tgc_top,tgc_middle,tgc_origin)) then + begin + fx_location := v; + if v=tgc_bottom or v=tgc_top then faxes_objects[0].tics_direction := v; + prop_changed("x_location",v); + end + end + function set_y_location(v); + begin + if v<>fy_location and ( v in array(tgc_left,tgc_right,tgc_middle,tgc_origin)) then + begin + fy_location := v; + if v=tgc_left or v=tgc_right then faxes_objects[1].tics_direction := v; + prop_changed("x_location",v); + end + end + function get_grid(idx); + begin + if idx=0 or idx=1 then return fgrid[idx]; + end + function set_view(v); + begin + return ; + end + function gs_auto_ticks(idx,v); + begin + if v=tgc_on or v=tgc_off then + begin + if idx in array(0,1,2) then + begin + if fauto_ticks[idx]<>v then + begin + fauto_ticks[idx] := v; + prop_changed("auto_ticks",idx); + end + end + end else //get + begin + if idx in array(0,1,2) then return fauto_ticks[idx]; + return fauto_ticks; + end + end + function get_axises(idx); + begin + if idx in array(0,1) then + begin + return faxes_objects[idx]; + end + end + function gs_axes_bounds(idx,v); + begin + if ifarray(v) and ifnumber(v[0]) and ifnumber(v[1]) then + begin + if idx in array(0,1,2,3) then + begin + faxes_bounds[idx] := array(v[0],v[1]); + prop_changed("axes_bounds",idx); + end + end else //get + begin + if idx in array(0,1,2,3) then return faxes_bounds[idx]; + return faxes_bounds; + end + end + function gs_data_bounds(idx,v); + begin + if ifarray(v) and ifnumber(v[0]) and ifnumber(v[1]) then + begin + if idx in array(0,1,2) then + begin + fdata_bounds[idx] := v; + prop_changed("data_bounds",idx); + end + end else //get + begin + if idx in array(0,1,2) then return fdata_bounds[idx]; + return fdata_bounds; + end + end + + function gs_axes_reverse(idx,v); + begin + if v=tgc_off or v=tgc_on then + begin + if idx in array(0,1,2) then + begin + faxes_reverse[idx] := v; + prop_changed("axes_reverse",idx); + end + end else //get + begin + if idx in array(0,1,2) then return faxes_reverse[idx]; + return faxes_reverse; + end + end + function gs_margins(idx,v); + begin + if ifnumber(v) then + begin + if idx in array(0,1,2,3) then + begin + fmargins[idx] := v; + prop_changed("margins",idx); + end + end else //get + begin + if idx in array(0,1,2,3) then return fmargins[idx]; + return fmargins; + end + end + function gs_sub_ticks(idx,v); + begin + if ifnumber(v) and (v>=0) then + begin + if idx in array(0,1,2) then + begin + faxes_objects[idx].sub_tics := v; + //prop_changed("axes_visible",idx); + end + end else //get + begin + if idx in array(0,1,2) then return faxes_objects[idx].sub_tics; + return array(faxes_objects[0].sub_tics,faxes_objects[1].sub_tics,faxes_objects[2].sub_tics); + end + end + +end +type tg_tips = class(tg_base) + function create(pms); + begin + inherited; + finterp_mode := tgc_off; + fbox_mode := tgc_on; + fline_style := 0; + fforeground := -1; + fbackground := -2; + fmark_mode := tgc_on; + fmark_style := 11; + end + property interp_mode read finterp_mode write finterp_mode; //"on" + property box_mode read fbox_mode write fbox_mode; //"on" + private + fbox_mode; + finterp_mode; + //auto_orientation ;//= "on" + //orientation ;//= 3 + //label_mode ;//= "on" + //data ;//= [66.064054,-1.3511706,0] + //display_components ;//= "xy" + //display_function ;//= "" + //text ;//= ["X:66.064";"Y:-1.351"] + //font_foreground ;//= -1 + //font_style ;//= 6 + //font_size ;//= 1 + //detached_position ;//= [] + //mark_size_unit ;//= "point" + //mark_size ;//= 8 + //mark_foreground ;//= -3 + //mark_background ;//= -2 + +end +type tg_legend = class(tg_base) + function create(pms); + begin + inherited; + end + //parent Axes + //text ;//= "y1" + //font_style ;//= 6 + //font_size ;//= 1 + //font_color ;//= -1 + //fractional_font ;//= "off" + //links ;//= "Polyline" [] Êý×é + //legend_location ;//= "in_upper_right" + //position ;//= [0.7379099,0.1325] + //line_width ;//= 0.1 + //line_mode ;//= "on" + //thickness ;//= 1 + //foreground ;//= -1 + //fill_mode ;//= "on" + //background ;//= -2 + //marks_count ;//= 3 + //clip_state ;//= "off" + //clip_box ;//= [] +end +type tg_graph = class(tg_base) + function create(pms); + begin + inherited; + end + function get_data_bounds();virtual; + begin + d := zeros(3,2); + for i := 0 to NodeCount-1 do + begin + vi := GetNodeByIndex(i); + if vi is class(tg_graph) then + begin + bds := vi.get_data_bounds(); + mg_bds(bds,d); + end + end + return d; + end +end +type tg_Polyline = class(tg_graph) + function create(pms); + begin + inherited; + fclosed := tgc_off; + //fmark_style :=tgc_mks_dot ;//= 9 + //fmark_size_unit := "point";//= "point","tabulated" + //fmark_size :=0;//= 0 + //fmark_foreground := 16;//= 16 + //fmark_background := 15;//= 15 + //fforeground := 33 ;//= 33 + //fbackground := 26 ;//= 26 + fline_mode := tgc_on; + fmark_mode := tgc_on; + fpolyline_style := tgc_LS_interpolated;// interpolated,staircase,barplot,arrowed,filled,bar + fbar_width := 0; + fdata_bounds := array((0,10),(0,10),(0,10)); + end + function get_data_bounds();override; + begin + return fdata_bounds; + end + function paint(cvs);override; + begin + if not visible then return ; + xys := array(); + if fline_mode=tgc_on then + begin + cvs.pen.Style := lineinfo.Style; + cvs.pen.color := lineinfo.color; + cvs.pen.width := lineinfo.width; + for i,v in fdata do + begin + if not Coordinate_Mapping(v[0],v[1],z,x,y) then return ; + xys[i] := array(integer(x),integer(y)); + end + case fpolyline_style of + tgc_LS_staircase: + begin + last := array(); + for i,v in xys do + begin + if i=0 then + begin + last := v; + cvs.moveto(v); + end else + begin + + cvs.lineto(array(v[0],last[1])); + cvs.lineto(v); + last := v; + end + end + end + else + begin + cvs.draw_polyline().points(xys).draw(); + end + end; + mk := markinfo; + if mark_mode=tgc_on and mk.size>2 then + begin + paint_marks(mk,cvs,xys); + + end + end + end + + property closed read fclosed write fclosed;//= "off" + //property mark_style read fmark_style write fmark_style;//= "dot" + //property mark_size_unit read fmark_size_unit write fmark_size_unit;//= "point" + //property mark_size read fmark_size write fmark_size;//= "0" + //property mark_foreground read fmark_foreground write fmark_foreground;//= "0" + //property foreground read fforeground write fforeground;//= "0" + //property mark_background read fmark_background write fmark_background;//= "0" + //property background read fbackground write fbackground;//= "0" + property line_mode read fline_mode write fline_mode;//= "0" + property mark_mode read fmark_mode write fmark_mode;//= "0" + property polyline_style read fpolyline_style write fpolyline_style;//= "0" + property bar_width read fbar_width write fbar_width;//= "0" + property data read fdata write set_data; + private + fdata_bounds; + fclosed; + fmark_size_unit; + fmark_style; + fmark_size; + fmark_foreground; + fmark_background; + fforeground; + fbackground; + fline_mode; + fmark_mode; + fpolyline_style; + fbar_width; + fdata;//Êý¾Ý + //datatips;//: ["Datatip";"Datatip"] + //datatip_display_mode;//: "always" + //display_function ;//= "" + //display_function_data ;//= [] + //fill_mode ;//= "off" + //thickness ;//= 4 + //arrow_size_factor ;//= 1 + + //interp_color_vector ;//= [] + //interp_color_mode ;//= "off" + //colors ;//= [] + + //mark_offset ;//= 0 + //mark_stride ;//= 1 + //x_shift ;//= [] + //y_shift ;//= [] + //z_shift ;//= [] + //bar_width ;//= 0 + //clip_state ;//= "clipgrf" + //clip_box ;//= [] + private + fx; + fy; + function set_data(d); //ÉèÖÃÊý¾Ý + begin + if d<>FData then + begin + FData := d; + fx := fdata[:,0]; + fy := fdata[:,1]; + fdata_bounds[0,0] := minvalue(fx); + fdata_bounds[1,0] := minvalue(fy); + fdata_bounds[0,1] := maxvalue(fx); + fdata_bounds[1,1] := maxvalue(fy); + prop_changed("data",v); + end + end +end + +type tg_line_info = class(tg_const) + function create(); + begin + fcolor := 0; + FWidth := 1; + FStyle := tgc_PS_SOLID; + end + property width read FWidth write fwidth; + property color read fcolor write fcolor; + property Style read FStyle write FStyle; + private + fwidth; + fcolor; + FStyle; +end +type tg_font_info = class(tg_const) + function create(); + begin + fstyle := tgc_mks_dot; + fsize := 7; + fforeground := 0; + fbackground := nil; + end + property style read fstyle write fstyle; + property size read fsize write fsize; + property color read fforeground write fforeground; + property bkcolor read fbackground write fbackground; + private + fstyle; + fsize; + fsize_unit; + fforeground; + fbackground; +end +type tg_mark_info = class(tg_const) + function create(); + begin + fstyle := tgc_mks_dot; + fsize := 0; + fsize_unit := tgc_mk_point; + fforeground := 0; + fbackground := 0xffffff; + end + property style read fstyle write fstyle; + property size read fsize write fsize; + property size_unit read fsize_unit write fsize_unit; + property color read fforeground write fforeground; + property bkcolor read fbackground write fbackground; + private + fstyle; + fsize; + fsize_unit; + fforeground; + fbackground; +end +type tg_base = class(TNode,tg_const) //»ùÀ࣬Ìṩ²ã´Î¹Øϵ½á¹¹ + public + function create(pms); + begin + class(TNode).create(); + fvisibe := true; + flineinfo := new tg_line_info(); + fmarkinfo := new tg_mark_info(); + ffontinfo := new tg_font_info(); + end + function Coordinate_Mapping(x,y,z,_x,_y);virtual; + begin + p := get_axes(); + if p then return p.Coordinate_Mapping(x,y,z,_x,_y); + return false; + end + function Coordinate_unMapping(x,y,x_,y_,z_);virtual; + begin + p := get_axes; + if p then return p.Coordinate_unMapping(x,y,x_,y_,z_); + return false; + end + function executecommand(cmd,pm);virtual; + begin + + end + function paint(cvs);virtual; //»æÖÆ + begin + if not visible then return ; + for i := 0 to NodeCount-1 do + begin + vi := GetNodeByIndex(i); + vi.paint(cvs); + end + end + published + property axes read get_axes write set_axes; + property visible read fvisibe write setvisible; + property lineinfo read flineinfo; + property markinfo read fmarkinfo; + property fontinfo read ffontinfo; + protected + function get_axes();virtual; + begin + p := parent; + if p then return p.axes; + end + function set_axes(axs);virtual; + begin + end + public + user_data; + tag; + protected + function check_parent(p);virtual; //¸¸½Úµã¼ì²é + begin + return true; + end + function prop_changed(n,v);virtual; //¸Ä±ä֪ͨ + begin + + end + function SetParent(V);virtual; + begin + if not check_parent(p) then return ; + return inherited; + end + private + fvisibe; + flineinfo; + fmarkinfo; + ffontinfo; + function setvisible(v);//ÉèÖÿɼû + begin + nv := v?true:false; + if nv<>fvisibe then + begin + fvisibe := nv; + prop_changed("visible",fvisibe); + end + end +end +type tg_const = class() + + static const tgc_top = "top"; + static const tgc_bottom = "bottom"; + static const tgc_left = "left"; + static const tgc_right = "right"; + static const tgc_middle = "middle"; + static const tgc_origin = "origin"; + + static const tgc_off = "off"; + static const tgc_on = "on"; + static const tgc_box_off = "off"; + static const tgc_box_on = "on"; + static const tgc_box_half = "half"; + static const tgc_box_hidden_axes = "hidden_axes"; + static const tgc_t_s_v = "v"; + static const tgc_t_s_r = "r"; + static const tgc_t_s_i = "i"; + + static const tgc_mks_dot = "dot"; //Ô­µã + static const tgc_mks_plus = "plus"; //¼ÓºÅ + static const tgc_mks_star = "star"; //Ȧ²æ + static const tgc_mks_diamond = "diamond"; //Õý·½ÐÎ + static const tgc_mks_diamond_plus = "diamond_plus"; //Õý·½ÐÎ + static const tgc_mks_square = "square"; //Õý·½ÐÎ + static const tgc_mks_circle = "circle";//ԲȦ + static const tgc_mks_pentagram = "pentagram";//Îå½Ç + static const tgc_mks_asterisk = "asterisk";//Ã××Ö + static const tgc_mks_cross = "cross";//²æ + static const tgc_mks_triangle_up = "triangle_up"; + static const tgc_mks_triangle_down = "triangle_down"; + static const tgc_mks_triangle_left = "triangle_left"; + static const tgc_mks_triangle_right = "triangle_right"; + + static const tgc_mk_tabulated = "tabulated"; + static const tgc_mk_point = "point"; + + static const tgc_dm_always = "always"; + static const tgc_dm_mouseclick = "mouseclick"; + static const tgc_dm_mouseover = "mouseover"; + + static const tgc_PS_SOLID=0x0; + static const tgc_PS_DASH=0x1; + static const tgc_PS_DOT=0x2; + static const tgc_PS_DASHDOT=0x3; + static const tgc_PS_DASHDOTDOT=0x4; + static const tgc_PS_NULL=0x5 ; + + static const tgc_LS_interpolated="interpolated" ; + static const tgc_LS_staircase="staircase" ; + static const tgc_LS_arrowed="arrowed" ; + static const tgc_LS_barplot="barplot" ; + static const tgc_LS_filled="filled" ; + static const tgc_LS_bar="bar" ; +end +implementation +function mg_bds(bds,d); +begin + d[0,0] := min(bds[0,0],d[0,0]); + d[0,1] := max(bds[0,1],d[0,1]); + d[1,0] := min(bds[1,0],d[1,0]); + d[1,1] := max(bds[1,1],d[1,1]); + d[2,0] := min(bds[2,0],d[2,0]); + d[2,1] := max(bds[2,1],d[2,1]); +end +function p_trans(x,y,ag,_x,_y); +begin + _x := x*cos(ag)+y*sin(ag); + _y := -x*sin(ag)+y*cos(ag); +end +function paint_marks(mk,dc,xys); +begin + tp := mk.Style; + sz := mk.size; + a := integer(sz/2); + b := max(a,(sz-a)); + a := b; + dc.pen.Style := 0; + dc.pen.color := mk.color; + dc.brush.color := mk.bkcolor; + case tp of + "pentagram": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + vv := array(); + for ii := 0 to 11 do + begin + if (ii mod 2)=1 then + begin + p_trans(0,-a/2,(ii*36)/180*pi(),_x,_y); + end else + p_trans(0,-a,(ii*36)/180*pi(),_x,_y); + vv[ii] := array(v[0]+_x,v[1]+_y); + end + sp.points(vv).draw(); + end + end + "triangle_up": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + v1 := array(v[0],v[1]-a); + p_trans(0,-a,120/180*pi(),_x,_y); + v2 := array(v[0]+_x,v[1]+_y); + p_trans(0,-a,-120/180*pi(),_x,_y); + v3 := array(v[0]+_x,v[1]+_y); + sp.points(array(v1,v3,v2)).draw(); + end + end + "triangle_down": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + v1 := array(v[0],v[1]+a); + p_trans(0,a,120/180*pi(),_x,_y); + v2 := array(v[0]+_x,v[1]+_y); + p_trans(0,a,-120/180*pi(),_x,_y); + v3 := array(v[0]+_x,v[1]+_y); + sp.points(array(v1,v3,v2)).draw(); + end + end + "triangle_left": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + v1 := array(v[0]-a,v[1]); + p_trans(-a,0,120/180*pi(),_x,_y); + v2 := array(v[0]+_x,v[1]+_y); + p_trans(-a,0,-120/180*pi(),_x,_y); + v3 := array(v[0]+_x,v[1]+_y); + sp.points(array(v1,v3,v2)).draw(); + end + end + "triangle_right": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + v1 := array(v[0]+a,v[1]); + p_trans(a,0,120/180*pi(),_x,_y); + v2 := array(v[0]+_x,v[1]+_y); + p_trans(a,0,-120/180*pi(),_x,_y); + v3 := array(v[0]+_x,v[1]+_y); + sp.points(array(v1,v3,v2)).draw(); + end + end + "diamond_plus": + begin + mk.Style := "diamond"; + paint_marks(mk,dc,xys); + mk.Style := "plus"; + paint_marks(mk,dc,xys); + mk.Style := "diamond_plus"; + end + "diamond": + begin + sp := dc.draw_polygon(); + for i,v in xys do + begin + x := v[0]; + y := v[1]; + v1 := array(x-a,y); + v2 := array(x+b,y); + v3 := array(x,y-a); + v4 := array(x,y+b); + sp.points(array(v1,v3,v2,v4)).draw(); + + end + end + "dot","circle","squre": + begin + if tp="dot" then + dc.brush.color := mk.color; + if tp="squre" then pse := dc.draw_rect(); + else + pse := dc.draw_ellipse(); + for i,v in xys do + begin + rec := array(v[0]-a,v[1]-a,v[0]+b,v[1]+b); + pse.rect(rec).draw(); + end + end + "plus": + begin + for i,v in xys do + begin + x := v[0]; + y := v[1]; + v1 := array(x-a,y); + v2 := array(x+b,y); + v3 := array(x,y-a); + v4 := array(x,y+b); + dc.moveto(v1); + dc.lineto(v2); + dc.moveto(v3); + dc.lineto(v4); + end + end + "star": + begin + mk.Style := "circle"; + paint_marks(mk,dc,xys); + mk.Style := "plus"; + paint_marks(mk,dc,xys); + mk.Style := "star"; + end + "cross": + begin + for i,v in xys do + begin + x := v[0]; + y := v[1]; + v1 := array(x-a,y-a); + v2 := array(x+b,y+b); + v3 := array(x+b,y-a); + v4 := array(x-a,y+b); + dc.moveto(v1); + dc.lineto(v2); + dc.moveto(v3); + dc.lineto(v4); + end + end + "asterisk": + begin + mk.Style := "cross"; + paint_marks(mk,dc,xys); + mk.Style := "plus"; + paint_marks(mk,dc,xys); + mk.Style := "asterisk"; + end + end ; +end +initialization + +finalization + +end. \ No newline at end of file