pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Pen draw dot by one click now.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1572 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-04-17 13:11:31 +00:00
parent b9d1e06a6b
commit 1fbbb773f9
6 changed files with 79 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/lazimageeditor/DLBitmap.pas
View File

@ -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;