Skip to content

Commit 5ed6a7a

Browse files
GuvaCodeGuvaCode
committed
ver 1.0
1 parent ad73bc1 commit 5ed6a7a

File tree

12 files changed

+1170
-0
lines changed

12 files changed

+1170
-0
lines changed

‎lcl/Cross.Codebot/codebot.input.hotkeys.pas

Lines changed: 640 additions & 0 deletions
Large diffs are not rendered by default.

‎src/backup/ledkey.lpi

Lines changed: 82 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,82 @@
1+
<?xml version="1.0" encoding="UTF-8"?>
2+
<CONFIG>
3+
<ProjectOptions>
4+
<Version Value="10"/>
5+
<General>
6+
<SessionStorage Value="InProjectDir"/>
7+
<MainUnit Value="0"/>
8+
<Title Value="ledkey"/>
9+
<ResourceType Value="res"/>
10+
<UseXPManifest Value="True"/>
11+
</General>
12+
<BuildModes Count="1">
13+
<Item1 Name="Default" Default="True"/>
14+
</BuildModes>
15+
<PublishOptions>
16+
<Version Value="2"/>
17+
</PublishOptions>
18+
<RunParams>
19+
<local>
20+
<FormatVersion Value="1"/>
21+
</local>
22+
</RunParams>
23+
<RequiredPackages Count="3">
24+
<Item1>
25+
<PackageName Value="pl_exsystem"/>
26+
</Item1>
27+
<Item2>
28+
<PackageName Value="codebot"/>
29+
</Item2>
30+
<Item3>
31+
<PackageName Value="LCL"/>
32+
</Item3>
33+
</RequiredPackages>
34+
<Units Count="2">
35+
<Unit0>
36+
<Filename Value="ledkey.lpr"/>
37+
<IsPartOfProject Value="True"/>
38+
</Unit0>
39+
<Unit1>
40+
<Filename Value="munit.pas"/>
41+
<IsPartOfProject Value="True"/>
42+
<ComponentName Value="HideFrm"/>
43+
<HasResources Value="True"/>
44+
<ResourceBaseClass Value="DataModule"/>
45+
<UnitName Value="mUnit"/>
46+
</Unit1>
47+
</Units>
48+
</ProjectOptions>
49+
<CompilerOptions>
50+
<Version Value="11"/>
51+
<Target>
52+
<Filename Value="../bin/$(TargetCPU)-$(TargetOS)/ledkey"/>
53+
</Target>
54+
<SearchPaths>
55+
<IncludeFiles Value="$(ProjOutDir)"/>
56+
<UnitOutputDirectory Value="../lib/$(TargetCPU)-$(TargetOS)"/>
57+
</SearchPaths>
58+
<Linking>
59+
<Debugging>
60+
<GenerateDebugInfo Value="False"/>
61+
</Debugging>
62+
<Options>
63+
<Win32>
64+
<GraphicApplication Value="True"/>
65+
</Win32>
66+
</Options>
67+
</Linking>
68+
</CompilerOptions>
69+
<Debugging>
70+
<Exceptions Count="3">
71+
<Item1>
72+
<Name Value="EAbort"/>
73+
</Item1>
74+
<Item2>
75+
<Name Value="ECodetoolError"/>
76+
</Item2>
77+
<Item3>
78+
<Name Value="EFOpenError"/>
79+
</Item3>
80+
</Exceptions>
81+
</Debugging>
82+
</CONFIG>

‎src/backup/ledkey.lpr

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
program ledkey;
2+
3+
{$mode objfpc}{$H+}
4+
5+
uses
6+
{$IFDEF UNIX}{$IFDEF UseCThreads}
7+
cthreads,
8+
{$ENDIF}{$ENDIF}
9+
Interfaces,
10+
Forms, mUnit, ExSystemUtils
11+
{ you can add units after this };
12+
13+
{$R *.res}
14+
15+
begin
16+
LSGlobalAddAtom(CMyAppAtom);
17+
LSRunOnce;
18+
//RequireDerivedFormResource:=True;
19+
Application.Initialize;
20+
Application.CreateForm(THideFrm, HideFrm);
21+
Application.Run;
22+
end.
23+

‎src/backup/ledkey.lps

