comexpagecontrol.pas

类似QQ的源码程序

   if (Value = 1) then _control.BiDiMode := bdRightToLeft;
   if (Value = 2) then _control.BiDiMode := bdRightToLeftNoAlign;
   if (Value = 3) then _control.BiDiMode := bdRightToLeftReadingOnly;
end;

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

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

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

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

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

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

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

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

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

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

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

function TExControlPageControl.Get_HotTrack: Integer;
begin
    if (_control.HotTrack = False) then Result := 0;
    if (_control.HotTrack = True) then Result := 1;
end;

procedure TExControlPageControl.Set_HotTrack(Value: Integer);
begin
   if (Value = 0) then _control.HotTrack := False;
   if (Value = 1) then _control.HotTrack := True;
end;

function TExControlPageControl.Get_MultiLine: Integer;
begin
    if (_control.MultiLine = False) then Result := 0;
    if (_control.MultiLine = True) then Result := 1;
end;

procedure TExControlPageControl.Set_MultiLine(Value: Integer);
begin
   if (Value = 0) then _control.MultiLine := False;
   if (Value = 1) then _control.MultiLine := True;
end;

function TExControlPageControl.Get_OwnerDraw: Integer;
begin
    if (_control.OwnerDraw = False) then Result := 0;
    if (_control.OwnerDraw = True) then Result := 1;
end;

procedure TExControlPageControl.Set_OwnerDraw(Value: Integer);
begin
   if (Value = 0) then _control.OwnerDraw := False;
   if (Value = 1) then _control.OwnerDraw := True;
end;

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

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

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

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

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

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

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

function TExControlPageControl.Get_RaggedRight: Integer;
begin
    if (_control.RaggedRight = False) then Result := 0;
    if (_control.RaggedRight = True) then Result := 1;
end;

procedure TExControlPageControl.Set_RaggedRight(Value: Integer);
begin
   if (Value = 0) then _control.RaggedRight := False;
   if (Value = 1) then _control.RaggedRight := True;
end;

function TExControlPageControl.Get_ScrollOpposite: Integer;
begin
    if (_control.ScrollOpposite = False) then Result := 0;
    if (_control.ScrollOpposite = True) then Result := 1;
end;

procedure TExControlPageControl.Set_ScrollOpposite(Value: Integer);
begin
   if (Value = 0) then _control.ScrollOpposite := False;
   if (Value = 1) then _control.ScrollOpposite := True;
end;

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

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

function TExControlPageControl.Get_Style: Integer;
begin
    if (_control.Style = tsTabs) then Result := 0;
    if (_control.Style = tsButtons) then Result := 1;
    if (_control.Style = tsFlatButtons) then Result := 2;
end;

procedure TExControlPageControl.Set_Style(Value: Integer);
begin
   if (Value = 0) then _control.Style := tsTabs;
   if (Value = 1) then _control.Style := tsButtons;
   if (Value = 2) then _control.Style := tsFlatButtons;
end;

function TExControlPageControl.Get_TabHeight: Integer;
begin
      Result := _control.TabHeight;
end;

procedure TExControlPageControl.Set_TabHeight(Value: Integer);
begin
      _control.TabHeight := Value;
end;

function TExControlPageControl.Get_TabIndex: Integer;
begin
      Result := _control.TabIndex;
end;

procedure TExControlPageControl.Set_TabIndex(Value: Integer);
begin
      _control.TabIndex := Value;
end;

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

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

function TExControlPageControl.Get_TabPosition: Integer;
begin
    if (_control.TabPosition = tpTop) then Result := 0;
    if (_control.TabPosition = tpBottom) then Result := 1;
    if (_control.TabPosition = tpLeft) then Result := 2;
    if (_control.TabPosition = tpRight) then Result := 3;
end;

procedure TExControlPageControl.Set_TabPosition(Value: Integer);
begin
   if (Value = 0) then _control.TabPosition := tpTop;
   if (Value = 1) then _control.TabPosition := tpBottom;
   if (Value = 2) then _control.TabPosition := tpLeft;
   if (Value = 3) then _control.TabPosition := tpRight;
end;

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

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

function TExControlPageControl.Get_TabWidth: Integer;
begin
      Result := _control.TabWidth;
end;

procedure TExControlPageControl.Set_TabWidth(Value: Integer);
begin
      _control.TabWidth := Value;
end;

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

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




end.