comexpanel.pas

类似QQ的源码程序

function TExControlPanel.Get_BevelOuter: Integer;
begin
    if (_control.BevelOuter = bvNone) then Result := 0;
    if (_control.BevelOuter = bvLowered) then Result := 1;
    if (_control.BevelOuter = bvRaised) then Result := 2;
    if (_control.BevelOuter = bvSpace) then Result := 3;
end;

procedure TExControlPanel.Set_BevelOuter(Value: Integer);
begin
   if (Value = 0) then _control.BevelOuter := bvNone;
   if (Value = 1) then _control.BevelOuter := bvLowered;
   if (Value = 2) then _control.BevelOuter := bvRaised;
   if (Value = 3) then _control.BevelOuter := bvSpace;
end;

function TExControlPanel.Get_BevelWidth: Integer;
begin
      Result := _control.BevelWidth;
end;

procedure TExControlPanel.Set_BevelWidth(Value: Integer);
begin
      _control.BevelWidth := Value;
end;

function TExControlPanel.Get_BiDiMode: Integer;
begin
    if (_control.BiDiMode = bdLeftToRight) then Result := 0;
    if (_control.BiDiMode = bdRightToLeft) then Result := 1;
    if (_control.BiDiMode = bdRightToLeftNoAlign) then Result := 2;
    if (_control.BiDiMode = bdRightToLeftReadingOnly) then Result := 3;
end;

procedure TExControlPanel.Set_BiDiMode(Value: Integer);
begin
   if (Value = 0) then _control.BiDiMode := bdLeftToRight;
   if (Value = 1) then _control.BiDiMode := bdRightToLeft;
   if (Value = 2) then _control.BiDiMode := bdRightToLeftNoAlign;
   if (Value = 3) then _control.BiDiMode := bdRightToLeftReadingOnly;
end;

function TExControlPanel.Get_BorderWidth: Integer;
begin
      Result := _control.BorderWidth;
end;

procedure TExControlPanel.Set_BorderWidth(Value: Integer);
begin
      _control.BorderWidth := Value;
end;

function TExControlPanel.Get_BorderStyle: Integer;
begin
    if (_control.BorderStyle = bsNone) then Result := 0;
    if (_control.BorderStyle = bsSingle) then Result := 1;
end;

procedure TExControlPanel.Set_BorderStyle(Value: Integer);
begin
   if (Value = 0) then _control.BorderStyle := bsNone;
   if (Value = 1) then _control.BorderStyle := bsSingle;
end;

function TExControlPanel.Get_Caption: Widestring;
begin
      Result := _control.Caption;
end;

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

function TExControlPanel.Get_Color: Integer;
begin
      Result := _control.Color;
end;

procedure TExControlPanel.Set_Color(Value: Integer);
begin
      _control.Color := Value;
end;

function TExControlPanel.Get_Ctl3D: Integer;
begin
    if (_control.Ctl3D = False) then Result := 0;
    if (_control.Ctl3D = True) then Result := 1;
end;

procedure TExControlPanel.Set_Ctl3D(Value: Integer);
begin
   if (Value = 0) then _control.Ctl3D := False;
   if (Value = 1) then _control.Ctl3D := True;
end;

function TExControlPanel.Get_UseDockManager: Integer;
begin
    if (_control.UseDockManager = False) then Result := 0;
    if (_control.UseDockManager = True) then Result := 1;
end;

procedure TExControlPanel.Set_UseDockManager(Value: Integer);
begin
   if (Value = 0) then _control.UseDockManager := False;
   if (Value = 1) then _control.UseDockManager := True;
end;

function TExControlPanel.Get_DockSite: Integer;
begin
    if (_control.DockSite = False) then Result := 0;
    if (_control.DockSite = True) then Result := 1;
end;

procedure TExControlPanel.Set_DockSite(Value: Integer);
begin
   if (Value = 0) then _control.DockSite := False;
   if (Value = 1) then _control.DockSite := True;
end;

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

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

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

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

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

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

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

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

function TExControlPanel.Get_FullRepaint: Integer;
begin
    if (_control.FullRepaint = False) then Result := 0;
    if (_control.FullRepaint = True) then Result := 1;
end;

procedure TExControlPanel.Set_FullRepaint(Value: Integer);
begin
   if (Value = 0) then _control.FullRepaint := False;
   if (Value = 1) then _control.FullRepaint := True;
end;

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

function TExControlPanel.Get_Locked: Integer;
begin
    if (_control.Locked = False) then Result := 0;
    if (_control.Locked = True) then Result := 1;
end;

procedure TExControlPanel.Set_Locked(Value: Integer);
begin
   if (Value = 0) then _control.Locked := False;
   if (Value = 1) then _control.Locked := True;
end;

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

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

function TExControlPanel.Get_ParentBackground: Integer;
begin
    if (_control.ParentBackground = False) then Result := 0;
    if (_control.ParentBackground = True) then Result := 1;
end;

procedure TExControlPanel.Set_ParentBackground(Value: Integer);
begin
   if (Value = 0) then _control.ParentBackground := False;
   if (Value = 1) then _control.ParentBackground := True;
end;

function TExControlPanel.Get_ParentColor: Integer;
begin
    if (_control.ParentColor = False) then Result := 0;
    if (_control.ParentColor = True) then Result := 1;
end;

procedure TExControlPanel.Set_ParentColor(Value: Integer);
begin
   if (Value = 0) then _control.ParentColor := False;
   if (Value = 1) then _control.ParentColor := True;
end;

function TExControlPanel.Get_ParentCtl3D: Integer;
begin
    if (_control.ParentCtl3D = False) then Result := 0;
    if (_control.ParentCtl3D = True) then Result := 1;
end;

procedure TExControlPanel.Set_ParentCtl3D(Value: Integer);
begin
   if (Value = 0) then _control.ParentCtl3D := False;
   if (Value = 1) then _control.ParentCtl3D := True;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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




end.