Lines changed: 83 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,83 @@
1+
<?xml version="1.0" encoding="UTF-8"?>
2+
<CONFIG>
3+
<ProjectSession>
4+
<Version Value="10"/>
5+
<BuildModes Active="Default"/>
6+
<Units Count="7">
7+
<Unit0>
8+
<Filename Value="ledkey.lpr"/>
9+
<IsPartOfProject Value="True"/>
10+
<CursorPos X="30" Y="16"/>
11+
<UsageCount Value="20"/>
12+
<Loaded Value="True"/>
13+
</Unit0>
14+
<Unit1>
15+
<Filename Value="munit.pas"/>
16+
<IsPartOfProject Value="True"/>
17+
<ComponentName Value="HideFrm"/>
18+
<HasResources Value="True"/>
19+
<ResourceBaseClass Value="DataModule"/>
20+
<UnitName Value="mUnit"/>
21+
<IsVisibleTab Value="True"/>
22+
<EditorIndex Value="2"/>
23+
<TopLine Value="10"/>
24+
<CursorPos Y="27"/>
25+
<UsageCount Value="20"/>
26+
<Loaded Value="True"/>
27+
<LoadedDesigner Value="True"/>
28+
</Unit1>
29+
<Unit2>
30+
<Filename Value="../../../fpcupdeluxe/fpcsrc/rtl/objpas/classes/classesh.inc"/>
31+
<EditorIndex Value="-1"/>
32+
<TopLine Value="2039"/>
33+
<CursorPos X="24" Y="2243"/>
34+
<UsageCount Value="10"/>
35+
</Unit2>
36+
<Unit3>
37+
<Filename Value="../../LedKey/src/munit.pas"/>
38+
<UnitName Value="mUnit"/>
39+
<EditorIndex Value="-1"/>
40+
<TopLine Value="37"/>
41+
<CursorPos X="48" Y="48"/>
42+
<UsageCount Value="10"/>
43+
</Unit3>
44+
<Unit4>
45+
<Filename Value="../../../Development/Cross.Codebot-master/source/codebot.input.hotkeys.pas"/>
46+
<UnitName Value="Codebot.Input.Hotkeys"/>
47+
<EditorIndex Value="-1"/>
48+
<TopLine Value="582"/>
49+
<CursorPos X="5" Y="640"/>
50+
<UsageCount Value="10"/>
51+
</Unit4>
52+
<Unit5>
53+
<Filename Value="../../../ct/CodeOcean/pl_ExSystem/samples/RunOnce/runoncemainfrm.pas"/>
54+
<ComponentName Value="MainForm"/>
55+
<HasResources Value="True"/>
56+
<ResourceBaseClass Value="Form"/>
57+
<UnitName Value="RunOnceMainFrm"/>
58+
<EditorIndex Value="3"/>
59+
<TopLine Value="6"/>
60+
<CursorPos Y="20"/>
61+
<UsageCount Value="10"/>
62+
<Loaded Value="True"/>
63+
</Unit5>
64+
<Unit6>
65+
<Filename Value="../../../ct/CodeOcean/pl_ExSystem/samples/RunOnce/RunOnceDemo.lpr"/>
66+
<EditorIndex Value="1"/>
67+
<CursorPos X="14" Y="15"/>
68+
<UsageCount Value="10"/>
69+
<Loaded Value="True"/>
70+
</Unit6>
71+
</Units>
72+
<JumpHistory Count="2" HistoryIndex="1">
73+
<Position1>
74+
<Filename Value="ledkey.lpr"/>
75+
<Caret Line="10" Column="30"/>
76+
</Position1>
77+
<Position2>
78+
<Filename Value="ledkey.lpr"/>
79+
<Caret Line="18" Column="5"/>
80+
</Position2>
81+
</JumpHistory>
82+
</ProjectSession>
83+
</CONFIG>

‎src/backup/munit.lfm

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
object HideFrm: THideFrm
2+
OnCreate = DataModuleCreate
3+
OnDestroy = DataModuleDestroy
4+
OldCreateOrder = False
5+
Height = 150
6+
HorizontalOffset = 590
7+
VerticalOffset = 250
8+
Width = 150
9+
end

‎src/backup/munit.pas

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
unit mUnit;
2+
3+
{$mode objfpc}{$H+}
4+
5+
interface
6+
7+
uses
8+
Classes, SysUtils, FileUtil, Process, LCLType, Codebot.Input.Hotkeys;
9+
10+
type
11+
12+
{ THideFrm }
13+
THideFrm= class(TDataModule)
14+
procedure DataModuleCreate(Sender: TObject);
15+
procedure DataModuleDestroy(Sender: TObject);
16+
private
17+
LedState:Boolean;
18+
LedProcess: TProcess;
19+
procedure KeyNotify(Sender: TObject; Key: Word; Shift: TShiftState);
20+
public
21+
22+
end;
23+
24+
var
25+
HideFrm: THideFrm;
26+
27+
implementation
28+
29+
{$R *.lfm}
30+
31+
{ THideFrm }
32+
33+
procedure THideFrm.DataModuleCreate(Sender: TObject);
34+
begin
35+
HotkeyCapture.RegisterNotify(VK_SCROLL,[],@KeyNotify);
36+
end;
37+
38+
procedure THideFrm.DataModuleDestroy(Sender: TObject);
39+
begin
40+
HotkeyCapture.UnRegisterNotify(VK_SCROLL,[]);
41+
end;
42+
43+
procedure THideFrm.KeyNotify(Sender: TObject; Key: Word; Shift: TShiftState);
44+
begin
45+
LedProcess := TProcess.Create(nil);
46+
LedProcess.Options:=[poWaitOnExit,poNoConsole];
47+
LedProcess.Executable := 'xset';
48+
If LedState then
49+
begin
50+
LedProcess.Parameters.Add('-led');
51+
LedState:=false;
52+
end else
53+
begin
54+
LedProcess.Parameters.Add('led');
55+
LedState:=true;
56+
end;
57+
LedProcess.Parameters.Add('3');
58+
LedProcess.Execute;
59+
LedProcess.Free;
60+
end;
61+
62+
end.
63+

