Skip to content

Commit

Permalink
Initial commit 2
Browse files Browse the repository at this point in the history
  • Loading branch information
@SEVA77
SEVA77 committed Aug 5, 2020
1 parent 38408c6 commit 63d0087
Show file tree
Hide file tree
Showing 6 changed files with 916 additions and 0 deletions.
112 changes: 112 additions & 0 deletions converter.lpi
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,112 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="converter"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
</General>
<BuildModes Count="2">
<Item1 Name="Default" Default="True"/>
<Item2 Name="Debug">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="converter"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
<TrashVariables Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item2>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="\home\seva77\my_media\mydev\4GitHub\Dec-to-Bin-Converter_temp"/>
<CompressFinally Value="False"/>
<OpenInFileMan Value="True"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LazControls"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="converter.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="converter"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</CONFIG>
22 changes: 22 additions & 0 deletions converter.lpr
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
program converter;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1, lazcontrols
{ you can add units after this };

{$R *.res}

begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Binary file added converter.res
View file
Binary file not shown.
230 changes: 230 additions & 0 deletions lib/x86_64-win64/unit1.lfm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,230 @@
object Form1: TForm1
Left = 274
Height = 260
Top = 121
Width = 352
AlphaBlend = True
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Converter'
ClientHeight = 260
ClientWidth = 352
OnCreate = FormCreate
ParentBiDiMode = False
Position = poDesktopCenter
LCLVersion = '2.0.0.4'
object EditASCII: TEdit
Left = 83
Height = 23
Top = 216
Width = 183
ReadOnly = True
TabOrder = 0
TextHint = '(temporarily not working)'
end
object EditDec: TEdit
Left = 83
Height = 23
Top = 56
Width = 183
NumbersOnly = True
OnKeyPress = EditDecKeyPress
OnKeyUp = EditDecKeyUp
TabOrder = 1
end
object EditOct: TEdit
Left = 83
Height = 23
Top = 96
Width = 183
NumbersOnly = True
OnKeyPress = EditOctKeyPress
OnKeyUp = EditOctKeyUp
TabOrder = 2
end
object EditHex: TEdit
Left = 83
Height = 23
Top = 136
Width = 183
OnKeyPress = EditHexKeyPress
OnKeyUp = EditHexKeyUp
TabOrder = 3
end
object EditBin: TEdit
Left = 83
Height = 23
Top = 176
Width = 183
NumbersOnly = True
OnKeyPress = EditBinKeyPress
OnKeyUp = EditBinKeyUp
TabOrder = 4
end
object LabelASCII: TLabel
Left = 16
Height = 21
Top = 218
Width = 40
Caption = 'ASCII:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object LabelDec: TLabel
Left = 27
Height = 21
Top = 56
Width = 29
Caption = 'Dec:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object LabelOct: TLabel
Left = 29
Height = 21
Top = 96
Width = 27
Caption = 'Oct:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object LabelHex: TLabel
Left = 27
Height = 21
Top = 136
Width = 29
Caption = 'Hex:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object LabelBin: TLabel
Left = 31
Height = 21
Top = 176
Width = 25
Caption = 'Bin:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object ScrollAlpha: TScrollBar
Left = 72
Height = 13
Top = 14
Width = 136
DoubleBuffered = False
Max = 255
Min = 100
PageSize = 0
ParentBidiMode = False
ParentDoubleBuffered = False
Position = 255
TabOrder = 5
OnChange = ScrollAlphaChange
end
object Label1: TLabel
Left = 85
Height = 1
Top = 220
Width = 1
ParentColor = False
end
object ABtnCopy: TBitBtn
Left = 283
Height = 24
Top = 216
Width = 51
Caption = 'Copy'
OnClick = ABtnCopyClick
TabOrder = 6
end
object DBtnCopy: TBitBtn
Left = 283
Height = 24
Top = 56
Width = 51
Caption = 'Copy'
OnClick = DBtnCopyClick
TabOrder = 7
end
object OBtnCopy: TBitBtn
Left = 283
Height = 24
Top = 96
Width = 51
Caption = 'Copy'
OnClick = OBtnCopyClick
TabOrder = 8
end
object HBtnCopy: TBitBtn
Left = 283
Height = 24
Top = 136
Width = 51
Caption = 'Copy'
OnClick = HBtnCopyClick
TabOrder = 9
end
object BBtnCopy: TBitBtn
Left = 283
Height = 24
Top = 176
Width = 51
Caption = 'Copy'
OnClick = BBtnCopyClick
TabOrder = 10
end
object CheckBoxThemed1: TCheckBoxThemed
Left = 240
Height = 19
Top = 10
Width = 99
Caption = 'Fix the window'
TabOrder = 11
OnChange = CheckBoxThemed1Change
end
object Label2: TLabel
Left = 20
Height = 17
Top = 10
Width = 36
Caption = 'Alpha:'
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
end
Loading

0 comments on commit 63d0087

Please sign in to comment.