paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

jvcllaz: Fix TJvMarkupLabel "hiding" pages in a PageControl.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7212 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2020-01-01 18:33:32 +00:00
parent 1c87132ba3
commit 339b9ef430
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/jvcllaz/run/JvJans/jvmarkuplabel.pas
View File

@ -45,7 +45,7 @@ type
FMarginTop: Integer;
FAlignment: TAlignment;
FText: TCaption;
procedure Refresh;
procedure RefreshLabel;
procedure ParseHTML(S: string);
procedure RenderHTML;
procedure HTMLClearBreaks;
@ -57,6 +57,7 @@ type
// procedure DoReadBackColor(Reader: TReader);
protected
// procedure FontChanged; override;
procedure Loaded; override;
procedure SetText(const Value: TCaption);
procedure SetAutoSize(Value: Boolean); override;
// procedure DefineProperties(Filer: TFiler); override;
@ -176,8 +177,11 @@ begin
end;
end;
procedure TJvMarkupLabel.Refresh;
procedure TJvMarkupLabel.RefreshLabel;
begin
if csLoading in ComponentState then
exit;
ParseHTML(FText);
HTMLElementDimensions;
Invalidate;
@ -192,10 +196,16 @@ end;
procedure TJvMarkupLabel.FontChanged;
begin
inherited FontChanged;
Refresh;
RefreshLabel;
end;
}
procedure TJvMarkupLabel.Loaded;
begin
inherited;
RefreshLabel;
end;
procedure TJvMarkupLabel.ParseHTML(S: string);
var
P: Integer;
@ -610,7 +620,7 @@ begin
S := StringReplace(S, SLineBreak, ' ', [rfReplaceAll]);
S := TrimRight(S);
FText := S;
Refresh;
RefreshLabel;
end;
{function TJvMarkupLabel.GetBackColor: TColor;