- 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;
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;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 1 guest