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

BIN
bgracontrols/test/test_material_edit/project1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

87
bgracontrols/test/test_material_edit/project1.lpi Normal file
View File

@@ -0,0 +1,87 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="project1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="bgracontrols"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

22
bgracontrols/test/test_material_edit/project1.lpr Normal file
View File

@@ -0,0 +1,22 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

77
bgracontrols/test/test_material_edit/unit1.lfm Normal file
View File

@@ -0,0 +1,77 @@
object Form1: TForm1
Left = 164
Height = 240
Top = 250
Width = 320
Caption = 'Form1'
ClientHeight = 240
ClientWidth = 320
Color = clWhite
LCLVersion = '2.0.12.0'
object BCMaterialEdit1: TBCMaterialEdit
Left = 8
Height = 50
Top = 8
Width = 170
Color = clWhite
Text = 'Text'
DisabledColor = 12103592
AccentColor = clHighlight
OnChange = BCMaterialEdit1Change
end
object BCMaterialFloatSpinEdit1: TBCMaterialFloatSpinEdit
Left = 8
Height = 50
Top = 64
Width = 170
Color = clWhite
Text = 'Float'
DisabledColor = 12103592
AccentColor = clMoneyGreen
OnChange = BCMaterialFloatSpinEdit1Change
end
object BCMaterialSpinEdit1: TBCMaterialSpinEdit
Left = 8
Height = 50
Top = 120
Width = 170
Color = clWhite
Text = 'Integer'
DisabledColor = 12103592
AccentColor = clRed
OnChange = BCMaterialSpinEdit1Change
end
object Label1: TLabel
Left = 184
Height = 16
Top = 8
Width = 33
Caption = 'Label1'
ParentColor = False
end
object Label2: TLabel
Left = 184
Height = 16
Top = 64
Width = 33
Caption = 'Label2'
ParentColor = False
end
object Label3: TLabel
Left = 184
Height = 16
Top = 120
Width = 33
Caption = 'Label3'
ParentColor = False
end
object Button1: TButton
Left = 240
Height = 25
Top = 208
Width = 75
Caption = 'Dark'
OnClick = Button1Click
TabOrder = 3
end
end

82
bgracontrols/test/test_material_edit/unit1.pas Normal file
View File

@@ -0,0 +1,82 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
BCMaterialEdit, BCMaterialFloatSpinEdit, BCMaterialSpinEdit;
type
{ TForm1 }
TForm1 = class(TForm)
BCMaterialEdit1: TBCMaterialEdit;
BCMaterialFloatSpinEdit1: TBCMaterialFloatSpinEdit;
BCMaterialSpinEdit1: TBCMaterialSpinEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure BCMaterialEdit1Change(Sender: TObject);
procedure BCMaterialFloatSpinEdit1Change(Sender: TObject);
procedure BCMaterialSpinEdit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.BCMaterialEdit1Change(Sender: TObject);
begin
Label1.Caption := BCMaterialEdit1.Edit.Text;
end;
procedure TForm1.BCMaterialFloatSpinEdit1Change(Sender: TObject);
begin
Label2.Caption := BCMaterialFloatSpinEdit1.Edit.Text;
end;
procedure TForm1.BCMaterialSpinEdit1Change(Sender: TObject);
begin
Label3.Caption := BCMaterialSpinEdit1.Edit.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Color := clBlack;
Label1.Font.Color := clWhite;
Label2.Font.Color := clWhite;
Label3.Font.Color := clWhite;
BCMaterialEdit1.Color := clBlack;
BCMaterialEdit1.Edit.Color := clBlack;
BCMaterialEdit1.Edit.Font.Color := clWhite;
BCMaterialEdit1.Font.Color := clWhite;
BCMaterialFloatSpinEdit1.Color := clBlack;
BCMaterialFloatSpinEdit1.Edit.Color := clBlack;
BCMaterialFloatSpinEdit1.Edit.Font.Color := clWhite;
BCMaterialFloatSpinEdit1.Font.Color := clWhite;
BCMaterialSpinEdit1.Color := clBlack;
BCMaterialSpinEdit1.Edit.Color := clBlack;
BCMaterialSpinEdit1.Edit.Font.Color := clWhite;
BCMaterialSpinEdit1.Font.Color := clWhite;
end;
end.