Skip to content

Commit

Permalink
优化
Browse files Browse the repository at this point in the history
  • Loading branch information
@msfm2018
msfm2018 committed Apr 20, 2024
1 parent e6eede2 commit 973cd45
Show file tree
Hide file tree
Showing 8 changed files with 68 additions and 128 deletions.
117 changes: 34 additions & 83 deletions ApplicationMain.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,16 +4,13 @@ interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
core, Dialogs, ExtCtrls, core_db,
Generics.Collections, Vcl.Imaging.pngimage,
inifiles, Vcl.Imaging.jpeg,
u_debug, ComObj, System.Math, ConfigurationForm, Vcl.Menus, InfoBarForm,
System.Generics.Collections, event;
core, Dialogs, ExtCtrls, core_db, Generics.Collections, Vcl.Imaging.pngimage,
inifiles, Vcl.Imaging.jpeg, u_debug, ComObj, System.Math, ConfigurationForm,
Vcl.Menus, InfoBarForm, System.Generics.Collections, event;

type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Image111MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure action_setClick(Sender: TObject);
Expand All @@ -35,12 +32,13 @@ TForm1 = class(TForm)
img_bg1: timage;
pm: TPopupMenu;
menuItems: array of TMenuItem;
procedure imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure CreateRoundRectRgn1(w, h: Integer);
procedure CalculateAndPositionNodes;
procedure img_bgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure move_windows(h: thandle);
procedure Image111MouseLeave(Sender: TObject);
procedure Image111MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure imgMouseLeave(Sender: TObject);
procedure imgMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure loadInit;

public
Expand Down Expand Up @@ -72,46 +70,13 @@ procedure TForm1.CalculateAndPositionNodes();
var hashKeys1 := g_core.dbmgr.itemdb.GetKeys();
g_core.nodes.size := hashKeys1.Count;

if hashKeys1.Count = 0 then
begin
var sysdir: pchar;
var SysTemDir: string;

Getmem(sysdir, 100);
try
getsystemdirectory(sysdir, 100);
SysTemDir := string(sysdir);
finally
Freemem(sysdir, 100);
end;

g_core.utils.fileMap.TryAdd(ExtractFilePath(ParamStr(0)) + 'img\flower.png', SysTemDir + '\notepad.exe');
g_core.utils.fileMap.TryAdd(ExtractFilePath(ParamStr(0)) + 'img\smail.png', SysTemDir + '\calc.exe');
g_core.utils.fileMap.TryAdd(ExtractFilePath(ParamStr(0)) + 'img\solid.png', SysTemDir + '\mspaint.exe');
g_core.utils.fileMap.TryAdd(ExtractFilePath(ParamStr(0)) + 'img\11.png', SysTemDir + '\cmd.exe');
g_core.utils.fileMap.TryAdd(ExtractFilePath(ParamStr(0)) + 'img\06.png', SysTemDir + '\mstsc.exe');

g_core.utils.UpdateDB;

g_core.nodes.size := g_core.dbmgr.itemdb.GetKeys().Count;
hashKeys1 := g_core.dbmgr.itemdb.GetKeys();
end;

if g_core.nodes.nodes_array <> nil then
begin
for var I := 0 to Length(g_core.nodes.nodes_array) - 1 do
begin
freeandnil(g_core.nodes.nodes_array[I]);
end;
for var Node in g_core.nodes.nodes_array do
FreeAndNil(Node);
end;

Form1.Left := g_core.dbmgr.cfgDb.GetInteger('left');
Form1.top := g_core.dbmgr.cfgDb.GetInteger('top');
// Form1.Width := g_core.nodes.Count * g_core.nodes.node_size + g_core.nodes.Count * g_core.nodes.node_gap * 4 ;
// + g_core.nodes.Count * g_core.nodes.node_gap
// + 20; //20 g_core.nodes.node_gap

Form1.height := g_core.utils.CalculateFormHeight(g_core.nodes.node_size, Form1.height);
Form1.height := g_core.nodes.node_size + g_core.nodes.node_size div 2 + 28;

setlength(g_core.nodes.nodes_array, g_core.nodes.size);
for var I := 0 to g_core.nodes.size - 1 do
Expand All @@ -121,7 +86,7 @@ procedure TForm1.CalculateAndPositionNodes();
g_core.nodes.nodes_array[I].Height := g_core.nodes.node_size;

if I = 0 then
g_core.nodes.nodes_array[I].Left := g_core.nodes.node_gap + 10 // g_core.nodes.node_gap
g_core.nodes.nodes_array[I].Left := g_core.nodes.node_gap + 16
else
begin

Expand All @@ -131,38 +96,29 @@ procedure TForm1.CalculateAndPositionNodes();

with g_core.nodes.nodes_array[I] do
begin
var parent1 := self.GetClientRect();
top := (parent1.height - g_core.nodes.node_size) div 2;

top := (self.GetClientRect().height - g_core.nodes.node_size) div 2;
Parent := Form1;
Width := g_core.nodes.node_size;
height := g_core.nodes.node_size;
Transparent := true;
Center := true;
node_path := g_core.dbmgr.itemdb.GetString(hashKeys1[I], False);
var t := g_core.dbmgr.itemdb.GetString(hashKeys1[I]);
var fname := '';
var fpath := '';
// Debug.Show(t);
if t.Contains('.\img') then
begin
// debug.Show('------------') ;

fname := ExtractFileName(t);
fpath := ExtractFilePath(ParamStr(0)) + 'img\' + fname;
Picture.LoadFromFile(fpath);
// Debug.Show(fpath);
end
if t.Contains('.\img') then
Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'img\' + ExtractFileName(t))
else

Picture.LoadFromFile(t);

Stretch := true;

OnMouseMove := Image111MouseMove;
OnMouseLeave := Image111MouseLeave;
OnMouseMove := imgMouseMove;
OnMouseLeave := imgMouseLeave;
OnMouseDown := FormMouseDown;
OnClick := img_click;
OnMouseWheel := Image111MouseWheel;
OnMouseWheel := imgMouseWheel;

node_left := g_core.nodes.nodes_array[I].Left;

Expand Down Expand Up @@ -232,7 +188,7 @@ procedure TForm1.layout();

procedure TForm1.img_click(Sender: TObject);
begin
g_core.utils.LaunchApplication(tnode(Sender).node_path);
g_core.utils.launch_app(tnode(Sender).node_path);
EventDef.isLeftClick := False;

end;
Expand Down Expand Up @@ -301,9 +257,9 @@ procedure TForm1.CreateRoundRectRgn1(w, h: Integer);
var
Rgn: HRGN;
begin
// Rgn := CreateRoundRectRgn(0, 0, w, h, 80, 80);
//
// SetWindowRgn(Handle, Rgn, true);
Rgn := CreateRoundRectRgn(0, 0, w, h, 8, 8);

SetWindowRgn(Handle, Rgn, true);
end;

procedure tform1.loadInit();
Expand All @@ -316,6 +272,9 @@ procedure tform1.loadInit();
if not TOSVersion.Check(6, 2) then
Application.Terminate;

Form1.Left := g_core.dbmgr.cfgDb.GetInteger('left');
Form1.top := g_core.dbmgr.cfgDb.GetInteger('top');

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and (not WS_EX_APPWINDOW));
ShowWindow(Application.Handle, SW_HIDE);
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
Expand All @@ -333,6 +292,7 @@ procedure tform1.loadInit();
BorderStyle := bsNone;

CreateRoundRectRgn1(Width + 1, height + 1);

if pm = nil then
pm := TPopupMenu.Create(self);
menuItemClickHandlers[0] := N1Click;
Expand All @@ -352,7 +312,7 @@ procedure tform1.loadInit();
end;

PopupMenu := pm;
form1.OnMouseWheel := Image111MouseWheel;
form1.OnMouseWheel := imgMouseWheel;

end;

Expand All @@ -364,18 +324,18 @@ procedure TForm1.FormShow(Sender: TObject);
procedure TForm1.hotkey(var Msg: tmsg);
begin
if (Msg.message = FShowkeyid) and (g_core.utils.short_key.Trim <> '') then
g_core.utils.LaunchApplication(g_core.utils.short_key);
g_core.utils.launch_app(g_core.utils.short_key);

end;

// 处理鼠标离开事件
procedure TForm1.Image111MouseLeave(Sender: TObject);
procedure TForm1.imgMouseLeave(Sender: TObject);
begin

end;

// 移动窗口逻辑
procedure TForm1.Image111MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure TForm1.imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
a, rate: double;
b: double;
Expand Down Expand Up @@ -405,24 +365,18 @@ procedure TForm1.Image111MouseMove(Sender: TObject; Shift: TShiftState; X, Y: In
begin
a := g_core.nodes.nodes_array[I].Left - ScreenToClient(lp).X + g_core.nodes.nodes_array[I].Width / 2;
b := g_core.nodes.nodes_array[I].top - ScreenToClient(lp).Y + g_core.nodes.nodes_array[I].height / 4;
rate := Exp(-sqrt(a * a + b * b) / g_core.utils.CalculateZoomFactor(g_core.nodes.node_size));
rate := Exp(-sqrt(a * a + b * b) / (103.82 * 5));
rate := Min(Max(rate, 0.5), 1);

// 根据ZoomFactor来调整按钮的宽度和高度 *1.8

NewWidth := Round(g_core.nodes.nodes_array[I].original_width * 2 * rate);
NewHeight := Round(g_core.nodes.nodes_array[I].original_height * 2 * rate);

var maxValue: Integer := 138;
var maxValue: Integer := 128;
// 限制按钮的最大宽度和高度
NewWidth := Min(NewWidth, maxValue);
NewHeight := Min(NewHeight, maxValue);

// // 计算按钮的新位置，使其保持在中心点
// NewLeft := g_core.nodes.nodes_array[I].center_x - NewWidth div 2;
// NewTop := g_core.nodes.nodes_array[I].center_y - NewHeight div 2;
//
// g_core.nodes.nodes_array[I].SetBounds(NewLeft, NewTop, NewWidth, NewHeight);
// 计算按钮的新位置，使其保持在中心点


g_core.nodes.nodes_array[I].center_x := g_core.nodes.nodes_array[I].Left + g_core.nodes.nodes_array[I].Width div 2;
Expand Down Expand Up @@ -459,7 +413,7 @@ procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TSh

end;

procedure TForm1.Image111MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure TForm1.imgMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
I: Integer;
NewWidth, NewHeight: Integer;
Expand All @@ -485,9 +439,6 @@ procedure TForm1.Image111MouseWheel(Sender: TObject; Shift: TShiftState; WheelDe
g_core.dbmgr.cfgDb.SetVarValue('ih', i1);
end;

g_core.dbmgr.cfgDb.SetVarValue('left', Left);
g_core.dbmgr.cfgDb.SetVarValue('top', top);

layout();

end;
Expand All @@ -509,7 +460,7 @@ procedure TForm1.move_windows(h: thandle);

procedure TForm1.N1Click(Sender: TObject);
begin
g_core.utils.LaunchApplication('https://fanyi.baidu.com/');
g_core.utils.launch_app('https://fanyi.baidu.com/');
end;

procedure TForm1.action_setClick(Sender: TObject);
Expand Down
20 changes: 10 additions & 10 deletions ConfigurationForm.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -91,16 +91,16 @@ function text_outa(txt: string; y, gc1, gc2: TColor;light:boolean): string;


// var fontFamily := TGPFontFamily.Create('黑体'); //△字体，效果图为'微软雅黑'字体
//var strFormat := TGPStringFormat.Create();
// var path := TGPGraphicsPath.Create();
// //---------------------结束：初始化操作--------------------------------------
// path.AddString('你好', -1, //要添加的 String
// fontFamily, //表示绘制文本所用字体的名称
// 0, //指定应用到文本的字形信息,这里为普通文本
// 40, //限定字符的 Em（字体大小）方框的高度
// MakePoint(0, y * 0.65), //一个 Point，它表示文本从其起始的点
// sf); //指定文本格式设置信息
// var pen := TGPPen.Create(MakeColor(155,215,215,215),3); //颜色、宽度
//var strFormat := TGPStringFormat.Create();
// var path := TGPGraphicsPath.Create();
// //---------------------结束：初始化操作--------------------------------------
// path.AddString('你好', -1, //要添加的 String
// fontFamily, //表示绘制文本所用字体的名称
// 0, //指定应用到文本的字形信息,这里为普通文本
// 40, //限定字符的 Em（字体大小）方框的高度
// MakePoint(0, y * 0.65), //一个 Point，它表示文本从其起始的点
// sf); //指定文本格式设置信息
// var pen := TGPPen.Create(MakeColor(155,215,215,215),3); //颜色、宽度
// graphics.DrawPath(pen,path); //初步绘制GraphicsPath


Expand Down
2 changes: 1 addition & 1 deletion WinBarOS.dproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
<ProjectGuid>{43E7F1A5-6A37-4C34-8382-A1714837048E}</ProjectGuid>
<MainSource>WinBarOS.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
Expand Down
30 changes: 15 additions & 15 deletions WinBarOS.dproj.local
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,23 +2,23 @@
<BorlandProject>
<Transactions>
<Transaction>2022/06/27 00:05:22.000.749,=C:\Users\Administrator\Desktop\git\win_mac_tool\core\CoreDB.pas</Transaction>
<Transaction>2022/06/27 00:05:53.000.836,=C:\Users\Administrator\Desktop\git\win_mac_tool\sqlite\SQLite3.pas</Transaction>
<Transaction>2022/06/27 00:05:53.000.882,=C:\Users\Administrator\Desktop\git\win_mac_tool\sqlite\sqlite3udf.pas</Transaction>
<Transaction>2022/06/27 00:05:53.000.929,=C:\Users\Administrator\Desktop\git\win_mac_tool\sqlite\SQLiteTable3.pas</Transaction>
<Transaction>2022/06/27 09:25:47.000.987,C:\Users\Administrator\Desktop\git\win_mac_tool\tsForm.dfm=C:\Users\Administrator\Desktop\git\win_mac_tool\main.dfm</Transaction>
<Transaction>2022/06/27 09:25:47.000.987,C:\Users\Administrator\Desktop\git\win_mac_tool\tsForm.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\main.pas</Transaction>
<Transaction>2022/06/27 09:30:13.000.877,C:\Users\Administrator\Desktop\git\win_mac_tool\cfg_form.dfm=C:\Users\Administrator\Desktop\git\win_mac_tool\cfgForm.dfm</Transaction>
<Transaction>2022/06/27 09:30:13.000.877,C:\Users\Administrator\Desktop\git\win_mac_tool\cfg_form.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\cfgForm.pas</Transaction>
<Transaction>2022/06/27 00:05:53.000.836,=C:\Users\Administrator\Desktop\git\win_mac_tool\sqlite\SQLite3.pas</Transaction>
<Transaction>2022/06/27 09:25:47.000.987,C:\Users\Administrator\Desktop\git\win_mac_tool\main.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\tsForm.pas</Transaction>
<Transaction>2022/06/27 09:25:47.000.987,C:\Users\Administrator\Desktop\git\win_mac_tool\main.dfm=C:\Users\Administrator\Desktop\git\win_mac_tool\tsForm.dfm</Transaction>
<Transaction>2022/06/27 09:30:13.000.877,C:\Users\Administrator\Desktop\git\win_mac_tool\cfgForm.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\cfg_form.pas</Transaction>
<Transaction>2022/06/27 09:30:13.000.877,C:\Users\Administrator\Desktop\git\win_mac_tool\cfgForm.dfm=C:\Users\Administrator\Desktop\git\win_mac_tool\cfg_form.dfm</Transaction>
<Transaction>2022/06/27 09:41:41.000.800,=C:\Users\Administrator\Desktop\git\win_mac_tool\bottom_form.pas</Transaction>
<Transaction>2022/06/27 09:43:45.000.801,C:\Users\Administrator\Desktop\git\win_mac_tool\desktopTool.dproj=C:\Users\Administrator\Desktop\git\win_mac_tool\tsFm.dproj</Transaction>
<Transaction>2022/06/27 09:47:26.000.200,C:\Users\Administrator\Desktop\git\win_mac_tool\core\core_db.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\core\CoreDB.pas</Transaction>
<Transaction>2022/06/27 09:49:51.000.595,C:\Users\Administrator\Desktop\git\win_mac_tool\dTool.dproj=C:\Users\Administrator\Desktop\git\win_mac_tool\desktopTool.dproj</Transaction>
<Transaction>2023/10/23 22:59:37.000.424,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\WinBarOS.dproj=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\dTool.dproj</Transaction>
<Transaction>2023/10/23 23:00:58.000.677,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ConfigurationForm.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\cfg_form.pas</Transaction>
<Transaction>2023/10/23 23:00:58.000.677,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ConfigurationForm.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\cfg_form.dfm</Transaction>
<Transaction>2023/10/23 23:03:12.000.370,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\InfoBarForm.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\bottom_form.pas</Transaction>
<Transaction>2023/10/23 23:03:12.000.370,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\InfoBarForm.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\bottom_form.dfm</Transaction>
<Transaction>2023/10/23 23:07:51.000.520,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ApplicationMain.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\main.dfm</Transaction>
<Transaction>2023/10/23 23:07:51.000.520,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ApplicationMain.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\main.pas</Transaction>
<Transaction>2022/06/27 09:43:45.000.801,C:\Users\Administrator\Desktop\git\win_mac_tool\tsFm.dproj=C:\Users\Administrator\Desktop\git\win_mac_tool\desktopTool.dproj</Transaction>
<Transaction>2022/06/27 09:47:26.000.200,C:\Users\Administrator\Desktop\git\win_mac_tool\core\CoreDB.pas=C:\Users\Administrator\Desktop\git\win_mac_tool\core\core_db.pas</Transaction>
<Transaction>2022/06/27 09:49:51.000.595,C:\Users\Administrator\Desktop\git\win_mac_tool\desktopTool.dproj=C:\Users\Administrator\Desktop\git\win_mac_tool\dTool.dproj</Transaction>
<Transaction>2023/10/23 22:59:37.000.424,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\dTool.dproj=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\WinBarOS.dproj</Transaction>
<Transaction>2023/10/23 23:00:58.000.677,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\cfg_form.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ConfigurationForm.pas</Transaction>
<Transaction>2023/10/23 23:00:58.000.677,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\cfg_form.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ConfigurationForm.dfm</Transaction>
<Transaction>2023/10/23 23:03:12.000.370,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\bottom_form.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\InfoBarForm.dfm</Transaction>
<Transaction>2023/10/23 23:03:12.000.370,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\bottom_form.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\InfoBarForm.pas</Transaction>
<Transaction>2023/10/23 23:07:51.000.520,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\main.dfm=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ApplicationMain.dfm</Transaction>
<Transaction>2023/10/23 23:07:51.000.520,C:\Users\Administrator\Desktop\22222222222\win_mac_tool\main.pas=C:\Users\Administrator\Desktop\22222222222\win_mac_tool\ApplicationMain.pas</Transaction>
</Transactions>
</BorlandProject>
Binary file modified WinBarOS.res
View file
Binary file not shown.
Binary file modified bin/WinBarOS.exe
View file
Binary file not shown.
Binary file removed bin/img/bg1.png
View file
Binary file not shown.
27 changes: 8 additions & 19 deletions core/core.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,10 +32,9 @@ TUtils = record

public
procedure UpdateDB;
procedure LaunchApplication(const Path: string);
function CalculateZoomFactor(const W: Double): Double;
procedure launch_app(const Path: string);

procedure AutoRun;
function CalculateFormHeight(NodeSize, WindowHeight: Integer): Integer;
end;

TCoreClass = class
Expand Down Expand Up @@ -96,17 +95,7 @@ procedure TUtils.AutoRun;
end;
end;

function TUtils.CalculateFormHeight(NodeSize, WindowHeight: Integer): Integer;
begin
Result := NodeSize + NodeSize div 2 + 20;
end;

function TUtils.CalculateZoomFactor(const W: Double): Double;
begin
Result := (101.82 * 5 * W) / g_core.nodes.node_size;
end;

procedure TUtils.LaunchApplication(const Path: string);
procedure TUtils.launch_app(const Path: string);
begin
if Path.Trim = '' then
Exit;
Expand All @@ -127,11 +116,11 @@ function TCoreClass.FindObjectByName(const Name_: string): TObject;

initialization
g_core := TCoreClass.Create;
try
g_core.nodes.node_size := g_core.dbmgr.cfgDb.GetInteger('ih');
except
g_core.nodes.node_size := 64;
end;
try
g_core.nodes.node_size := g_core.dbmgr.cfgDb.GetInteger('ih');
except
g_core.nodes.node_size := 64;
end;

g_core.nodes.node_gap := Round(g_core.nodes.node_size / 4); // 4 根据 rate 最多增加宽度的一半

Expand Down

0 comments on commit 973cd45

Please sign in to comment.