{$R BUTTONS.RES}
   
{ TBitBtn data }
var
 BitBtnResNames: array[TBitBtnKind] of PChar = (
   nil, 'BBOK', 'BBCANCEL', 'BBHELP', 'BBYES', 'BBNO', 'BBCLOSE',
   'BBABORT', 'BBRETRY', 'BBIGNORE', 'BBALL');

function GetBitBtnGlyph(Kind: TBitBtnKind): TBitmap;
begin
 if BitBtnGlyphs[Kind] = nil then
 begin
   BitBtnGlyphs[Kind] := TBitmap.Create;
   BitBtnGlyphs[Kind].LoadFromResourceName(HInstance, BitBtnResNames[Kind]);
 end;
 Result := BitBtnGlyphs[Kind];
end;

procedure TBitBtn.SetKind(Value: TBitBtnKind);
begin
 if Value <> FKind then
 begin
   if Value <> bkCustom then
   begin
     Default := Value in [bkOK, bkYes];
     Cancel := Value in [bkCancel, bkNo];
   
     if ((csLoading in ComponentState) and (Caption = '')) or
       (not (csLoading in ComponentState)) then
     begin
       if BitBtnCaptions[Value] <> nil then
         Caption := LoadResString(BitBtnCaptions[Value]);
     end;
   
     ModalResult := BitBtnModalResults[Value];
//  ---------------------------------------------------------------------------
     TButtonGlyph(FGlyph).Glyph := GetBitBtnGlyph(Value);
//  ---------------------------------------------------------------------------
     NumGlyphs := 2;
     FModifiedGlyph := False;
   end;
   FKind := Value;
   Invalidate;
 end;
end;