模拟人生4界面大小怎样修改 界面大小修改方法一览
模拟人生4随意调整界面大小方法 怎么自定义界面大小
BlueStacks App Player安卓模拟器可以让你在电脑上玩转微信、来往、易信、微博、手机qq,可是刚安装的时候,android模拟器默认显示大小是和屏幕大小一样的,怎样才能调整BlueStacks App Player安卓模拟器的分辨率和手机屏幕差不多大小呀,这样就可以边看视频边和手机上的朋友聊天了。具体怎么样用什么方法设置BlueStacks App Player安卓模拟器的窗口显示大小,修改长度宽度尺寸,下面有2种方法,我们来看一看,一种是安装其他设置软件(给力助手)直接修改,还有一种是自己手动修改。(自定义蓝手指模拟器分辨率)
方法一:BlueStacks给力助手修改分辨率大小
1
打开BlueStacks模拟器,现在显示的是全屏幕大小的,也就是和屏一样大小幕是1440X900
步骤阅读
2
搜索给力助手,下载并安装完成。
步骤阅读
3
打开给力助手,点击模拟器设置,选择修改分辨率
步骤阅读
4
弹出自定义蓝手指模拟器分辨率窗口,输入我们要设置的尺寸,点击保存修改。
步骤阅读
5
重新启动BlueStacks安卓模拟器,看分辨率已经改成我们设置的450X760了
步骤阅读
END
方法二:手动修改注册表法
1
点击开始菜单运行,输入regedit,打开注册表编辑器
步骤阅读
2
依次打开这个注册表目录,HKEY_LOCAL_MACHINE\SOFTWARE\BlueStacks\Guests\Android\FrameBuffer\0,在右侧窗口中显示出当前的项目和数值,Height就是BlueStacks模拟器的窗口高度,Width就是BlueStacks模拟器的窗口宽度。
步骤阅读
3
双击Height项,其中的数值数据默认显示的是十六进制的,我们在基数中选中十进制
步骤阅读
4
选择十进制,输入我们要设置的高度760
步骤阅读
5
再双击打开Width项,输入450
步骤阅读
6
重新启动BlueStacks模拟器,窗口显示分辨率已经改好了。
步骤阅读
END
注意事项
本人习惯直接修改注册表项,如果你还要对BlueStacks模拟器做其他设置,可以使用给力助手设置。
方法一:BlueStacks给力助手修改分辨率大小
1
打开BlueStacks模拟器,现在显示的是全屏幕大小的,也就是和屏一样大小幕是1440X900
步骤阅读
2
搜索给力助手,下载并安装完成。
步骤阅读
3
打开给力助手,点击模拟器设置,选择修改分辨率
步骤阅读
4
弹出自定义蓝手指模拟器分辨率窗口,输入我们要设置的尺寸,点击保存修改。
步骤阅读
5
重新启动BlueStacks安卓模拟器,看分辨率已经改成我们设置的450X760了
步骤阅读
END
方法二:手动修改注册表法
1
点击开始菜单运行,输入regedit,打开注册表编辑器
步骤阅读
2
依次打开这个注册表目录,HKEY_LOCAL_MACHINE\SOFTWARE\BlueStacks\Guests\Android\FrameBuffer\0,在右侧窗口中显示出当前的项目和数值,Height就是BlueStacks模拟器的窗口高度,Width就是BlueStacks模拟器的窗口宽度。
步骤阅读
3
双击Height项,其中的数值数据默认显示的是十六进制的,我们在基数中选中十进制
步骤阅读
4
选择十进制,输入我们要设置的高度760
步骤阅读
5
再双击打开Width项,输入450
步骤阅读
6
重新启动BlueStacks模拟器,窗口显示分辨率已经改好了。
步骤阅读
END
注意事项
本人习惯直接修改注册表项,如果你还要对BlueStacks模拟器做其他设置,可以使用给力助手设置。
模拟人生4游戏界面大小最大多少
模拟人生4中的游戏界面太大或者太小都可以调节的
方法一览:
首先到我的文件:
C:\\Users\\使用者Documents\\Electronic Arts\\The Sims 4
打开"Options.ini"
按要求把uiscale =(预设=100)
再来是FrontSize Mod确实解决了问题。可是本人还是看不清楚GUI的图示
这个做法不需要加载Mods,也不需要备份档案,因为是100%安全的。
如何让用户在界面中修改编辑框的大小
{运行时让控件的外观象设计时一样的控件}
unit Resizer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
const
GRIDDEFAULT = 4;
type
TResizer = class;
TMover = class;
TMovingEvent = procedure(Sender: TResizer; var NewLeft, NewTop: integer) of object;
TSizingEvent = procedure(Sender: TResizer; var NewLeft, NewTop, NewWidth, NewHeight: integer) of object;
TResizer = class(TComponent)
protected
FActive : boolean;
FControl : TControl;
Sizers : TList;
GroupMovers : TList;
FGroup : TWinControl;
FGridX : integer;
FGridY : integer;
FOnSized : TNotifyEvent;
FOnSizing : TSizingEvent;
FOnMoved : TNotifyEvent;
FOnMoving : TMovingEvent;
Sizing : boolean;
Moving : boolean;
OrigSize : TRect;
NewSize : TRect;
DownX : integer;
DownY : integer;
FAllowSize : boolean;
FAllowMove : boolean;
FKeepIn : boolean;
FHotTrack : boolean;
OneMover : TMover;
CurMover : TMover;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetActive(b: boolean);
procedure SetControl(c: TControl);
procedure SetGroup(p: TWinControl);
procedure CreateSizers;
procedure CheckSizers;
procedure ShowSizers;
procedure HideSizers;
procedure SizerDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SizerUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SizerMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MoverDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MoverUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MoverMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure DrawSizeRect(Rect: TRect);
procedure Calc_Size_Rect(SizerNum, dx, dy: integer);
procedure DoSizingEvent;
procedure Calc_Move_Rect(dx, dy: integer);
procedure DoMovingEvent;
procedure Constrain_Size;
procedure Constrain_Move;
procedure MoverKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DoSizeMove(var Key: Word; Shift: TShiftState; dx, dy: integer);
procedure CreateGroupMovers;
procedure CreateOneMover(m: TMover; c: TControl);
function FindMoverByBuddy(c: TControl): TMover;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Active: boolean read FActive write SetActive default True;
property ResizeControl: TControl read FControl write SetControl;
property ResizeGroup: TWinControl read FGroup write SetGroup;
property GridX: integer read FGridX write FGridX default GRIDDEFAULT;
property GridY: integer read FGridY write FGridY default GRIDDEFAULT;
property OnSized: TNotifyEvent read FOnSized write FOnSized;
property OnSizing: TSizingEvent read FOnSizing write FOnSizing;
property OnMoved: TNotifyEvent read FOnMoved write FOnMoved;
property OnMoving: TMovingEvent read FOnMoving write FOnMoving;
property AllowSize: boolean read FAllowSize write FAllowSize default True;
property AllowMove: boolean read FAllowMove write FAllowMove default True;
property KeepInParent: boolean read FKeepIn write FKeepIn default True;
property HotTrack: boolean read FHotTrack write FHotTrack;
end;
TInvisWin = class(TPanel) // This could also derive from TPanel
protected
procedure WndProc(var Message: TMessage); override;
procedure CreateParams(var Params: TCreateParams); override;
procedure WMDLGCode(var Message: TMessage); message WM_GETDLGCODE;
public
property OnKeyDown;
end;
TMover = class(TInvisWin)
public
Buddy : TControl;
procedure Show;
end;
procedure Register;
implementation
const
SIZE = 6;
HALFSIZE = SIZE div 2;
type
TSizer = class(TPanel)
end;
procedure Register;
begin
RegisterComponents('Samples', [TResizer]);
end;
// *****************************************************************
// TInvisWin
procedure TInvisWin.WndProc(var Message: TMessage);
var
ps : TPaintStruct;
begin
case Message.Msg of
WM_ERASEBKGND: Message.Result := 1;
WM_PAINT: begin
BeginPaint(Handle, ps);
EndPaint(Handle, ps);
Message.Result := 1;
end;
else
inherited WndProc(Message);
end;
end;
procedure TInvisWin.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;
procedure TInvisWin.WMDLGCode(var Message: TMessage);
begin
Message.Result := DLGC_WANTARROWS or DLGC_WANTALLKEYS;
end;
// *****************************************************************
// TMover
procedure TMover.Show;
begin
Assert(Buddy <> nil);
BoundsRect := Buddy.BoundsRect;
Parent := Buddy.Parent;
Visible := True;
BringToFront;
end;
// *****************************************************************
// TResizer
constructor TResizer.Create(AOwner: TComponent);
begin
inherited;
FActive := True;
FKeepIn := True;
FGridX := GRIDDEFAULT;
FGridY := GRIDDEFAULT;
FAllowSize := True;
FAllowMove := True;
GroupMovers := TList.Create;
Sizers := TList.Create;
OneMover := TMover.Create(Self);
CreateOneMover(OneMover, nil);
CreateSizers;
end;
destructor TResizer.Destroy;
begin
GroupMovers.Free;
Sizers.Free;
Sizers := nil;
inherited;
end;
procedure TResizer.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited;
if csDestroying in ComponentState then exit;
if (AComponent = ResizeControl) and (Operation = opRemove) then
ResizeControl := nil;
end;
procedure TResizer.SetActive(b: boolean);
begin
if b<>FActive then begin
FActive := b;
CheckSizers;
end;
end;
procedure TResizer.SetControl(c: TControl);
begin
if c <> FControl then begin
if c<>nil then begin
if ResizeGroup<>nil then begin
Assert(c.Parent = ResizeGroup, 'ResizeControl is not in ResizeGroup!');
CurMover := FindMoverByBuddy(c);
end else begin
CurMover := OneMover;
CurMover.Buddy := c;
end;
CurMover.Show;
end;
FControl := c;
CheckSizers;
end;
end;
procedure TResizer.SetGroup(p: TWinControl);
begin
if p <> FGroup then begin
FGroup := p;
CreateGroupMovers;
end;
end;
procedure TResizer.CreateGroupMovers;
var
i : integer;
m : TMover;
c : TControl;
begin
if csDesigning in ComponentState then exit;
// Clear out the old Movers
for i := 0 to GroupMovers.Count-1 do
TObject(GroupMovers[i]).Free;
GroupMovers.Clear;
if ResizeGroup <> nil then begin
for i := 0 to ResizeGroup.ControlCount-1 do begin
c := ResizeGroup.Controls[i];
if (c is TMover) or (c is TSizer) then continue;
m := TMover.Create(Self);
CreateOneMover(m, c);
GroupMovers.Add(m);
m.Show;
end;
end;
end;
procedure TResizer.CreateSizers;
var
i : integer;
p : TSizer;
begin
if csDesigning in ComponentState then exit;
for i := 0 to 7 do begin
p := TSizer.Create(Self);
Sizers.Add(p);
p.BevelOuter := bvNone;
p.Width := SIZE;
p.Height := SIZE;
p.Color := clBlack;
p.Caption := '';
unit Resizer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
const
GRIDDEFAULT = 4;
type
TResizer = class;
TMover = class;
TMovingEvent = procedure(Sender: TResizer; var NewLeft, NewTop: integer) of object;
TSizingEvent = procedure(Sender: TResizer; var NewLeft, NewTop, NewWidth, NewHeight: integer) of object;
TResizer = class(TComponent)
protected
FActive : boolean;
FControl : TControl;
Sizers : TList;
GroupMovers : TList;
FGroup : TWinControl;
FGridX : integer;
FGridY : integer;
FOnSized : TNotifyEvent;
FOnSizing : TSizingEvent;
FOnMoved : TNotifyEvent;
FOnMoving : TMovingEvent;
Sizing : boolean;
Moving : boolean;
OrigSize : TRect;
NewSize : TRect;
DownX : integer;
DownY : integer;
FAllowSize : boolean;
FAllowMove : boolean;
FKeepIn : boolean;
FHotTrack : boolean;
OneMover : TMover;
CurMover : TMover;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetActive(b: boolean);
procedure SetControl(c: TControl);
procedure SetGroup(p: TWinControl);
procedure CreateSizers;
procedure CheckSizers;
procedure ShowSizers;
procedure HideSizers;
procedure SizerDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SizerUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SizerMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MoverDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MoverUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MoverMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure DrawSizeRect(Rect: TRect);
procedure Calc_Size_Rect(SizerNum, dx, dy: integer);
procedure DoSizingEvent;
procedure Calc_Move_Rect(dx, dy: integer);
procedure DoMovingEvent;
procedure Constrain_Size;
procedure Constrain_Move;
procedure MoverKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DoSizeMove(var Key: Word; Shift: TShiftState; dx, dy: integer);
procedure CreateGroupMovers;
procedure CreateOneMover(m: TMover; c: TControl);
function FindMoverByBuddy(c: TControl): TMover;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Active: boolean read FActive write SetActive default True;
property ResizeControl: TControl read FControl write SetControl;
property ResizeGroup: TWinControl read FGroup write SetGroup;
property GridX: integer read FGridX write FGridX default GRIDDEFAULT;
property GridY: integer read FGridY write FGridY default GRIDDEFAULT;
property OnSized: TNotifyEvent read FOnSized write FOnSized;
property OnSizing: TSizingEvent read FOnSizing write FOnSizing;
property OnMoved: TNotifyEvent read FOnMoved write FOnMoved;
property OnMoving: TMovingEvent read FOnMoving write FOnMoving;
property AllowSize: boolean read FAllowSize write FAllowSize default True;
property AllowMove: boolean read FAllowMove write FAllowMove default True;
property KeepInParent: boolean read FKeepIn write FKeepIn default True;
property HotTrack: boolean read FHotTrack write FHotTrack;
end;
TInvisWin = class(TPanel) // This could also derive from TPanel
protected
procedure WndProc(var Message: TMessage); override;
procedure CreateParams(var Params: TCreateParams); override;
procedure WMDLGCode(var Message: TMessage); message WM_GETDLGCODE;
public
property OnKeyDown;
end;
TMover = class(TInvisWin)
public
Buddy : TControl;
procedure Show;
end;
procedure Register;
implementation
const
SIZE = 6;
HALFSIZE = SIZE div 2;
type
TSizer = class(TPanel)
end;
procedure Register;
begin
RegisterComponents('Samples', [TResizer]);
end;
// *****************************************************************
// TInvisWin
procedure TInvisWin.WndProc(var Message: TMessage);
var
ps : TPaintStruct;
begin
case Message.Msg of
WM_ERASEBKGND: Message.Result := 1;
WM_PAINT: begin
BeginPaint(Handle, ps);
EndPaint(Handle, ps);
Message.Result := 1;
end;
else
inherited WndProc(Message);
end;
end;
procedure TInvisWin.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;
procedure TInvisWin.WMDLGCode(var Message: TMessage);
begin
Message.Result := DLGC_WANTARROWS or DLGC_WANTALLKEYS;
end;
// *****************************************************************
// TMover
procedure TMover.Show;
begin
Assert(Buddy <> nil);
BoundsRect := Buddy.BoundsRect;
Parent := Buddy.Parent;
Visible := True;
BringToFront;
end;
// *****************************************************************
// TResizer
constructor TResizer.Create(AOwner: TComponent);
begin
inherited;
FActive := True;
FKeepIn := True;
FGridX := GRIDDEFAULT;
FGridY := GRIDDEFAULT;
FAllowSize := True;
FAllowMove := True;
GroupMovers := TList.Create;
Sizers := TList.Create;
OneMover := TMover.Create(Self);
CreateOneMover(OneMover, nil);
CreateSizers;
end;
destructor TResizer.Destroy;
begin
GroupMovers.Free;
Sizers.Free;
Sizers := nil;
inherited;
end;
procedure TResizer.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited;
if csDestroying in ComponentState then exit;
if (AComponent = ResizeControl) and (Operation = opRemove) then
ResizeControl := nil;
end;
procedure TResizer.SetActive(b: boolean);
begin
if b<>FActive then begin
FActive := b;
CheckSizers;
end;
end;
procedure TResizer.SetControl(c: TControl);
begin
if c <> FControl then begin
if c<>nil then begin
if ResizeGroup<>nil then begin
Assert(c.Parent = ResizeGroup, 'ResizeControl is not in ResizeGroup!');
CurMover := FindMoverByBuddy(c);
end else begin
CurMover := OneMover;
CurMover.Buddy := c;
end;
CurMover.Show;
end;
FControl := c;
CheckSizers;
end;
end;
procedure TResizer.SetGroup(p: TWinControl);
begin
if p <> FGroup then begin
FGroup := p;
CreateGroupMovers;
end;
end;
procedure TResizer.CreateGroupMovers;
var
i : integer;
m : TMover;
c : TControl;
begin
if csDesigning in ComponentState then exit;
// Clear out the old Movers
for i := 0 to GroupMovers.Count-1 do
TObject(GroupMovers[i]).Free;
GroupMovers.Clear;
if ResizeGroup <> nil then begin
for i := 0 to ResizeGroup.ControlCount-1 do begin
c := ResizeGroup.Controls[i];
if (c is TMover) or (c is TSizer) then continue;
m := TMover.Create(Self);
CreateOneMover(m, c);
GroupMovers.Add(m);
m.Show;
end;
end;
end;
procedure TResizer.CreateSizers;
var
i : integer;
p : TSizer;
begin
if csDesigning in ComponentState then exit;
for i := 0 to 7 do begin
p := TSizer.Create(Self);
Sizers.Add(p);
p.BevelOuter := bvNone;
p.Width := SIZE;
p.Height := SIZE;
p.Color := clBlack;
p.Caption := '';
ps怎么修改操作界面大小,要固定比例,除了手动调...
点击菜单栏编辑-首选项-界面。点击常规中“在置入时调整图像大小”,再点击确定,就可以了。希望是你要找的答案。
怎样修改主程序界面的字体大小
有三种办法可以更改:
1、把你电脑的屏幕分辨率向下调低一个档次。具体操作:
桌面点鼠标右键-设置-屏幕分辨率。
2、桌面点鼠标右键-外观-字体大小,选大或特大。
3、桌面点鼠标右键-设置-高级-常规-DPI设置-选大尺寸(120DPI)或是自定义设置。
1、把你电脑的屏幕分辨率向下调低一个档次。具体操作:
桌面点鼠标右键-设置-屏幕分辨率。
2、桌面点鼠标右键-外观-字体大小,选大或特大。
3、桌面点鼠标右键-设置-高级-常规-DPI设置-选大尺寸(120DPI)或是自定义设置。