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 }