zoukankan      html  css  js  c++  java
  • 窗体图片背景(两种方法:设置Brush.Bitmap指向图片,别的控件也可以这样)

    var
      Bitmap: TBitmap;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Bitmap := TBitmap.Create;
      Bitmap.LoadFromFile('c:	empg.bmp');
      Self.Brush.Bitmap := Bitmap;
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      Bitmap.Free;
    end;

    //效果图:
    

    http://www.cnblogs.com/del/archive/2008/02/10/1066596.html

    -------------------------------------------------------------------------------------------------------------------

    WinAPI: CreatePatternBrush - 建立位图画刷
    //声明:
    CreatePatternBrush(   Bitmap: HBITMAP {位图句柄} ): HBRUSH;        {返回画刷句柄}

    //举例:
    procedure TForm1.FormPaint(Sender: TObject);
    var
      Bitmap: TBitmap;
      BrushHandle: HBRUSH;
    begin
      Bitmap := TBitmap.Create;
      Bitmap.LoadFromFile('c:	empg.bmp');
      BrushHandle := CreatePatternBrush(Bitmap.Handle);
      FillRect(Canvas.Handle, ClientRect, BrushHandle);
      DeleteObject(BrushHandle);
    end;

    //效果图:
    
  • 相关阅读:
    【poj3764】 The xor-longest Path
    【poj3261】 Milk Patterns
    【poj3237】 Tree
    【bzoj2654】 tree
    【poj3122】 Pie
    【poj1011】 Sticks
    【poj1186】 方程的解数
    【poj2741】 Colored Cubes
    【poj3141】 Distant Galaxy
    【bzoj2456】 mode
  • 原文地址:https://www.cnblogs.com/findumars/p/6027922.html
Copyright © 2011-2022 走看看