diff --git a/applications/lazimageeditor/DLBitmap.pas b/applications/lazimageeditor/DLBitmap.pas
index 451c05777..c0ab794ca 100644
--- a/applications/lazimageeditor/DLBitmap.pas
+++ b/applications/lazimageeditor/DLBitmap.pas
@@ -331,9 +331,9 @@ begin
for j := 0 to ABitmap.Width - 1 do
begin
LNew := LScan[j];
- LScan[j].rgbtBlue := LScan[j].rgbtBlue * Value div 100; //Value; //LNew.rgbtBlue;
- LScan[j].rgbtGreen := LScan[j].rgbtGreen * Value div 100; //LNew.rgbtGreen;
- LScan[j].rgbtRed := LScan[j].rgbtRed * Value div 100; //LNew.rgbtRed;
+ LScan[j].rgbtBlue := LScan[j].rgbtBlue * Value div 100;
+ LScan[j].rgbtGreen := LScan[j].rgbtGreen * Value div 100;
+ LScan[j].rgbtRed := LScan[j].rgbtRed * Value div 100;
end;
end;
ABitmap.InvalidateScanLine;
diff --git a/applications/lazimageeditor/lazimageeditor.lpi b/applications/lazimageeditor/lazimageeditor.lpi
index 4a59dc95c..32cec461d 100644
--- a/applications/lazimageeditor/lazimageeditor.lpi
+++ b/applications/lazimageeditor/lazimageeditor.lpi
@@ -41,7 +41,7 @@
-
+
@@ -60,8 +60,8 @@
-
-
+
+
@@ -69,10 +69,11 @@
-
+
+
-
-
+
+
@@ -176,11 +177,10 @@
-
-
-
+
+
@@ -243,7 +243,7 @@
-
+
@@ -276,7 +276,7 @@
-
+
@@ -302,7 +302,7 @@
-
+
@@ -359,127 +359,137 @@
+
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
-
+
+
diff --git a/applications/lazimageeditor/main.lfm b/applications/lazimageeditor/main.lfm
index 9e99c4eed..8fb8b9911 100644
--- a/applications/lazimageeditor/main.lfm
+++ b/applications/lazimageeditor/main.lfm
@@ -1,7 +1,7 @@
object MainForm: TMainForm
- Left = 209
+ Left = 260
Height = 666
- Top = 146
+ Top = 147
Width = 905
Caption = 'Lazarus Image Editor'
ClientHeight = 644
diff --git a/applications/lazimageeditor/main.lrs b/applications/lazimageeditor/main.lrs
index 232b64f04..43306ed47 100644
--- a/applications/lazimageeditor/main.lrs
+++ b/applications/lazimageeditor/main.lrs
@@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[
- 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#209#0#6'Height'#3#154#2#3'Top'#3#146
- +#0#5'Width'#3#137#3#7'Caption'#6#20'Lazarus Image Editor'#12'ClientHeight'#3
+ 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#4#1#6'Height'#3#154#2#3'Top'#3#147#0
+ +#5'Width'#3#137#3#7'Caption'#6#20'Lazarus Image Editor'#12'ClientHeight'#3
+#132#2#11'ClientWidth'#3#137#3#12'Font.CharSet'#7#14'GB2312_CHARSET'#11'Font'
+'.Height'#2#243#9'Font.Name'#6#12#229#190#174#232#189#175#233#155#133#233#187
+#145#10'Font.Pitch'#7#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#4'Menu'#7
diff --git a/applications/lazimageeditor/picturectrls.pas b/applications/lazimageeditor/picturectrls.pas
index 7b0cfdd83..b292a97f3 100644
--- a/applications/lazimageeditor/picturectrls.pas
+++ b/applications/lazimageeditor/picturectrls.pas
@@ -846,7 +846,10 @@ begin
BeginDraw;
if not (ssLeft in Shift) then Picture.EraseMode := ermErase;
try
- Picture.Canvas.Line(X1, Y1, X2, Y2);
+ if (X1 = X2) and (Y1 = Y2) then
+ Picture.Canvas.Pixels[X1, Y1] := FOutLineColor
+ else
+ Picture.Canvas.Line(X1, Y1, X2, Y2);
finally
Picture.EraseMode := ermNone;
EndDraw;
diff --git a/applications/lazimageeditor/picturemanager.pas b/applications/lazimageeditor/picturemanager.pas
index 31b5f85d7..a96e74d70 100644
--- a/applications/lazimageeditor/picturemanager.pas
+++ b/applications/lazimageeditor/picturemanager.pas
@@ -111,8 +111,8 @@ type
property OnPageCloseQuery: TCloseQueryEvent read FOnPageCloseQuery write FOnPageCloseQuery;
end;
-
implementation
+
uses IconStrConsts;
{ TPictureManager }