paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 05:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert unintentionally committed files

Browse Source
This commit is contained in:
wp_xyz 2022-05-24 15:38:36 +02:00
parent afa0c12e15
commit 282e47bb8a
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/turbopower_ipro/iphtml.pas
View File

@ -13088,7 +13088,6 @@ end;
procedure TIpHtmlNodeTableHeaderOrCell.Render(RenderProps: TIpHtmlProps); procedure TIpHtmlNodeTableHeaderOrCell.Render(RenderProps: TIpHtmlProps);
begin begin
FLayouter.Render(RenderProps); FLayouter.Render(RenderProps);
debugln(classname+ ': Props.Alignmene=' + IntToStr(ord(Props.Alignment)));
end; end;
procedure TIpHtmlNodeTableHeaderOrCell.SetAlign(const Value: TIpHtmlAlign); procedure TIpHtmlNodeTableHeaderOrCell.SetAlign(const Value: TIpHtmlAlign);

4
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -485,8 +485,6 @@ end;
procedure TIpNodeBlockLayouter.ApplyQueueProps(aCurElem: PIpHtmlElement; var aPrefor: Boolean); procedure TIpNodeBlockLayouter.ApplyQueueProps(aCurElem: PIpHtmlElement; var aPrefor: Boolean);
begin begin
//DebugLn(acurelem.AnsiWord + ': acurelem.Props.Alignment=' + IntToStr(ord(acurElem.Props.Alignment)));
with aCurElem.Props do begin with aCurElem.Props do begin
if (FCurProps = nil) or not AIsEqualTo(FCurProps) then begin if (FCurProps = nil) or not AIsEqualTo(FCurProps) then begin
UpdSpaceHyphenSize(aCurElem.Props); UpdSpaceHyphenSize(aCurElem.Props);
@ -508,8 +506,6 @@ begin
end; end;
end; end;
FCurProps := aCurElem.Props; FCurProps := aCurElem.Props;
//DebugLn(' FCurProps.Alignment=' + IntToStr(ord(FCurProps.Alignment)));
end; end;
procedure TIpNodeBlockLayouter.DoQueueElemWord(aCurElem: PIpHtmlElement); procedure TIpNodeBlockLayouter.DoQueueElemWord(aCurElem: PIpHtmlElement);

5
components/turbopower_ipro/test_cases/iprotest.lpi
View File

@ -70,6 +70,11 @@
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf3"/> <DebugInfoType Value="dsDwarf3"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>

2
lcl/lcltranslator.pas
View File

@ -586,7 +586,7 @@ begin
DefaultLang := Result; DefaultLang := Result;
if lcfn<>'' then if lcfn<>'' then
TranslateLCLResourceStrings(Result, lcfn); TranslateLCLResourceStrings(Lang, lcfn);
if LocalTranslator<>nil then if LocalTranslator<>nil then
begin begin