DELPHI AREA Forum

Please patch the source to change the color of you Marker. It has an invalid if-statement which is triggered if not assigned.

Code: Select all

procedure TThumbnailPreview.SetMarkerColor(Value: TColor);
begin
  if MarkerColor <> Value then
  begin
    FMarkerColor := Value;
    (*
    if ActiveThumb = nil then
    *)
    if Assigned(ActiveThumb) then
      ActiveThumb.PageView.Invalidate;
  end;
end;


Thank you so much!

Kambiz