Is er een mogelijkheid om de caption van het formulier te vertalen? Ik kon geen mogelijkheid vinden en heb daarom in TCustomNLDTranslate.ApplyTranslationComp de regels
Code:
// Find component on owner
for iComp := 0 to Owner.ComponentCount - 1 do
if CompareText(Owner.Components[iComp].Name, AName) = 0 then begin
AInstance := Owner.Components[iComp];
break;
end;
gewijzigd in
Code:
if CompareText(AName, 'self') = 0 then
AInstance := Owner
else
// Find component on owner
for iComp := 0 to Owner.ComponentCount - 1 do
if CompareText(Owner.Components[iComp].Name, AName) = 0 then begin
AInstance := Owner.Components[iComp];
break;
end;
Door nu in je XML bestand self als ComponentName te gebruiken kun je de caption vertalen, dus
Code:
<TMainForm>
<self Caption="Form Caption" />
</TMainForm>
Bookmarks