was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

24 Visitors Online


 
...ein Bitmap eines RadioButton erhalten?
Autor: Michael
Homepage: http://www.frifra.de
[ Tip ausdrucken ]  

Tip Bewertung (7):  
     


{
  Diese Funktion liefert ein Bitmap eines RadioButton.

  Parameter:
  Checked = RadioButton ausgewählt
  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 Ausführung der Funktion wieder freigegeben werden!
  XP-Styles werden erst ab Delphi7 unterstützt.
}


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);
          //Prüfen ob es tatsächlich geklappt hat (Win2003 liefert leere Images!)
          
for x := 15 downto do
            for 
y := 15 downto 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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners