paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Alpha channel at Opaque for normal colors

Browse Source
This commit is contained in:
luk 2003-07-02 07:51:13 +00:00
parent 304539d845
commit ecf5190d17
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fcl/image/fpreadxpm.pp
View File

@ -70,6 +70,7 @@ begin
result.red := (Convert(copy(s,1,l))); result.red := (Convert(copy(s,1,l)));
result.green := (Convert(copy(s,l+1,l))); result.green := (Convert(copy(s,l+1,l)));
result.blue := Convert(copy(s,l+l+1,l)); result.blue := Convert(copy(s,l+l+1,l));
result.alpha := AlphaOpaque;
end; end;
function TFPReaderXPM.NameToColor(s : string) : TFPColor; function TFPReaderXPM.NameToColor(s : string) : TFPColor;