comexform.pas

类似QQ的源码程序

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

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

function TExControlForm.Get_ClientHeight: Integer;
begin
      Result := _control.ClientHeight;
end;

procedure TExControlForm.Set_ClientHeight(Value: Integer);
begin
      _control.ClientHeight := Value;
end;

function TExControlForm.Get_ClientWidth: Integer;
begin
      Result := _control.ClientWidth;
end;

procedure TExControlForm.Set_ClientWidth(Value: Integer);
begin
      _control.ClientWidth := Value;
end;

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

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

function TExControlForm.Get_TransparentColor: Integer;
begin
    if (_control.TransparentColor = False) then Result := 0;
    if (_control.TransparentColor = True) then Result := 1;
end;

procedure TExControlForm.Set_TransparentColor(Value: Integer);
begin
   if (Value = 0) then _control.TransparentColor := False;
   if (Value = 1) then _control.TransparentColor := True;
end;

function TExControlForm.Get_TransparentColorValue: Integer;
begin
      Result := _control.TransparentColorValue;
end;

procedure TExControlForm.Set_TransparentColorValue(Value: Integer);
begin
      _control.TransparentColorValue := Value;
end;

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

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

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

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

function TExControlForm.Get_DefaultMonitor: Integer;
begin
    if (_control.DefaultMonitor = dmDesktop) then Result := 0;
    if (_control.DefaultMonitor = dmPrimary) then Result := 1;
    if (_control.DefaultMonitor = dmMainForm) then Result := 2;
    if (_control.DefaultMonitor = dmActiveForm) then Result := 3;
end;

procedure TExControlForm.Set_DefaultMonitor(Value: Integer);
begin
   if (Value = 0) then _control.DefaultMonitor := dmDesktop;
   if (Value = 1) then _control.DefaultMonitor := dmPrimary;
   if (Value = 2) then _control.DefaultMonitor := dmMainForm;
   if (Value = 3) then _control.DefaultMonitor := dmActiveForm;
end;

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

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

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

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

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

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

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

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

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

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

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

function TExControlForm.Get_FormStyle: Integer;
begin
    if (_control.FormStyle = fsNormal) then Result := 0;
    if (_control.FormStyle = fsMDIChild) then Result := 1;
    if (_control.FormStyle = fsMDIForm) then Result := 2;
    if (_control.FormStyle = fsStayOnTop) then Result := 3;
end;

procedure TExControlForm.Set_FormStyle(Value: Integer);
begin
   if (Value = 0) then _control.FormStyle := fsNormal;
   if (Value = 1) then _control.FormStyle := fsMDIChild;
   if (Value = 2) then _control.FormStyle := fsMDIForm;
   if (Value = 3) then _control.FormStyle := fsStayOnTop;
end;

function TExControlForm.Get_HelpFile: Widestring;
begin
      Result := _control.HelpFile;
end;

procedure TExControlForm.Set_HelpFile(const Value: Widestring);
begin
      _control.HelpFile := Value;
end;

function TExControlForm.Get_KeyPreview: Integer;
begin
    if (_control.KeyPreview = False) then Result := 0;
    if (_control.KeyPreview = True) then Result := 1;
end;

procedure TExControlForm.Set_KeyPreview(Value: Integer);
begin
   if (Value = 0) then _control.KeyPreview := False;
   if (Value = 1) then _control.KeyPreview := True;
end;

function TExControlForm.Get_Menu: IExodusControlMainMenu;
begin
      Result := TExControlMainMenu.Create(TTntMainMenu(_control.Menu));
end;

function TExControlForm.Get_OldCreateOrder: Integer;
begin
    if (_control.OldCreateOrder = False) then Result := 0;
    if (_control.OldCreateOrder = True) then Result := 1;
end;

procedure TExControlForm.Set_OldCreateOrder(Value: Integer);
begin
   if (Value = 0) then _control.OldCreateOrder := False;
   if (Value = 1) then _control.OldCreateOrder := True;
end;

function TExControlForm.Get_ObjectMenuItemCount: integer;
begin
    Result := _control.ObjectMenuItem.Count;
end;

