comexbitbtn.pas

类似QQ的源码程序

      Result := _control.Caption;
end;

procedure TExControlBitBtn.Set_Caption(const Value: Widestring);
begin
      _control.Caption := Value;
end;

function TExControlBitBtn.Get_Default: Integer;
begin
    if (_control.Default = False) then Result := 0;
    if (_control.Default = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_Default(Value: Integer);
begin
   if (Value = 0) then _control.Default := False;
   if (Value = 1) then _control.Default := True;
end;

function TExControlBitBtn.Get_DragCursor: Integer;
begin
      Result := _control.DragCursor;
end;

procedure TExControlBitBtn.Set_DragCursor(Value: Integer);
begin
      _control.DragCursor := Value;
end;

function TExControlBitBtn.Get_DragKind: Integer;
begin
    if (_control.DragKind = dkDrag) then Result := 0;
    if (_control.DragKind = dkDock) then Result := 1;
end;

procedure TExControlBitBtn.Set_DragKind(Value: Integer);
begin
   if (Value = 0) then _control.DragKind := dkDrag;
   if (Value = 1) then _control.DragKind := dkDock;
end;

function TExControlBitBtn.Get_DragMode: Integer;
begin
    if (_control.DragMode = dmManual) then Result := 0;
    if (_control.DragMode = dmAutomatic) then Result := 1;
end;

procedure TExControlBitBtn.Set_DragMode(Value: Integer);
begin
   if (Value = 0) then _control.DragMode := dmManual;
   if (Value = 1) then _control.DragMode := dmAutomatic;
end;

function TExControlBitBtn.Get_Enabled: Integer;
begin
    if (_control.Enabled = False) then Result := 0;
    if (_control.Enabled = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_Enabled(Value: Integer);
begin
   if (Value = 0) then _control.Enabled := False;
   if (Value = 1) then _control.Enabled := True;
end;

function TExControlBitBtn.Get_Font: IExodusControlFont;
begin
      Result := TExControlFont.Create(TFont(_control.Font));
end;

function TExControlBitBtn.Get_ModalResult: Integer;
begin
      Result := _control.ModalResult;
end;

procedure TExControlBitBtn.Set_ModalResult(Value: Integer);
begin
      _control.ModalResult := Value;
end;

function TExControlBitBtn.Get_ParentBiDiMode: Integer;
begin
    if (_control.ParentBiDiMode = False) then Result := 0;
    if (_control.ParentBiDiMode = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_ParentBiDiMode(Value: Integer);
begin
   if (Value = 0) then _control.ParentBiDiMode := False;
   if (Value = 1) then _control.ParentBiDiMode := True;
end;

function TExControlBitBtn.Get_ParentFont: Integer;
begin
    if (_control.ParentFont = False) then Result := 0;
    if (_control.ParentFont = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_ParentFont(Value: Integer);
begin
   if (Value = 0) then _control.ParentFont := False;
   if (Value = 1) then _control.ParentFont := True;
end;

function TExControlBitBtn.Get_ParentShowHint: Integer;
begin
    if (_control.ParentShowHint = False) then Result := 0;
    if (_control.ParentShowHint = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_ParentShowHint(Value: Integer);
begin
   if (Value = 0) then _control.ParentShowHint := False;
   if (Value = 1) then _control.ParentShowHint := True;
end;

function TExControlBitBtn.Get_PopupMenu: IExodusControlPopupMenu;
begin
      Result := TExControlPopupMenu.Create(TTntPopupMenu(_control.PopupMenu));
end;

function TExControlBitBtn.Get_ShowHint: Integer;
begin
    if (_control.ShowHint = False) then Result := 0;
    if (_control.ShowHint = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_ShowHint(Value: Integer);
begin
   if (Value = 0) then _control.ShowHint := False;
   if (Value = 1) then _control.ShowHint := True;
end;

function TExControlBitBtn.Get_TabOrder: Integer;
begin
      Result := _control.TabOrder;
end;

procedure TExControlBitBtn.Set_TabOrder(Value: Integer);
begin
      _control.TabOrder := Value;
end;

function TExControlBitBtn.Get_TabStop: Integer;
begin
    if (_control.TabStop = False) then Result := 0;
    if (_control.TabStop = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_TabStop(Value: Integer);
begin
   if (Value = 0) then _control.TabStop := False;
   if (Value = 1) then _control.TabStop := True;
end;

function TExControlBitBtn.Get_Visible: Integer;
begin
    if (_control.Visible = False) then Result := 0;
    if (_control.Visible = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_Visible(Value: Integer);
begin
   if (Value = 0) then _control.Visible := False;
   if (Value = 1) then _control.Visible := True;
end;

function TExControlBitBtn.Get_WordWrap: Integer;
begin
    if (_control.WordWrap = False) then Result := 0;
    if (_control.WordWrap = True) then Result := 1;
end;

procedure TExControlBitBtn.Set_WordWrap(Value: Integer);
begin
   if (Value = 0) then _control.WordWrap := False;
   if (Value = 1) then _control.WordWrap := True;
end;

function TExControlBitBtn.Get_Kind: Integer;
begin
    if (_control.Kind = bkCustom) then Result := 0;
    if (_control.Kind = bkOK) then Result := 1;
    if (_control.Kind = bkCancel) then Result := 2;
    if (_control.Kind = bkHelp) then Result := 3;
    if (_control.Kind = bkYes) then Result := 4;
    if (_control.Kind = bkNo) then Result := 5;
    if (_control.Kind = bkClose) then Result := 6;
    if (_control.Kind = bkAbort) then Result := 7;
    if (_control.Kind = bkRetry) then Result := 8;
    if (_control.Kind = bkIgnore) then Result := 9;
    if (_control.Kind = bkAll) then Result := 10;
end;

procedure TExControlBitBtn.Set_Kind(Value: Integer);
begin
   if (Value = 0) then _control.Kind := bkCustom;
   if (Value = 1) then _control.Kind := bkOK;
   if (Value = 2) then _control.Kind := bkCancel;
   if (Value = 3) then _control.Kind := bkHelp;
   if (Value = 4) then _control.Kind := bkYes;
   if (Value = 5) then _control.Kind := bkNo;
   if (Value = 6) then _control.Kind := bkClose;
   if (Value = 7) then _control.Kind := bkAbort;
   if (Value = 8) then _control.Kind := bkRetry;
   if (Value = 9) then _control.Kind := bkIgnore;
   if (Value = 10) then _control.Kind := bkAll;
end;

function TExControlBitBtn.Get_Layout: Integer;
begin
    if (_control.Layout = blGlyphLeft) then Result := 0;
    if (_control.Layout = blGlyphRight) then Result := 1;
    if (_control.Layout = blGlyphTop) then Result := 2;
    if (_control.Layout = blGlyphBottom) then Result := 3;
end;

procedure TExControlBitBtn.Set_Layout(Value: Integer);
begin
   if (Value = 0) then _control.Layout := blGlyphLeft;
   if (Value = 1) then _control.Layout := blGlyphRight;
   if (Value = 2) then _control.Layout := blGlyphTop;
   if (Value = 3) then _control.Layout := blGlyphBottom;
end;

function TExControlBitBtn.Get_Margin: Integer;
begin
      Result := _control.Margin;
end;

procedure TExControlBitBtn.Set_Margin(Value: Integer);
begin
      _control.Margin := Value;
end;

function TExControlBitBtn.Get_NumGlyphs: Integer;
begin
      Result := _control.NumGlyphs;
end;

procedure TExControlBitBtn.Set_NumGlyphs(Value: Integer);
begin
      _control.NumGlyphs := Value;
end;

function TExControlBitBtn.Get_Style: Integer;
begin
    if (_control.Style = bsAutoDetect) then Result := 0;
    if (_control.Style = bsWin31) then Result := 1;
    if (_control.Style = bsNew) then Result := 2;
end;

procedure TExControlBitBtn.Set_Style(Value: Integer);
begin
   if (Value = 0) then _control.Style := bsAutoDetect;
   if (Value = 1) then _control.Style := bsWin31;
   if (Value = 2) then _control.Style := bsNew;
end;

function TExControlBitBtn.Get_Spacing: Integer;
begin
      Result := _control.Spacing;
end;

procedure TExControlBitBtn.Set_Spacing(Value: Integer);
begin
      _control.Spacing := Value;
end;




end.