mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 16:29:32 +02:00
added synedit localization
git-svn-id: trunk@3914 -
This commit is contained in:
mattias
parent
bb739f5f46
commit
722e18f899
@ -295,10 +295,10 @@ type
|
||||
function GetStrValueAt(Index:Integer):AnsiString;
|
||||
function GetVarValue:Variant;
|
||||
function GetVarValueAt(Index:Integer):Variant;
|
||||
procedure SetFloatValue(NewValue:Extended);
|
||||
procedure SetFloatValue(const NewValue:Extended);
|
||||
procedure SetMethodValue(const NewValue:TMethod);
|
||||
procedure SetInt64Value(NewValue:Int64);
|
||||
procedure SetOrdValue(NewValue:Longint);
|
||||
procedure SetInt64Value(const NewValue:Int64);
|
||||
procedure SetOrdValue(const NewValue:Longint);
|
||||
procedure SetStrValue(const NewValue:AnsiString);
|
||||
procedure SetVarValue(const NewValue:Variant);
|
||||
procedure Modified;
|
||||
@ -1683,10 +1683,120 @@ begin
|
||||
PropertyHook.Modified;
|
||||
end;
|
||||
|
||||
procedure TPropertyEditor.SetFloatValue(NewValue:Extended);
|
||||
procedure TPropertyEditor.SetFloatValue(const NewValue:Extended);
|
||||
var
|
||||
I:Integer;
|
||||
Changed: boolean;
|
||||
|
||||
Function CallExtendedProc(s : Pointer;Address : Pointer;Value : Extended; INdex,IVAlue : Longint) : Integer;assembler;
|
||||
asm
|
||||
movl S,%esi
|
||||
movl Address,%edi
|
||||
// Push value to set
|
||||
leal Value,%eax
|
||||
pushl (%eax)
|
||||
pushl 4(%eax)
|
||||
pushl 8(%eax)
|
||||
// ? Indexed Procedure
|
||||
movl Index,%eax
|
||||
testl %eax,%eax
|
||||
je .LIPNoPush
|
||||
movl IValue,%eax
|
||||
pushl %eax
|
||||
.LIPNoPush:
|
||||
push %esi
|
||||
call %edi
|
||||
end;
|
||||
|
||||
Function CallSingleProc(s : Pointer;Address : Pointer;Value : Single; INdex,IVAlue : Longint) : Integer;assembler;
|
||||
asm
|
||||
movl S,%esi
|
||||
movl Address,%edi
|
||||
// Push value to set
|
||||
leal Value,%eax
|
||||
pushl (%eax)
|
||||
// ? Indexed Procedure
|
||||
movl Index,%eax
|
||||
testl %eax,%eax
|
||||
je .LIPNoPush
|
||||
movl IValue,%eax
|
||||
pushl %eax
|
||||
.LIPNoPush:
|
||||
push %esi
|
||||
call %edi
|
||||
end;
|
||||
|
||||
Function CallDoubleProc(s : Pointer;Address : Pointer;Value : Double; INdex,IVAlue : Longint) : Integer;assembler;
|
||||
asm
|
||||
movl S,%esi
|
||||
movl Address,%edi
|
||||
// Push value to set
|
||||
leal Value,%eax
|
||||
pushl (%eax)
|
||||
pushl (%eax)
|
||||
// ? Indexed Procedure
|
||||
movl Index,%eax
|
||||
testl %eax,%eax
|
||||
je .LIPNoPush
|
||||
movl IValue,%eax
|
||||
pushl %eax
|
||||
.LIPNoPush:
|
||||
push %esi
|
||||
call %edi
|
||||
end;
|
||||
|
||||
Procedure SetIndexValues (P: PPRopInfo; Var Index,IValue : Longint);
|
||||
|
||||
begin
|
||||
Index:=((P^.PropProcs shr 6) and 1);
|
||||
If Index<>0 then
|
||||
IValue:=P^.Index
|
||||
else
|
||||
IValue:=0;
|
||||
end;
|
||||
|
||||
Procedure MySetFloatProp(Instance : TObject;PropInfo : PPropInfo;
|
||||
Value : Extended);
|
||||
|
||||
Var IValue,Index : longint;
|
||||
|
||||
begin
|
||||
SetIndexValues(PropInfo,Index,Ivalue);
|
||||
writeln('MySetFloatProp A ',Index,' ',IValue,' ',(PropInfo^.PropProcs shr 2) and 3,' ',ftSingle=GetTypeData(PropInfo^.PropType)^.FloatType,' ',Value);
|
||||
case (PropInfo^.PropProcs shr 2) and 3 of
|
||||
ptfield:
|
||||
Case GetTypeData(PropInfo^.PropType)^.FloatType of
|
||||
ftSingle:
|
||||
PSingle(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
|
||||
ftDouble:
|
||||
PDouble(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
|
||||
ftExtended:
|
||||
PExtended(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
|
||||
{$ifndef m68k}
|
||||
ftcomp:
|
||||
PComp(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Comp(Value);
|
||||
{$endif m68k}
|
||||
{ Uncommenting this code results in a internal error!!
|
||||
ftFixed16:
|
||||
PFixed16(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
|
||||
ftfixed32:
|
||||
PFixed32(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
|
||||
}
|
||||
end;
|
||||
ptstatic:
|
||||
Case GetTypeData(PropInfo^.PropType)^.FloatType of
|
||||
ftSingle:
|
||||
CallSingleProc(Instance,PropInfo^.SetProc,Value,Index,IValue);
|
||||
ftDouble:
|
||||
CallDoubleProc(Instance,PropInfo^.SetProc,Value,Index,IValue);
|
||||
ftExtended:
|
||||
CallExtendedProc(Instance,PropInfo^.SetProc,Value,Index,IValue);
|
||||
end;
|
||||
ptvirtual:
|
||||
CallExtendedProc(Instance,PPointer(Pointer(Instance.ClassType)+Longint(PropInfo^.SetProc))^,Value,Index,IValue);
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
Changed:=false;
|
||||
for I:=0 to FPropCount-1 do
|
||||
@ -1694,7 +1804,7 @@ begin
|
||||
Changed:=Changed or (GetFloatProp(Instance,PropInfo)<>NewValue);
|
||||
if Changed then begin
|
||||
for I:=0 to FPropCount-1 do
|
||||
with FPropList^[I] do SetFloatProp(Instance,PropInfo,NewValue);
|
||||
with FPropList^[I] do MySetFloatProp(Instance,PropInfo,NewValue);
|
||||
Modified;
|
||||
end;
|
||||
end;
|
||||
@ -1718,7 +1828,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPropertyEditor.SetOrdValue(NewValue:Longint);
|
||||
procedure TPropertyEditor.SetOrdValue(const NewValue:Longint);
|
||||
var
|
||||
I:Integer;
|
||||
Changed: boolean;
|
||||
@ -1816,7 +1926,7 @@ begin
|
||||
with FPropList^[Index] do Result:=GetInt64Prop(Instance,PropInfo);
|
||||
end;
|
||||
|
||||
procedure TPropertyEditor.SetInt64Value(NewValue:Int64);
|
||||
procedure TPropertyEditor.SetInt64Value(const NewValue:Int64);
|
||||
var
|
||||
I:Integer;
|
||||
Changed: boolean;
|
||||
@ -2172,7 +2282,9 @@ end;
|
||||
|
||||
procedure TFloatPropertyEditor.SetValue(const NewValue: ansistring);
|
||||
begin
|
||||
writeln('TFloatPropertyEditor.SetValue A ',NewValue,' ',StrToFloat(NewValue));
|
||||
SetFloatValue(StrToFloat(NewValue));
|
||||
writeln('TFloatPropertyEditor.SetValue B ',GetValue);
|
||||
end;
|
||||
|
||||
{ TStringPropertyEditor }
|
||||
|
||||
@ -29,6 +29,7 @@ end;
|
||||
|
||||
procedure TSpinEdit.SetMaxValue(const AValue: single);
|
||||
begin
|
||||
writeln('TSpinEdit.SetMaxValue ',AValue);
|
||||
if FMaxValue=AValue then exit;
|
||||
FMaxValue:=AValue;
|
||||
UpdateControl;
|
||||
|
||||
20
localize.sh
20
localize.sh
@ -28,7 +28,7 @@ for lang in de ru es fr; do
|
||||
msgfmt languages/lazaruside.$lang.po -o languages/lazaruside.$lang.mo
|
||||
done
|
||||
|
||||
# objectinspector
|
||||
# Object Inspector
|
||||
rstconv -i objinspstrconsts.rst -o languages/objinspstrconsts.po
|
||||
tools/updatepofiles languages/objinspstrconsts.po
|
||||
for lang in de es fr ru; do
|
||||
@ -45,6 +45,24 @@ for lang in de fr; do
|
||||
-o components/codetools/languages/codetools.$lang.mo
|
||||
done
|
||||
|
||||
# SynEdit
|
||||
rstconv -i components/units/syneditstrconst.rst \
|
||||
-o components/synedit/languages/synedit.po
|
||||
./tools/updatepofiles components/synedit/languages/synedit.po
|
||||
for lang in de; do
|
||||
msgfmt components/synedit/languages/synedit.$lang.po \
|
||||
-o components/synedit/languages/synedit.$lang.mo
|
||||
done
|
||||
|
||||
# SynMacroRecorder
|
||||
rstconv -i components/units/synmacrorecorder.rst \
|
||||
-o components/synedit/languages/synmacrorecorder.po
|
||||
./tools/updatepofiles components/synedit/languages/synmacrorecorder.po
|
||||
for lang in de; do
|
||||
msgfmt components/synedit/languages/synmacrorecorder.$lang.po \
|
||||
-o components/synedit/languages/synmacrorecorder.$lang.mo
|
||||
done
|
||||
|
||||
# LCL
|
||||
rstconv -i lcl/units/lclstrconsts.rst -o lcl/languages/lcl.po
|
||||
./tools/updatepofiles lcl/languages/lcl.po
|
||||
|
||||
Loading…
Reference in New Issue
Block a user