‎src/ledkey.lpi

Lines changed: 82 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,82 @@
1+
<?xml version="1.0" encoding="UTF-8"?>
2+
<CONFIG>
3+
<ProjectOptions>
4+
<Version Value="10"/>
5+
<General>
6+
<SessionStorage Value="InProjectDir"/>
7+
<MainUnit Value="0"/>
8+
<Title Value="ledkey"/>
9+
<ResourceType Value="res"/>
10+
<UseXPManifest Value="True"/>
11+
</General>
12+
<BuildModes Count="1">
13+
<Item1 Name="Default" Default="True"/>
14+
</BuildModes>
15+
<PublishOptions>
16+
<Version Value="2"/>
17+
</PublishOptions>
18+
<RunParams>
19+
<local>
20+
<FormatVersion Value="1"/>
21+
</local>
22+
</RunParams>
23+
<RequiredPackages Count="3">
24+
<Item1>
25+
<PackageName Value="pl_exsystem"/>
26+
</Item1>
27+
<Item2>
28+
<PackageName Value="codebot"/>
29+
</Item2>
30+
<Item3>
31+
<PackageName Value="LCL"/>
32+
</Item3>
33+
</RequiredPackages>
34+
<Units Count="2">
35+
<Unit0>
36+
<Filename Value="ledkey.lpr"/>
37+
<IsPartOfProject Value="True"/>
38+
</Unit0>
39+
<Unit1>
40+
<Filename Value="munit.pas"/>
41+
<IsPartOfProject Value="True"/>
42+
<ComponentName Value="HideFrm"/>
43+
<HasResources Value="True"/>
44+
<ResourceBaseClass Value="DataModule"/>
45+
<UnitName Value="mUnit"/>
46+
</Unit1>
47+
</Units>
48+
</ProjectOptions>
49+
<CompilerOptions>
50+
<Version Value="11"/>
51+
<Target>
52+
<Filename Value="../bin/$(TargetCPU)-$(TargetOS)/ledkey"/>
53+
</Target>
54+
<SearchPaths>
55+
<IncludeFiles Value="$(ProjOutDir)"/>
56+
<UnitOutputDirectory Value="../lib/$(TargetCPU)-$(TargetOS)"/>
57+
</SearchPaths>
58+
<Linking>
59+
<Debugging>
60+
<GenerateDebugInfo Value="False"/>
61+
</Debugging>
62+
<Options>
63+
<Win32>
64+
<GraphicApplication Value="True"/>
65+
</Win32>
66+
</Options>
67+
</Linking>
68+
</CompilerOptions>
69+
<Debugging>
70+
<Exceptions Count="3">
71+
<Item1>
72+
<Name Value="EAbort"/>
73+
</Item1>
74+
<Item2>
75+
<Name Value="ECodetoolError"/>
76+
</Item2>
77+
<Item3>
78+
<Name Value="EFOpenError"/>
79+
</Item3>
80+
</Exceptions>
81+
</Debugging>
82+
</CONFIG>

‎src/ledkey.lpr

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
program ledkey;
2+
3+
{$mode objfpc}{$H+}
4+
5+
uses
6+
{$IFDEF UNIX}{$IFDEF UseCThreads}
7+
cthreads,
8+
{$ENDIF}{$ENDIF}
9+
Interfaces,
10+
Forms, mUnit, ExSystemUtils
11+
{ you can add units after this };
12+
13+
{$R *.res}
14+
15+
begin
16+
LSGlobalAddAtom(cMyHookAtom);
17+
LSRunOnce;
18+
//RequireDerivedFormResource:=True;
19+
Application.Initialize;
20+
Application.CreateForm(THideFrm, HideFrm);
21+
Application.Run;
22+
end.
23+

0 commit comments

Comments
 (0)