闲云野鹤

var
  HM: HMonitor;
  I: Integer;
  LRect: TRect;
Begin
{$IFDEF STATIC_ADDIN}
  HM := MonitorFromWindow(FContext.MasterPageHandle, MONITOR_DEFAULTTONEAREST);
  if HM > 0 then
  begin
    for I := 0 to Screen.MonitorCount - 1 do
    if Screen.Monitors[I].Handle = HM then
    begin
      LRect := Screen.Monitors[I].WorkareaRect;
      SetBounds(LRect.Left + ((RectWidth(LRect) - Width) div 2),
        LRect.Top + ((RectHeight(LRect) - Height) div 2), Width, Height);
      Break;
    end;
  end;
{$ENDIF}
end;

unit uWnTransparentPanel;

interface

uses
  Windows,Classes,StdCtrls,ExtCtrls,Messages,Forms;

type
  TWnTransparentPanel = class(TPanel)
  private
    FTransparentPercent: Integer;
    procedure SetTransparentPercent(const Value: Integer);
  protected
    procedure WMPaint(var message : TMessage); message WM_Paint;
  public
    procedure StepShow(const ALeft,ATop,HStet,VStep:Integer);
  published
    property TransparentPercent: Integer read FTransparentPercent write SetTransparentPercent;
  end;

implementation

{ TWnTransparentPanel }

procedure TWnTransparentPanel.SetTransparentPercent(const Value: Integer);
begin
  FTransparentPercent := Value;
end;

procedure TWnTransparentPanel.StepShow(const ALeft, ATop,HStet, VStep: Integer);
var
  I: Integer;
begin
  Visible := True;
  Left := ALeft;
  Top := ATop+VStep*10  ;
  for I := 0 to 9 do
  begin
    Top := ATop +(9-I)*VStep;
    Self.Parent.Update;
    Self.Repaint;
    Sleep(100);
    Application.HandleMessage;
  end;
end;

procedure TWnTransparentPanel.WMPaint(var message: TMessage);
  procedure AlphaBlendTabControl;
  var
  MemBitmap, OldBitmap: HBITMAP;
  BF: BLENDFUNCTION;
  MemDC, DC: HDC;
  begin
    if (Parent = nil) or not Parent.HandleAllocated then
    Exit;
    DC := GetDC(0);
    MemBitmap := CreateCompatibleBitmap(DC, Parent.Width, Parent.Height);
    ReleaseDC(0, DC);
    MemDC := CreateCompatibleDC(0);
    OldBitmap := SelectObject(MemDC, MemBitmap);
    try
      Parent.Perform(WM_ERASEBKGND, MemDC, MemDC);
      Parent.Perform(WM_PAINT, MemDC, 0);

      BF.SourceConstantAlpha := TransparentPercent;
      BF.AlphaFormat := 0;
      BF.BlendOp := AC_SRC_OVER;
      BF.BlendFlags := 0;
      Windows.AlphaBlend(Canvas.Handle, 0, 0, Width, Height, MemDC, Left, Top, Width, Height, BF);
    finally
      SelectObject(MemDC, OldBitmap);
      DeleteDC(MemDC);
      DeleteObject(MemBitmap);
    end;
  end;
begin
  inherited;
  AlphaBlendTabControl;
end;

end.

stringtable
begin
1000, "29"

2000, "第一季度"
2001, "第二季度"
2002, "第三季度"
2003, "第四季度"
2004, "一季报"
2005, "中报"
2006, "三季报"
2007, "年报"
2008, "报告期"
2009, "从"
2010, "到"
2011, "或"
2012, "时间"
2013, "常用时间查询"  
2014, "自定义年度查询" 
2015, "自定义时间查询" 
2016, "筛选条件" 
2017, "全部资料" 
2018, "请选择时间范围" 
2019, "开始时间:" 
2020, "结束时间:"
2021, "确认" 
2022, "放弃"
2023, "年到"
2024, "年"
2025, "一季"
2026, "中报"
2027, "三季"
2028, "年报"

3000, "Quarter 1"
3001, "Quarter 2"
3002, "Quarter 3"
3003, "Quarter 4"
3004, "Q1 Report"
3005, "Mid-Year Report"
3006, "Q3 Report"
3007, "Annualreport"
3008, "ReportDate"
3009, "From"
3010, "To"
3011, "Or"
3012, "Date"
3013, "Common Time Span"
3014, "User-Defined Year"
3015, "User-Defined Time Span"
3016, "Select by"
3017, "All Related Data"
3018, "Select Time Period"
3019, "Begin Time:"
3020, "End Time:"
3021, "OK"
3022, "Cancel"
3023, "To"
3024, ""
3025, "Q1"
3026, "Q2"
3027, "Q3"
3028, "Q4"

End