问题:TColorPanel 在运行时,选取颜色都会重绘,造成选色缓慢。
适用:Delphi XE5
修正:找出 FMX.Colors.pas 档案,并复制到自己的 Project 路径里,找到 TColorQuad.SetColor 函数,并删除下面二行:
...略
<span style="color: #0000ff;">procedure TColorQuad.SetColor(<span style="color: #0000ff;">const<span style="color: #000000;"> ValHue,ValLum,ValSat,ValAlpha: Single);
<span style="color: #0000ff;">begin<span style="color: #000000;">
<span style="color: #0000ff;">begin<span style="color: #000000;">
...略
//<span style="color: #000000;"> 删除下面二行
// <span style="color: #0000ff;">if Assigned(FColorBitmap) <span style="color: #0000ff;">then
//<span style="color: #000000;"> FreeAndNil(FColorBitmap);
...略
<span style="color: #0000ff;">end;