aksdb/CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

⬆️ Convert to Lazarus 2.2.2

Browse Source
This commit is contained in:
Andreas Schneider
2023-01-15 16:37:33 +01:00
parent 2b8eb45ccf
commit 38e0d404db
25 changed files with 541 additions and 582 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Client/Tools/UfrmDrawSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, VirtualList, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, VirtualList, UfrmToolWindow, UfrmMain;
type

4
Client/Tools/UfrmFillSettings.lfm
View File

@@ -8,7 +8,7 @@ inherited frmFillSettings: TfrmFillSettings
ClientWidth = 469
OnCreate = FormCreate
OnShow = FormShow
object vdtLastPreview: TVirtualDrawTree[0]
object vdtLastPreview: TLazVirtualDrawTree[0]
Tag = -1
AnchorSideLeft.Control = cbCategory
AnchorSideTop.Control = gbHue
@@ -62,7 +62,7 @@ inherited frmFillSettings: TfrmFillSettings
Visible = False
OnDrawNode = vdtPreviewDrawNode
end
object vdtEntryPreview: TVirtualDrawTree[1]
object vdtEntryPreview: TLazVirtualDrawTree[1]
Tag = -1
AnchorSideLeft.Control = vdtLastPreview
AnchorSideLeft.Side = asrBottom

6
Client/Tools/UfrmFillSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, VirtualList, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, VirtualList, UfrmToolWindow, UfrmMain;
type
@@ -44,8 +44,8 @@ type
gbHue: TGroupBox;
lblFillType: TLabel;
pbHue: TPaintBox;
vdtLastPreview: TVirtualDrawTree;
vdtEntryPreview: TVirtualDrawTree;
vdtLastPreview: TLazVirtualDrawTree;
vdtEntryPreview: TLazVirtualDrawTree;
procedure cbUseSurfaceAltitudeChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);

4
Client/Tools/UfrmFilter.lfm
View File

@@ -188,7 +188,7 @@ object frmFilter: TfrmFilter
ShowHint = True
ParentShowHint = False
end
object vdtFilter: TVirtualDrawTree
object vdtFilter: TLazVirtualDrawTree
Tag = -1
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = cbTileFilter
@@ -350,7 +350,7 @@ object frmFilter: TfrmFilter
OnMouseUp = FormMouseUp
TabOrder = 0
end
object vdtHues: TVirtualDrawTree
object vdtHues: TLazVirtualDrawTree
Cursor = 63
Left = 4
Height = 119

