-
-
Notifications
You must be signed in to change notification settings - Fork 32
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #159 from bgrabitmap/dev-bgracontrols
Dev bgracontrols
- Loading branch information
Showing
11 changed files
with
1,243 additions
and
163 deletions.
There are no files selected for viewing
Large diffs are not rendered by default.
Oops, something went wrong.
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Binary file not shown.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,81 @@ | ||
| <?xml version="1.0" encoding="UTF-8"?> | ||
| <CONFIG> | ||
| <ProjectOptions> | ||
| <Version Value="12"/> | ||
| <PathDelim Value="\"/> | ||
| <General> | ||
| <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> | ||
| <Item Name="Default" Default="True"/> | ||
| </BuildModes> | ||
| <PublishOptions> | ||
| <Version Value="2"/> | ||
| <UseFileFilters Value="True"/> | ||
| </PublishOptions> | ||
| <RunParams> | ||
| <FormatVersion Value="2"/> | ||
| </RunParams> | ||
| <RequiredPackages> | ||
| <Item> | ||
| <PackageName Value="bgracontrols"/> | ||
| </Item> | ||
| <Item> | ||
| <PackageName Value="LCL"/> | ||
| </Item> | ||
| </RequiredPackages> | ||
| <Units> | ||
| <Unit> | ||
| <Filename Value="project1.lpr"/> | ||
| <IsPartOfProject Value="True"/> | ||
| </Unit> | ||
| <Unit> | ||
| <Filename Value="unit1.pas"/> | ||
| <IsPartOfProject Value="True"/> | ||
| <ComponentName Value="Form1"/> | ||
| <HasResources Value="True"/> | ||
| <ResourceBaseClass Value="Form"/> | ||
| <UnitName Value="Unit1"/> | ||
| </Unit> | ||
| </Units> | ||
| </ProjectOptions> | ||
| <CompilerOptions> | ||
| <Version Value="11"/> | ||
| <PathDelim Value="\"/> | ||
| <Target> | ||
| <Filename Value="project1"/> | ||
| </Target> | ||
| <SearchPaths> | ||
| <IncludeFiles Value="$(ProjOutDir)"/> | ||
| <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> | ||
| </SearchPaths> | ||
| <Linking> | ||
| <Options> | ||
| <Win32> | ||
| <GraphicApplication Value="True"/> | ||
| </Win32> | ||
| </Options> | ||
| </Linking> | ||
| </CompilerOptions> | ||
| <Debugging> | ||
| <Exceptions> | ||
| <Item> | ||
| <Name Value="EAbort"/> | ||
| </Item> | ||
| <Item> | ||
| <Name Value="ECodetoolError"/> | ||
| </Item> | ||
| <Item> | ||
| <Name Value="EFOpenError"/> | ||
| </Item> | ||
| </Exceptions> | ||
| </Debugging> | ||
| </CONFIG> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,25 @@ | ||
| program project1; | ||
|
|
||
| {$mode objfpc}{$H+} | ||
|
|
||
| uses | ||
| {$IFDEF UNIX} | ||
| cthreads, | ||
| {$ENDIF} | ||
| {$IFDEF HASAMIGA} | ||
| athreads, | ||
| {$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. | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,115 @@ | ||
| object Form1: TForm1 | ||
| Left = 285 | ||
| Height = 240 | ||
| Top = 31 | ||
| Width = 320 | ||
| Caption = 'Form1' | ||
| ClientHeight = 240 | ||
| ClientWidth = 320 | ||
| OnCreate = FormCreate | ||
| LCLVersion = '2.2.6.0' | ||
| object BCCheckComboBox1: TBCCheckComboBox | ||
| Left = 8 | ||
| Height = 53 | ||
| Top = 8 | ||
| Width = 181 | ||
| Caption = 'Channel Select' | ||
| Items.Strings = ( | ||
| 'Red' | ||
| 'Green' | ||
| 'Blue' | ||
| 'Alpha' | ||
| ) | ||
| ItemIndex = -1 | ||
| ArrowSize = 8 | ||
| ArrowWidth = 16 | ||
| FocusBorderOpacity = 0 | ||
| GlobalOpacity = 255 | ||
| MemoryUsage = bmuHigh | ||
| Rounding.RoundX = 12 | ||
| Rounding.RoundY = 12 | ||
| StateClicked.Background.Gradient1.StartColor = 8404992 | ||
| StateClicked.Background.Gradient1.EndColor = 4194304 | ||
| StateClicked.Background.Gradient1.GradientType = gtRadial | ||
| StateClicked.Background.Gradient1.Point1XPercent = 50 | ||
| StateClicked.Background.Gradient1.Point1YPercent = 100 | ||
| StateClicked.Background.Gradient1.Point2XPercent = 0 | ||
| StateClicked.Background.Gradient1.Point2YPercent = 0 | ||
| StateClicked.Background.Gradient2.StartColor = clWhite | ||
| StateClicked.Background.Gradient2.EndColor = clBlack | ||
| StateClicked.Background.Gradient2.GradientType = gtLinear | ||
| StateClicked.Background.Gradient2.Point1XPercent = 0 | ||
| StateClicked.Background.Gradient2.Point1YPercent = 0 | ||
| StateClicked.Background.Gradient2.Point2XPercent = 0 | ||
| StateClicked.Background.Gradient2.Point2YPercent = 100 | ||
| StateClicked.Background.Gradient1EndPercent = 100 | ||
| StateClicked.Background.Style = bbsGradient | ||
| StateClicked.Border.Style = bboNone | ||
| StateClicked.FontEx.Color = 16770790 | ||
| StateClicked.FontEx.FontQuality = fqSystemClearType | ||
| StateClicked.FontEx.Shadow = True | ||
| StateClicked.FontEx.ShadowRadius = 2 | ||
| StateClicked.FontEx.ShadowOffsetX = 1 | ||
| StateClicked.FontEx.ShadowOffsetY = 1 | ||
| StateClicked.FontEx.Style = [fsBold] | ||
| StateHover.Background.Gradient1.StartColor = 16744448 | ||
| StateHover.Background.Gradient1.EndColor = 8404992 | ||
| StateHover.Background.Gradient1.GradientType = gtRadial | ||
| StateHover.Background.Gradient1.Point1XPercent = 50 | ||
| StateHover.Background.Gradient1.Point1YPercent = 100 | ||
| StateHover.Background.Gradient1.Point2XPercent = 0 | ||
| StateHover.Background.Gradient1.Point2YPercent = 0 | ||
| StateHover.Background.Gradient2.StartColor = clWhite | ||
| StateHover.Background.Gradient2.EndColor = clBlack | ||
| StateHover.Background.Gradient2.GradientType = gtLinear | ||
| StateHover.Background.Gradient2.Point1XPercent = 0 | ||
| StateHover.Background.Gradient2.Point1YPercent = 0 | ||
| StateHover.Background.Gradient2.Point2XPercent = 0 | ||
| StateHover.Background.Gradient2.Point2YPercent = 100 | ||
| StateHover.Background.Gradient1EndPercent = 100 | ||
| StateHover.Background.Style = bbsGradient | ||
| StateHover.Border.Style = bboNone | ||
| StateHover.FontEx.Color = clWhite | ||
| StateHover.FontEx.FontQuality = fqSystemClearType | ||
| StateHover.FontEx.Shadow = True | ||
| StateHover.FontEx.ShadowRadius = 2 | ||
| StateHover.FontEx.ShadowOffsetX = 1 | ||
| StateHover.FontEx.ShadowOffsetY = 1 | ||
| StateHover.FontEx.Style = [fsBold] | ||
| StateNormal.Background.Gradient1.StartColor = 4194304 | ||
| StateNormal.Background.Gradient1.EndColor = 8405056 | ||
| StateNormal.Background.Gradient1.GradientType = gtLinear | ||
| StateNormal.Background.Gradient1.Point1XPercent = 0 | ||
| StateNormal.Background.Gradient1.Point1YPercent = 0 | ||
| StateNormal.Background.Gradient1.Point2XPercent = 0 | ||
| StateNormal.Background.Gradient1.Point2YPercent = 100 | ||
| StateNormal.Background.Gradient2.StartColor = 8405056 | ||
| StateNormal.Background.Gradient2.EndColor = 4194304 | ||
| StateNormal.Background.Gradient2.GradientType = gtRadial | ||
| StateNormal.Background.Gradient2.Point1XPercent = 50 | ||
| StateNormal.Background.Gradient2.Point1YPercent = 100 | ||
| StateNormal.Background.Gradient2.Point2XPercent = 0 | ||
| StateNormal.Background.Gradient2.Point2YPercent = 0 | ||
| StateNormal.Background.Gradient1EndPercent = 60 | ||
| StateNormal.Background.Style = bbsGradient | ||
| StateNormal.Border.Style = bboNone | ||
| StateNormal.FontEx.Color = 16770790 | ||
| StateNormal.FontEx.FontQuality = fqSystemClearType | ||
| StateNormal.FontEx.Shadow = True | ||
| StateNormal.FontEx.ShadowRadius = 2 | ||
| StateNormal.FontEx.ShadowOffsetX = 1 | ||
| StateNormal.FontEx.ShadowOffsetY = 1 | ||
| StateNormal.FontEx.Style = [fsBold] | ||
| StaticButton = False | ||
| TabOrder = 0 | ||
| end | ||
| object Button1: TButton | ||
| Left = 200 | ||
| Height = 25 | ||
| Top = 8 | ||
| Width = 75 | ||
| Caption = 'Show' | ||
| OnClick = Button1Click | ||
| TabOrder = 1 | ||
| end | ||
| end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,57 @@ | ||
| unit Unit1; | ||
|
|
||
| {$mode objfpc}{$H+} | ||
|
|
||
| interface | ||
|
|
||
| uses | ||
| Classes, SysUtils, Forms, Controls, Graphics, Dialogs, CheckLst, StdCtrls, | ||
| BCCheckComboBox; | ||
|
|
||
| type | ||
|
|
||
| { TForm1 } | ||
|
|
||
| TForm1 = class(TForm) | ||
| BCCheckComboBox1: TBCCheckComboBox; | ||
| Button1: TButton; | ||
| procedure Button1Click(Sender: TObject); | ||
| procedure FormCreate(Sender: TObject); | ||
| private | ||
|
|
||
| public | ||
|
|
||
| end; | ||
|
|
||
| var | ||
| Form1: TForm1; | ||
|
|
||
| implementation | ||
|
|
||
| {$R *.lfm} | ||
|
|
||
| { TForm1 } | ||
|
|
||
| procedure TForm1.FormCreate(Sender: TObject); | ||
| begin | ||
|
|
||
| end; | ||
|
|
||
| procedure TForm1.Button1Click(Sender: TObject); | ||
| var | ||
| s: String = ''; | ||
| i: integer; | ||
| begin | ||
| for i:=0 to BCCheckComboBox1.Items.Count-1 do | ||
| begin | ||
| if (BCCheckComboBox1.ListBox.Checked[i]) then | ||
| s += BCCheckComBoBox1.Items[i] + LineEnding; | ||
| end; | ||
| if (s = '') then | ||
| ShowMessage('No one is checked') | ||
| else | ||
| ShowMessage('Checked items: ' + LineEnding + s); | ||
| end; | ||
|
|
||
| end. | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters