paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_iPro: Rename TIpHtml.FParent to TIpHtml.FControlParent. Better handling of TIpHtmlNodeBUTTON captions.

Browse Source 
git-svn-id: trunk@64059 -
This commit is contained in:
wp 2020-10-23 10:14:02 +00:00
parent d2539a84b0
commit daa1794176
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/turbopower_ipro/iphtml.pas
View File

@ -1818,6 +1818,7 @@ type
FValue: string;
FName: string;
FInputType: TIpHtmlButtonType;
function GetButtonCaption: String;
procedure SetInputType(const AValue: TIpHtmlButtonType);
procedure SetValue(const AValue: String);
protected
@ -2107,7 +2108,7 @@ type
FDefaultFontSize: integer;
ParmBuf: PChar;
ParmBufSize: Integer;
FParent: TWinControl;
FControlParent: TWinControl;
procedure ResetCanvasData;
procedure ResetWordLists;
procedure ResetBlocks(Node: TIpHtmlNode);
@ -13234,7 +13235,7 @@ begin
FElementName := 'button';
Owner.FControlList.Add(Self);
if Owner.DoneLoading then
CreateControl(Owner.FParent);
CreateControl(Owner.FControlParent);
end;
destructor TIpHtmlNodeBUTTON.Destroy;
@ -13255,12 +13256,24 @@ begin
with TButton(FControl) do begin
Enabled := not Self.Disabled;
Caption := Value;
Caption := GetButtonCaption;
OnClick := ButtonClick;
CalcSize;
end;
end;
function TIpHtmlNodeBUTTON.GetButtonCaption: String;
begin
if FValue = '' then
case FInputType of
hbtSubmit: Result := SHtmlDefSubmitCaption;
hbtReset: Result := SHtmlDefResetCaption;
hbtButton: Result := '';
end
else
Result := FValue;
end;
procedure TIpHtmlNodeBUTTON.Reset;
begin
end;
@ -13308,21 +13321,17 @@ begin
lCanvas := TFriendPanel(Parent).Canvas;
oldFontSize := lCanvas.Font.Size;
Width := TFriendPanel(Parent).Canvas.TextWidth(Caption) + 40;
Height := TFriendPanel(Parent).Canvas.TextHeight(Caption) + 10;
Height := TFriendPanel(Parent).Canvas.TextHeight('Tg') + 10;
lCanvas.Font.Size := oldFontSize;
end;
end;
procedure TIpHtmlNodeBUTTON.SetInputType(const AValue: TIpHtmlButtonType);
begin
if FInputType = AValue then exit;
FInputType := AValue;
if Owner.DoneLoading and (FControl <> nil) and (Self.Value = '') then;
case FInputType of
hbtSubmit : SetValue(SHtmlDefSubmitCaption);
hbtReset : SetValue(SHtmlDefResetCaption);
hbtButton : ;
end;
if Owner.DoneLoading and (FControl <> nil) and (Self.Value = '') then
SetValue(GetButtonCaption);
end;
procedure TIpHtmlNodeBUTTON.SetValue(const AValue: String);
@ -13331,7 +13340,7 @@ begin
FValue := AValue;
if Owner.DoneLoading and (FControl <> nil) then
begin
(FControl as TButton).Caption := AValue;
(FControl as TButton).Caption := GetButtonCaption;
CalcSize;
end;
end;
@ -15099,7 +15108,7 @@ begin
HyperPanel.OnHotClick := FViewer.HotClick;
HyperPanel.OnClick := FViewer.ClientClick;
HyperPanel.TabStop := FViewer.WantTabs;
FHtml.FParent := HyperPanel;
FHtml.FControlParent := HyperPanel;
FHtml.OnScroll := HyperPanel.ScrollRequest;
FHtml.OnControlClick := ControlClick;
FHtml.OnControlClick2 := ControlClick2;