Add(MainForm,2953706,21,98)
{
 Height=400
 Point(Handle)
 Point(onPaint)
}
Add(Bitmap,1780797,483,196)
{
 @Hint=#18:Вставить картинку!|
}
Add(Timer,16100337,126,280)
{
 Interval=330
 link(onTimer,8025807:doRefresh,[])
}
Add(GP_Canvas,13164349,287,280)
{
 Name="myCanvas"
 link(onSet,2115229:doSet,[])
 link(Bitmap,8025807:Bitmap,[(293,268)(261,268)(261,324)(230,324)])
}
Add(PaintBox,8025807,224,280)
{
 Left=160
 Top=40
 Width=345
 Height=295
 Align=5
 Color=-16777196
 ClearBeforeDraw=0
 link(onBeforeDraw,13164349:doSet,[])
}
Add(GP_BrushTexture,2115229,476,280)
{
 Index="1"
 Canvas="myCanvas"
 link(onSet,855326:doDraw,[])
 link(Picture,8690138:Var2,[])
 AddHint(-2,-30,21,13,Index)
}
Add(GP_Rectangle,855326,518,280)
{
 Width=200
 Hieght=200
 View=2
 Brush="1"
 Canvas="myCanvas"
 link(onDraw,4231292:doSet,[])
}
Add(GP_BrushTexture,4231292,567,280)
{
 WrapMode=1
 Index="2"
 Canvas="myCanvas"
 link(onSet,6505614:doDraw,[])
 link(Picture,8690138:Var3,[(580,257)])
 AddHint(-2,-30,21,13,Index)
}
Add(GP_Rectangle,6505614,616,280)
{
 X=200
 Width=200
 Hieght=200
 View=2
 Brush="2"
 Canvas="myCanvas"
}
Add(GetDataEx,8690138,483,252)
{
 link(Data,1780797:Bitmap,[])
}

unit hiGP_BrushTexture;

interface

uses Windows,Kol,Share,ActiveX,Debug,hiGP_Canvas,GDIPOBJ,GDIPAPI;

type
  THIGP_BrushTexture= class(TDebug)
   private
      bmp: PBitmap;
      procedure SetPicture(Value:HBITMAP);
   public
     _prop_WrapMode:integer;
     _prop_FileName:string;
     _prop_FromFile:boolean;
     _prop_UseMatrix:boolean; 
     _prop_Index: string;
     _prop_Canvas:PICurrentCanvas;
              
     _data_Picture:THI_Event; 
     _data_FileName:THI_Event;
     _data_WrapMode:THI_Event;
     _data_Index:THI_Event; 
     _event_onSet: THI_Event;

     constructor Create;
     destructor Destroy; override;
     procedure _work_doSet(var _Data:TData; Index:word);
     procedure _work_doFromFile(var _Data:TData; Index:word);
     property _prop_Picture:HBITMAP write SetPicture;
  end;

implementation

constructor THIGP_BrushTexture.Create;
begin
  inherited Create;
  bmp := NewBitmap(0,0);
end;

destructor THIGP_BrushTexture.Destroy;
begin
  if Assigned(bmp) then bmp.Free;
  inherited;
end;

procedure THIGP_BrushTexture._work_doSet;
var	iBrush:string;
    ist:IStream;
    pst:PStream;
    TextureBrush:TGPTextureBrush;
    GPImage: TGPImage;
    wrap: integer;
    GPMatrix: TGPMatrix;
    bmpLoad:PBitmap;
begin
     if not Assigned(_prop_Canvas) then exit;
     if _prop_FromFile then
      begin
       GPImage := TGPImage.Create(ReadString(_data,_data_FileName,_prop_FileName));
       if GPImage.GetType <> ImageTypeBitmap then exit;
      end
     else
      begin
	   bmpLoad := ReadBitmap(_Data,_data_Picture,nil);
       if (bmpLoad <> nil) then
       bmp.Assign(bmpLoad);
       if bmp.Empty then
   	    exit;
       pst := NewMemoryStream;
       bmp.SaveToStream(pst);
       if CreateStreamOnHGlobal(0, true, ist) = S_OK
	    then ist.write(pSt.Memory,pst.Size,nil);
	   GPImage := TGPImage.Create(ist);
       pst.Free;
       ist := nil;
      end;
     wrap := ReadInteger(_data,_data_WrapMode,_prop_WrapMode);
     iBrush := ReadString(_data,_data_Index,_prop_Index);
     TextureBrush := TGPTextureBrush.Create(GPImage, TWrapMode(wrap));
     GPImage.Free;
     if _prop_UseMatrix then begin
      TextureBrush.SetTransform(_prop_Canvas.Get_Matrix); 
      GPMatrix := _prop_Canvas.Get_Matrix;
	  GPMatrix.Reset;
     end;
      _prop_Canvas.Set_Brush(TextureBrush.Clone,iBrush); 
     TextureBrush.Free;
     _hi_CreateEvent(_Data,@_event_onSet);
end;

procedure THIGP_BrushTexture._work_doFromFile;
begin
  _prop_FromFile := ReadBool(_Data);
end;

procedure THIGP_BrushTexture.SetPicture;
begin
  if Value = 0 then exit;
  bmp.Handle := Value;
end;

end.