6
Client/Tools/UfrmFilter.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, VirtualTrees, VirtualList, LCLIntf, LCLType, LMessages, Buttons,
ExtCtrls, laz.VirtualTrees, VirtualList, LCLIntf, LCLType, LMessages, Buttons,
UPlatformTypes, UStatics, Menus, Logging;
type
@@ -57,7 +57,7 @@ type
Splitter1: TSplitter;
tFormClose: TTimer;
vdtFilter: TVirtualList;
vdtHues: TVirtualDrawTree;
vdtHues: TLazVirtualDrawTree;
procedure btnClearClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure cbHueFilterChange(Sender: TObject);
@@ -202,7 +202,7 @@ procedure TfrmFilter.vdtFilterDragOver(Sender: TBaseVirtualTree;
Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
begin
if (Source <> Sender) and (Source is TVirtualDrawTree) then
if (Source <> Sender) and (Source is TLazVirtualDrawTree) then
begin
Accept := True;
end;

24
Client/Tools/UfrmHueSettings.lfm
View File

@@ -83,8 +83,8 @@ inherited frmHueSettings: TfrmHueSettings
BorderSpacing.Top = 4
BorderSpacing.Bottom = 6
Caption = 'Набор случайных цветов'
ClientHeight = 232
ClientWidth = 183
ClientHeight = 226
ClientWidth = 185
TabOrder = 3
Visible = False
object btnAddRandom: TSpeedButton
@@ -132,7 +132,6 @@ inherited frmHueSettings: TfrmHueSettings
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
NumGlyphs = 0
OnClick = btnAddRandomClick
ShowHint = True
ParentShowHint = False
@@ -183,7 +182,6 @@ inherited frmHueSettings: TfrmHueSettings
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
NumGlyphs = 0
OnClick = btnDeleteRandomClick
ShowHint = True
ParentShowHint = False
@@ -234,7 +232,6 @@ inherited frmHueSettings: TfrmHueSettings
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
NumGlyphs = 0
OnClick = btnClearRandomClick
ShowHint = True
ParentShowHint = False
@@ -285,7 +282,6 @@ inherited frmHueSettings: TfrmHueSettings
4DFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B4FFFC5894BFFC476
3BFF000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnRandomPresetSaveClick
ShowCaption = False
ShowHint = True
@@ -338,7 +334,6 @@ inherited frmHueSettings: TfrmHueSettings
0000C88B4DFFC88C4FFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B
4FFFC5894BFFC4763BFF00000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnRandomPresetDeleteClick
ShowCaption = False
ShowHint = True
@@ -404,8 +399,8 @@ inherited frmHueSettings: TfrmHueSettings
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Caption = 'Предпросмотр цвета на тайле'
ClientHeight = 75
ClientWidth = 183
ClientHeight = 69
ClientWidth = 185
TabOrder = 4
object ImagePreviewItem: TImage
AnchorSideLeft.Control = gbPreview
@@ -486,7 +481,7 @@ inherited frmHueSettings: TfrmHueSettings
OnChange = cbRandomChange
TabOrder = 5
end
object vdtHuePreview: TVirtualDrawTree[6]
object vdtHuePreview: TLazVirtualDrawTree[6]
Tag = -1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
@@ -519,6 +514,7 @@ inherited frmHueSettings: TfrmHueSettings
Header.AutoSizeIndex = -1
Header.Columns = <>
Header.DefaultHeight = 17
Header.Height = 17
Header.MainColumn = -1
Header.Options = [hoShowHint]
Header.ParentFont = True
@@ -554,8 +550,8 @@ inherited frmHueSettings: TfrmHueSettings
BorderSpacing.Top = 4
BorderSpacing.Bottom = 6
Caption = 'Последние выбранные цвета'
ClientHeight = 82
ClientWidth = 183
ClientHeight = 76
ClientWidth = 185
TabOrder = 6
Visible = False
object lbLastUsed: TListBox
@@ -582,7 +578,7 @@ inherited frmHueSettings: TfrmHueSettings
end
end
inherited tmClose: TTimer[8]
left = 24
top = 16
Left = 24
Top = 16
end
end

14
Client/Tools/UfrmHueSettings.pas
View File

@@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, Buttons, UfrmToolWindow, XMLRead, XMLWrite, DOM, VirtualTrees,
ExtCtrls, Buttons, UfrmToolWindow, XMLRead, XMLWrite, DOM, laz.VirtualTrees,
VirtualList, Math, UHue, UArt, UTiledata, UfrmMain, ImagingComponents,
LConvEncoding, ComCtrls, Logging, LCLIntf, LCLType, ULandscape;
@@ -60,7 +60,7 @@ type
lbHue: TListBox;
lblTileId: TLabel;
lbRandom: TListBox;
vdtHuePreview: TVirtualDrawTree;
vdtHuePreview: TLazVirtualDrawTree;
procedure btnAddRandomClick(Sender: TObject);
procedure btnClearRandomClick(Sender: TObject);
procedure btnDeleteRandomClick(Sender: TObject);
@@ -82,8 +82,6 @@ type
procedure lbRandomDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure lbRandomDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure lvHueCustomDrawItem(Sender: TCustomListView; Item: TListItem;
State: TCustomDrawState; var DefaultDraw: Boolean);
procedure ShowAllClick(Sender: TObject);
procedure UpdateItemPreview(ID : Integer; Hue: Integer);
procedure vdtHuePreviewClick(Sender: TObject);
@@ -472,12 +470,6 @@ begin
if Source = lbHue then Accept := True;
end;
procedure TfrmHueSettings.lvHueCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
end;
function TfrmHueSettings.FindRandomPreset(AName: String): TDOMElement;
begin
Result := TDOMElement(FRandomHuePresetsDoc.DocumentElement.FirstChild);
@@ -662,7 +654,7 @@ var
mpos: TPoint;
rect: TRect;
begin
id := TVirtualDrawTree(Sender).Tag;
id := TLazVirtualDrawTree(Sender).Tag;
info:= Sender.GetNodeData(PaintInfo.Node);
if info^.ID[PaintInfo.Column] <= 0 then begin
hue := nil;

2
Client/Tools/UfrmSelectionSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, UfrmToolWindow, UfrmMain;
type

2
Client/Tools/UfrmSurfElevateSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, UfrmToolWindow, UfrmMain;
type

2
Client/Tools/UfrmSurfSmoothSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, UfrmToolWindow, UfrmMain;
type

2
Client/Tools/UfrmSurfStretchSettings.pas
View File

@@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, LMessages, VirtualTrees, UfrmToolWindow, UfrmMain;
Spin, ExtCtrls, LMessages, laz.VirtualTrees, UfrmToolWindow, UfrmMain;
type