babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
ScrollingText/StringDesigner/data/MainForm.lfm Normal file
View File

@@ -0,0 +1,61 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 648
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
Images = ImageList
TabOrder = 0
end
object MainMenu: TMainMenu
Images = ImageList
left = 752
top = 120
object FileM: TMenuItem
Caption = '&File'
end
object EditM: TMenuItem
Caption = '&Edit'
end
object ToolsM: TMenuItem
Caption = '&Tools'
end
object ExportM: TMenuItem
Caption = '&Export'
end
object HelpM: TMenuItem
Caption = '&Help'
RightJustify = True
end
end
object PopupMenu: TPopupMenu
Images = ImageList
left = 792
top = 120
end
object ActionList: TActionList
Images = ImageList
left = 832
top = 120
end
object ImageList: TImageList
left = 872
top = 120
end
end

28
ScrollingText/StringDesigner/data/MainForm.pas Normal file
View File

@@ -0,0 +1,28 @@
unit MainForm;
{$mode delphi}
interface
uses ActnList, Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
ActionList: TActionList;
ImageList: TImageList;
MainMenu: TMainMenu;
FileM: TMenuItem;
EditM: TMenuItem;
HelpM: TMenuItem;
ExportM: TMenuItem;
ToolsM: TMenuItem;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

8
ScrollingText/StringDesigner/data/~history/MainForm.lfm;1 Normal file
View File

@@ -0,0 +1,8 @@
object Form1: TForm1
Left = 344
Height = 240
Top = 145
Width = 320
Caption = 'Form1'
LCLVersion = '1.0.10.0'
end

14
ScrollingText/StringDesigner/data/~history/MainForm.lfm;2 Normal file
View File

@@ -0,0 +1,14 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Position = poScreenCenter
LCLVersion = '1.0.10.0'
end

33
ScrollingText/StringDesigner/data/~history/MainForm.lfm;3 Normal file
View File

@@ -0,0 +1,33 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 668
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
TabOrder = 0
end
object MainMenu: TMainMenu
left = 752
top = 120
end
object PopupMenu: TPopupMenu
left = 792
top = 120
end
end

58
ScrollingText/StringDesigner/data/~history/MainForm.lfm;4 Normal file
View File

@@ -0,0 +1,58 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 648
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
Images = ImageList
TabOrder = 0
end
object MainMenu: TMainMenu
Images = ImageList
left = 752
top = 120
object FileM: TMenuItem
Caption = '&File'
end
object EditM: TMenuItem
Caption = '&Edit'
end
object ToolsM: TMenuItem
Caption = '&Tools'
end
object HelpM: TMenuItem
Caption = '&Help'
RightJustify = True
end
end
object PopupMenu: TPopupMenu
Images = ImageList
left = 792
top = 120
end
object ActionList: TActionList
Images = ImageList
left = 832
top = 120
end
object ImageList: TImageList
left = 872
top = 120
end
end

26
ScrollingText/StringDesigner/data/~history/MainForm.pas;1 Normal file
View File

@@ -0,0 +1,26 @@
unit MainForm;
{$mode delphi}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm1 = class(TForm)
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.

14
ScrollingText/StringDesigner/data/~history/MainForm.pas;2 Normal file
View File

@@ -0,0 +1,14 @@
unit MainForm;
{$mode delphi}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TMainFrm = class(TForm)
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

21
ScrollingText/StringDesigner/data/~history/MainForm.pas;3 Normal file
View File

@@ -0,0 +1,21 @@
unit MainForm;
{$mode delphi}
interface
uses Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls, Graphics,
Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
MainMenu: TMainMenu;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

27
ScrollingText/StringDesigner/data/~history/MainForm.pas;4 Normal file
View File

@@ -0,0 +1,27 @@
unit MainForm;
{$mode delphi}
interface
uses ActnList, Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
ActionList: TActionList;
ImageList: TImageList;
MainMenu: TMainMenu;
FileM: TMenuItem;
EditM: TMenuItem;
HelpM: TMenuItem;
ToolsM: TMenuItem;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.