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 #36 from bgrabitmap/dev-bgracontrols
Dev bgracontrols
- Loading branch information
Showing
11 changed files
with
194 additions
and
11 deletions.
There are no files selected for viewing
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
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,84 @@ | ||
<?xml version="1.0" encoding="UTF-8"?> | ||
<CONFIG> | ||
<ProjectOptions> | ||
<Version Value="11"/> | ||
<PathDelim Value="\"/> | ||
<General> | ||
<SessionStorage Value="InProjectDir"/> | ||
<MainUnit Value="0"/> | ||
<Title Value="test"/> | ||
<Scaled Value="True"/> | ||
<ResourceType Value="res"/> | ||
<UseXPManifest Value="True"/> | ||
<XPManifest> | ||
<DpiAware Value="True"/> | ||
</XPManifest> | ||
<Icon Value="0"/> | ||
<Resources Count="1"> | ||
<Resource_0 FileName="toggle.png" Type="RCDATA" ResourceName="TOGGLE"/> | ||
</Resources> | ||
</General> | ||
<BuildModes Count="1"> | ||
<Item1 Name="Default" Default="True"/> | ||
</BuildModes> | ||
<PublishOptions> | ||
<Version Value="2"/> | ||
<UseFileFilters Value="True"/> | ||
</PublishOptions> | ||
<RunParams> | ||
<FormatVersion Value="2"/> | ||
<Modes Count="0"/> | ||
</RunParams> | ||
<RequiredPackages Count="2"> | ||
<Item1> | ||
<PackageName Value="bgracontrols"/> | ||
</Item1> | ||
<Item2> | ||
<PackageName Value="LCL"/> | ||
</Item2> | ||
</RequiredPackages> | ||
<Units Count="2"> | ||
<Unit0> | ||
<Filename Value="test.lpr"/> | ||
<IsPartOfProject Value="True"/> | ||
</Unit0> | ||
<Unit1> | ||
<Filename Value="umain.pas"/> | ||
<IsPartOfProject Value="True"/> | ||
<ComponentName Value="Form1"/> | ||
<ResourceBaseClass Value="Form"/> | ||
</Unit1> | ||
</Units> | ||
</ProjectOptions> | ||
<CompilerOptions> | ||
<Version Value="11"/> | ||
<PathDelim Value="\"/> | ||
<Target> | ||
<Filename Value="test"/> | ||
</Target> | ||
<SearchPaths> | ||
<IncludeFiles Value="$(ProjOutDir)"/> | ||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> | ||
</SearchPaths> | ||
<Linking> | ||
<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> |
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,22 @@ | ||
program test; | ||
|
||
{$mode objfpc}{$H+} | ||
|
||
uses | ||
{$IFDEF UNIX}{$IFDEF UseCThreads} | ||
cthreads, | ||
{$ENDIF}{$ENDIF} | ||
Interfaces, // this includes the LCL widgetset | ||
Forms, umain | ||
{ you can add units after this }; | ||
|
||
{$R *.res} | ||
|
||
begin | ||
RequireDerivedFormResource:=True; | ||
Application.Scaled:=True; | ||
Application.Initialize; | ||
Application.CreateForm(TForm1, Form1); | ||
Application.Run; | ||
end. | ||
|
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
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,33 @@ | ||
object Form1: TForm1 | ||
Left = 374 | ||
Height = 240 | ||
Top = 149 | ||
Width = 320 | ||
Caption = 'Toggle' | ||
ClientHeight = 240 | ||
ClientWidth = 320 | ||
OnCreate = FormCreate | ||
LCLVersion = '2.1.0.0' | ||
object BCImageButton1: TBCImageButton | ||
Cursor = crHandPoint | ||
Left = 15 | ||
Height = 28 | ||
Top = 15 | ||
Width = 57 | ||
AlphaTest = False | ||
BitmapFile = 'TOGGLE' | ||
BitmapOptions.Direction = sdVertical | ||
Toggle = True | ||
end | ||
object BCImageButton2: TBCImageButton | ||
Cursor = crHandPoint | ||
Left = 15 | ||
Height = 52 | ||
Top = 56 | ||
Width = 100 | ||
AlphaTest = False | ||
BitmapFile = 'TOGGLE' | ||
BitmapOptions.Direction = sdVertical | ||
Toggle = True | ||
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,40 @@ | ||
unit umain; | ||
|
||
{$mode objfpc}{$H+} | ||
|
||
interface | ||
|
||
uses | ||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, BCImageButton; | ||
|
||
type | ||
|
||
{ TForm1 } | ||
|
||
TForm1 = class(TForm) | ||
BCImageButton1: TBCImageButton; | ||
BCImageButton2: TBCImageButton; | ||
procedure FormCreate(Sender: TObject); | ||
private | ||
|
||
public | ||
|
||
end; | ||
|
||
var | ||
Form1: TForm1; | ||
|
||
implementation | ||
|
||
{$R *.lfm} | ||
|
||
{ TForm1 } | ||
|
||
procedure TForm1.FormCreate(Sender: TObject); | ||
begin | ||
BCImageButton1.LoadFromBitmapResource(BCImageButton1.BitmapFile); | ||
BCImageButton2.LoadFromBitmapResource(BCImageButton2.BitmapFile); | ||
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