WINDOWS.SetWindowLong(W, GWL_EXSTYLE, GetWindowLong(W, GWL_EXSTYLE) or WS_EX_LAYERED);
WINDOWS.SetLayeredWindowAttributes(W, 0, 255, LWA_ALPHA);

procedure TPanelka.Paint;
const
 Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
 Rect: TRect;
 TopColor, BottomColor: TColor;
 FontHeight: Integer;
 Flags: Longint;

 procedure AdjustColors(Bevel: TPanelBevel);
 begin
  TopColor:=FTopColor;
  BottomColor:=FBottomColor;
 end;

begin
 Rect := GetClientRect;
 if BevelOuter <> bvNone then
 begin
   AdjustColors(BevelOuter);
   Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
 end;
 Frame3D(Canvas, Rect, Color, Color, BorderWidth);
 if BevelInner <> bvNone then
 begin
   AdjustColors(BevelInner);
   Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
 end;
 if FPicture.Graphic<>nil then
  begin

   self.Canvas.FillRect(Rect);
   self.Canvas.StretchDraw(rect,FPicture.Graphic);

   with Canvas do
   begin

    FillRect(Rect);
    Font := Self.Font;
    FontHeight := TextHeight('W');

    case AlignmentV of
     InCenter:
      with Rect do
      begin
       Top:=((Bottom+Top)-FontHeight) div 2;
       Bottom:=Top+FontHeight;
      end;
     InBottom:
      Rect.Top:=Rect.Bottom-FontHeight-1;
    end;

    Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[FAlignment];
    Flags := DrawTextBiDiModeFlags(Flags);
    DrawText(Handle, PChar(Caption), -1, Rect, Flags);
   end;
  end else
  begin
   with Canvas do
   begin
    if self.TranspEnable=True then
    begin
     if not (csDesigning in ComponentState) then
     begin

      FillRect(Rect);
      Brush.Style:=bsClear;
      Font:=self.Font;
      FontHeight:=TextHeight('W');
     end
    end else
    begin
     Brush.Color := Color;
     FillRect(Rect);
     Brush.Style := bsClear;
     Font := Self.Font;
     FontHeight := TextHeight('W');
    end;
    case AlignmentV of
     InCenter:
      with Rect do
      begin
       Top:=((Bottom+Top)-FontHeight) div 2;
       Bottom:=Top+FontHeight;
      end;
     InBottom:
      Rect.Top:=Rect.Bottom-FontHeight-1;
    end;
    Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[FAlignment];
    Flags := DrawTextBiDiModeFlags(Flags);

    DrawText(Handle, PChar(Caption), -1, Rect, Flags);
   end;
  end;
  self.Update;
end;