function TExControlForm.Get_ObjectMenuItem(Index: integer): IExodusControlMenuItem;
begin
   if ((Index >= 0) and (Index < _control.ObjectMenuItem.Count)) then
      Result := TExControlMenuItem.Create(TTntMenuItem(_control.ObjectMenuItem[Index])) as IExodusControlMenuItem
   else 
      Result := nil;
end;

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

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

function TExControlForm.Get_PixelsPerInch: Integer;
begin
      Result := _control.PixelsPerInch;
end;

procedure TExControlForm.Set_PixelsPerInch(Value: Integer);
begin
      _control.PixelsPerInch := Value;
end;

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

function TExControlForm.Get_Position: Integer;
begin
    if (_control.Position = poDesigned) then Result := 0;
    if (_control.Position = poDefault) then Result := 1;
    if (_control.Position = poDefaultPosOnly) then Result := 2;
    if (_control.Position = poDefaultSizeOnly) then Result := 3;
    if (_control.Position = poScreenCenter) then Result := 4;
    if (_control.Position = poDesktopCenter) then Result := 5;
    if (_control.Position = poMainFormCenter) then Result := 6;
    if (_control.Position = poOwnerFormCenter) then Result := 7;
end;

procedure TExControlForm.Set_Position(Value: Integer);
begin
   if (Value = 0) then _control.Position := poDesigned;
   if (Value = 1) then _control.Position := poDefault;
   if (Value = 2) then _control.Position := poDefaultPosOnly;
   if (Value = 3) then _control.Position := poDefaultSizeOnly;
   if (Value = 4) then _control.Position := poScreenCenter;
   if (Value = 5) then _control.Position := poDesktopCenter;
   if (Value = 6) then _control.Position := poMainFormCenter;
   if (Value = 7) then _control.Position := poOwnerFormCenter;
end;

function TExControlForm.Get_PrintScale: Integer;
begin
    if (_control.PrintScale = poNone) then Result := 0;
    if (_control.PrintScale = poProportional) then Result := 1;
    if (_control.PrintScale = poPrintToFit) then Result := 2;
end;

procedure TExControlForm.Set_PrintScale(Value: Integer);
begin
   if (Value = 0) then _control.PrintScale := poNone;
   if (Value = 1) then _control.PrintScale := poProportional;
   if (Value = 2) then _control.PrintScale := poPrintToFit;
end;

function TExControlForm.Get_Scaled: Integer;
begin
    if (_control.Scaled = False) then Result := 0;
    if (_control.Scaled = True) then Result := 1;
end;

procedure TExControlForm.Set_Scaled(Value: Integer);
begin
   if (Value = 0) then _control.Scaled := False;
   if (Value = 1) then _control.Scaled := True;
end;

function TExControlForm.Get_ScreenSnap: Integer;
begin
    if (_control.ScreenSnap = False) then Result := 0;
    if (_control.ScreenSnap = True) then Result := 1;
end;

procedure TExControlForm.Set_ScreenSnap(Value: Integer);
begin
   if (Value = 0) then _control.ScreenSnap := False;
   if (Value = 1) then _control.ScreenSnap := True;
end;

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

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

function TExControlForm.Get_SnapBuffer: Integer;
begin
      Result := _control.SnapBuffer;
end;

procedure TExControlForm.Set_SnapBuffer(Value: Integer);
begin
      _control.SnapBuffer := Value;
end;

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

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

function TExControlForm.Get_WindowState: Integer;
begin
    if (_control.WindowState = wsNormal) then Result := 0;
    if (_control.WindowState = wsMinimized) then Result := 1;
    if (_control.WindowState = wsMaximized) then Result := 2;
end;

procedure TExControlForm.Set_WindowState(Value: Integer);
begin
   if (Value = 0) then _control.WindowState := wsNormal;
   if (Value = 1) then _control.WindowState := wsMinimized;
   if (Value = 2) then _control.WindowState := wsMaximized;
end;

function TExControlForm.Get_WindowMenuCount: integer;
begin
    Result := _control.WindowMenu.Count;
end;

function TExControlForm.Get_WindowMenu(Index: integer): IExodusControlMenuItem;
begin
   if ((Index >= 0) and (Index < _control.WindowMenu.Count)) then
      Result := TExControlMenuItem.Create(TTntMenuItem(_control.WindowMenu[Index])) as IExodusControlMenuItem
   else 
      Result := nil;
end;




end.