Получить Bitmap радио кнопок

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Diese Funktion liefert ein Bitmap eines RadioButton. 

  Parameter: 
  Checked = RadioButton ausgewahlt 
  Hot = RadioButton aktiv (funktioniert nur unter XP und 
  bewirkt z.B. unter Luna einen hellroten Rand) 
  BgColor = Hintergrundfarbe des RadioButton 

  Wichtig: 
  Die Bitmap sollte nach Ausfuhrung der Funktion wieder freigegeben werden! 
  XP-Styles werden erst ab Delphi7 unterstutzt. 
}


 Code:{$IFDEF VER150}

 uses
   Themes;
 {$ENDIF}

 function GetRadioButtonBitmap(Checked, Hot : boolean; BgColor : TColor): TBitmap;
 const
   CtrlState : array[boolean] of integer = (DFCS_BUTTONRADIO,
     DFCS_BUTTONRADIO or DFCS_CHECKED);
 var
   CBRect : TRect;
   {$IFDEF VER150}
   Details : TThemedElementDetails;
   {$ENDIF}
   BgOld : TColor;
   ChkBmp : TBitmap;
   ThemeOK : boolean;
   x, x2, y : integer;
 begin
   Result := nil;
   try
     Result := TBitmap.Create;
     ChkBmp := TBitmap.Create;
     ThemeOK := False;
     with Result do
     begin
       Width := 16;
       Height := 16;
       with Canvas do
       begin
         Brush.Color := BgColor;
         FillRect(ClipRect);
         ChkBmp.Assign(Result);
         CBRect := ClipRect;
         CBRect.Top := 1;
         CBRect.Left := 1;
         {$IFDEF VER150}
         if ThemeServices.ThemesAvailable then
         begin
           //ab WinXP 
          if Checked = True then
           begin
             if Hot = True then
               Details := ThemeServices.GetElementDetails(tbRadioButtonCheckedHot)
             else
               Details :=
                 ThemeServices.GetElementDetails(tbRadioButtonCheckedNormal);
           end
           else
           begin
             if Hot = True then
               Details :=
                 ThemeServices.GetElementDetails(tbRadioButtonUncheckedHot)
             else
               Details :=
                 ThemeServices.GetElementDetails(tbRadioButtonUncheckedNormal);
           end;
           ThemeServices.DrawElement(Handle, Details, CBRect);
           //Prufen ob es tatsachlich geklappt hat (Win2003 liefert leere Images!) 
          for x := 15 downto 0 do
             for y := 15 downto 0 do
               if ChkBmp.Canvas.Pixels[x, y] <> Pixels[x, y] then
               begin
                 ThemeOK := True;
                 break;
               end;
         end;
         {$ENDIF}
         if ThemeOK = False then
         begin
           //alles vor WinXP 
          CBRect.Left := ClipRect.Left + 2;
           CBRect.Right := ClipRect.Right - 1;
           CBRect.Top := ClipRect.Top + 2;
           CBRect.Bottom := ClipRect.Bottom - 1;
           DrawFrameControl(Handle, CBRect, DFC_BUTTON, CtrlState[Checked]);
         end;
       end;
     end;
   finally
   end;
 end;

Обсудить статью на форуме