delphi代码变成bcb后太闪,都是在 FormPaint 方法中
delphi代码:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//利用imgTitleBarBG绘制标题背景
for i:=0 to ClientWidth div imgTitleBarBG.Width do
Draw(i*imgTitleBarBG.Width, 0, imgTitleBarBG.Picture.Bitmap);
if Tag<>0 then Exit; //如果窗体正在弹出状态，不绘制内容面板背景
// 绘制内容面板背景
SetRect(r, 5, 15, Width-5, Height-5);
StretchDraw(r, imgShapeBG.Picture.Bitmap);
Pen.Color := $C97F55;
Brush.Style := bsClear;
RoundRect(r.Left, r.Top, r.Right, r.Bottom, 6, 6);
//绘制窗体边框
rgn := CreateRectRgn(0,0,0,0);
GetWindowRgn(Self.Handle, rgn);
Brush.Color := $BE796B;
windows.FrameRgn(Handle, rgn, Brush.Handle, 2, 2);
DeleteObject(rgn);
end;
end;
转成bcb后的代码:::
Application-> ProcessMessages(); //加这句
//利用imgTitleBarBG绘制标题背景
for ( int i=0 ; i < (ClientWidth / imgTitleBarBG->Width) ; i++ )
{
Canvas->Draw(i * imgTitleBarBG->Width , 0 , imgTitleBarBG->Picture->Bitmap);
if (Tag!=0)
break; //如果窗�
