//[procedure TControl.SetDoubleBuffered]
procedure TControl.SetDoubleBuffered(const Value: Boolean);
begin
  if CannotDoubleBuf then Exit;
  fDoubleBuffered := Value;
  Global_OnBufferedDraw := WndProcBufferedDraw;
  Global_Invalidate := @ InvalidateDblBufParent;
  Global_DblBufCreateWnd := @ DblBufCreateWndProc;
end;

{$IFDEF ASM_VERSION}
//[procedure TControl.SetTransparent]
procedure TControl.SetTransparent(const Value: Boolean);
asm
        CMP      [EAX].fTransparent, DL
        JZ       @@exit
        MOV      [EAX].fTransparent, DL
        TEST     DL, DL
        JZ       @@exit
        MOV      ECX, [EAX].fParent
        JECXZ    @@exit
        XCHG     EAX, ECX
        CALL     SetDoubleBuffered
@@exit:
end;
{$ELSE ASM_VERSION} //Pascal
procedure TControl.SetTransparent(const Value: Boolean);
begin
  if fTransparent = Value then Exit;
  fTransparent := Value;
  //ExStyle := ExStyle or WS_EX_TRANSPARENT;
  if fParent = nil then Exit;
  if Value then
    fParent.DoubleBuffered := True;
end;
{$ENDIF ASM_VERSION}

//[procedure TControl.SetDoubleBuffered]
procedure TControl.SetDoubleBuffered(const Value: Boolean);
begin
    if CannotDoubleBuf then Exit;
    fDoubleBuffered := Value;
    AttachProc(WndProcTransparent);
    {$IFNDEF SMALLEST_CODE}
    Global_AttachProcExtension := @TransparentAttachProcExtension;
    {$ENDIF}
end;

//[procedure TControl.SetTransparent]
{$IFDEF ASM_VERSION}
{$ELSE ASM_VERSION} //Pascal
procedure TControl.SetTransparent(const Value: Boolean);
begin
    fTransparent := Value;
    if fParent = nil then Exit;

{$IFDEF GRAPHCTL_XPSTYLES}
    if not AppTheming then
     fClassicTransparent := Value;
{$ENDIF}

    if Value then begin
        AttachProc(WndProcTransparent);
        fParent.DoubleBuffered := TRUE;
    end;
end;
{$ENDIF ASM_VERSION}

Add(MainForm,12310116,105,105)
{
 Left=20
 Top=105
 Color=32768
}
Add(Label,1547846,203,105)
{
 Left=70
 Top=65
 Width=87
 Height=41
 Font=[MS Sans Serif,24,1,0,1]
 Transparent=0
}
Add(Label,10179485,154,105)
{
 Left=190
 Top=130
 Width=87
 Height=41
 Font=[MS Sans Serif,24,1,0,1]
 Transparent=0
}
Add(ChildFormEx,7528158,154,154)
{
}
BEGIN_SDK
  Add(EditMultiEx,2479969,21,21)
  {
  }
  Add(MainForm,11508501,35,105)
  {
   Left=35
   Top=105
  }
END_SDK

Add(MainForm,3363257,329,252)
{
 Left=20
 Top=105
 Color=32768
}
Add(Label,12473907,329,203)
{
 Left=15
 Top=20
 Width=167
 Height=41
 Font=[MS Sans Serif,24,1,0,1]
 Transparent=0
 Alignment=2
}
Add(ChildFormEx,7528158,385,203)
{
}
BEGIN_SDK
  Add(EditMultiEx,2479969,21,21)
  {
   Width=356
   Height=326
  }
  Add(MainForm,11508501,56,105)
  {
   Left=35
   Top=105
   Color=32768
   Point(Handle)
  }
  Add(ChildFormEx,1320682,175,238)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,2479969,21,21)
    {
     Width=251
     Height=186
    }
    Add(MainForm,11508501,56,105)
    {
     Left=35
     Top=105
     Color=32768
     AlphaBlendValue=200
     Point(Handle)
    }
    Add(Label,12473907,189,112)
    {
     Left=110
     Top=100
     Width=167
     Height=41
     Font=[MS Sans Serif,24,1,0,1]
     Transparent=0
     Alignment=2
    }
  END_SDK
  Add(Label,12473907,189,112)
  {
   Left=125
   Top=75
   Width=167
   Height=41
   Font=[MS Sans Serif,24,1,0,1]
   Transparent=0
   Alignment=2
  }
  Add(ListBox,9680544,252,98)
  {
   Left=185
   Top=20
   Width=185
   Height=230
   Transparent=0
   Strings=#7:dfsdfsd|7:sdfsdsf|8:sdsdffsd|
  }
END_SDK
Add(RichEdit,14296980,385,252)
{
 Left=195
 Top=20
 Width=185
 Height=235
}

Self_DblBufTopParent := Self_.DblBufTopParent;
if Self_DblBufTopParent = nil then Exit;

if Self_.DblBufTopParent = nil then Exit;

Add(Label,15591883,63,28)
{
 Left=10
 Top=15
 Width=104
 Height=38
 Color=65535
 Font=[Arial,22,1,16711680,204]
 Transparent=0
 Caption="Label 1"
}
Add(ChildPanel,10089595,105,14)
{
}
BEGIN_SDK
  Add(EditMulti,4968307,21,21)
  {
  }
  Add(Panel,8029753,35,105)
  {
   Left=210
   Top=15
   Color=65535
   Caption="Panel1"
   Point(doColor)
  }
END_SDK
Add(ChildPanel,2704980,126,35)
{
}
BEGIN_SDK
  Add(EditMulti,522680,21,21)
  {
  }
  Add(Panel,5519791,35,105)
  {
   Left=230
   Top=45
   Color=16776960
   Caption="Panel2"
   Point(doColor)
  }
END_SDK
Add(ChildPanel,10738245,147,56)
{
}
BEGIN_SDK
  Add(EditMulti,4642224,21,21)
  {
  }
  Add(Panel,1229619,35,105)
  {
   Left=250
   Top=75
   Color=65280
   Caption="Panel3"
   Point(doColor)
  }
END_SDK
Add(Label,15567467,84,49)
{
 Left=40
 Top=30
 Width=104
 Height=38
 Color=16776960
 Font=[Arial,22,1,16711935,204]
 Transparent=0
 Caption="Label 2"
}
Add(Label,4287436,105,70)
{
 Left=70
 Top=45
 Width=104
 Height=38
 Color=65280
 Font=[Arial,22,1,255,204]
 Transparent=0
 Caption="Label 3"
}