Linkbar release 1.6.7

ATGH15102AFMLD · Jan 2, 2018 · 94afd87 · 94afd87
1 parent a609f99
commit 94afd87
Show file tree

Hide file tree

Showing 37 changed files with 2,615 additions and 1,557 deletions.
diff --git a/README.md b/README.md
@@ -1,3 +1,11 @@
+
+
+
+![Delphi](https://img.shields.io/badge/Delphi-XE3-red.svg)
+![Windows](https://img.shields.io/badge/Windiws-Vista--10-blue.svg)
+![License](https://img.shields.io/badge/license-MIT-brightgreen.svg)
+
+
 What is Linkbar ?
 ===============================
 Linkbar is a free source code desktop toolbar. Running in the MS Windows Vista+ environment, its use is governed by

diff --git a/components/ColorPicker/ColorPicker.pas b/components/ColorPicker/ColorPicker.pas
@@ -91,6 +91,7 @@   TfrmColorPicker = class(TForm)
     LastHue: Integer;
     TextEnter: Boolean;
     AlpBarHeight: Integer;
+    procedure L10n;
   public
     procedure PaintVar;
     procedure PaintColorHue;
@@ -104,7 +105,7 @@ implementation
 {$R *.dfm}
 
 uses
-  ColorUtils, GdiPlusHelpers, GdiPlus;
+  ColorUtils, GdiPlusHelpers, GdiPlus, Linkbar.L10n;
 
 function TfrmColorPicker.GetColor: Cardinal;
 begin
@@ -244,6 +245,13 @@ procedure TfrmColorPicker.editColor1KeyUp(Sender: TObject; var Key: Word;
   TextEnter := False;
 end;
 
+procedure TfrmColorPicker.L10n;
+begin
+  L10nControl(Self, 'Color.Caption');
+  L10nControl(btnOk, 'Color.OK');
+  L10nControl(btnCancel, 'Color.Cancel');
+end;
+
 procedure TfrmColorPicker.FormCreate(Sender: TObject);
 const
   Colors: array[0..15] of TColor = (clBlack, clWhite, clGray, clSilver,
@@ -252,6 +260,8 @@ procedure TfrmColorPicker.FormCreate(Sender: TObject);
 var
   i: Integer;
 begin
+  L10n;
+
   AlpBarHeight := imgAlpha.Height - 1;
 
   HBoxBmp := TBitmap.Create;