Commit fcc5512f authored by mse1's avatar mse1

* cardinal -> longword.

* 64bit modifications.

git-svn-id: https://mseide-msegui.svn.sourceforge.net/svnroot/mseide-msegui/trunk@3284 56ecf5fe-6917-0410-8ac6-ca8e178bccbf
parent 382729c1
......@@ -217,10 +217,10 @@ begin
if fflagswidget <> nil then begin
with tbooleanedit(sender) do begin
if avalue then begin
fflagswidget.value:= cardinal(fflagswidget.value) or bits[tag];
fflagswidget.value:= longword(fflagswidget.value) or bits[tag];
end
else begin
fflagswidget.value:= cardinal(fflagswidget.value) and not bits[tag];
fflagswidget.value:= longword(fflagswidget.value) and not bits[tag];
end;
fflagswidget.checkvalue;
end;
......@@ -229,10 +229,10 @@ begin
if fflagswidget64 <> nil then begin
with tbooleanedit(sender) do begin
if avalue then begin
fflagswidget64.value:= cardinal(fflagswidget64.value) or bits[tag];
fflagswidget64.value:= longword(fflagswidget64.value) or bits[tag];
end
else begin
fflagswidget64.value:= cardinal(fflagswidget64.value) and not bits[tag];
fflagswidget64.value:= longword(fflagswidget64.value) and not bits[tag];
end;
fflagswidget64.checkvalue;
end;
......@@ -245,7 +245,7 @@ var
int1: integer;
ed1: tcustombooleanedit;
bo1: boolean;
ca1: cardinal;
ca1: longword;
begin
if fflagswidget <> nil then begin
ca1:= fflagswidget.value;
......
......@@ -486,7 +486,7 @@ type
var
fdesigner: tdesigner;
loadingdesigner: tdesigner;
methodaddressdummy: cardinal;
methodaddressdummy: longword;
submodulecopy: integer;
function designer: tdesigner;
......@@ -1376,7 +1376,7 @@ var
po1: pmethodinfoty;
begin
{$ifdef FPC} {$checkpointer off} {$endif}
po1:= add(cardinal(aaddress),nil^);
po1:= add(ptruint(aaddress),nil^);
{$ifdef FPC} {$checkpointer default} {$endif}
with po1^ do begin
name:= aname;
......@@ -1387,7 +1387,7 @@ end;
procedure tmethods.deletemethod(const aadress: pointer);
begin
// inherited delete(cardinal(aadress)); do nothing
// inherited delete(aadress); do nothing
end;
type
......@@ -1524,7 +1524,7 @@ end;
function tmethods.findmethod(const aadress: pointer): pmethodinfoty;
begin
result:= pmethodinfoty(find(cardinal(aadress)));
result:= pmethodinfoty(find(ptruint(aadress)));
end;
function tmethods.findmethodbyname(const aname: string;
......@@ -1593,7 +1593,7 @@ end;
procedure tcomponents.destroynotification(const acomponent: tcomponent);
begin
fdesigner.componentdestroyed(acomponent,fowner);
delete(cardinal(acomponent));
delete(ptruint(acomponent));
end;
procedure tcomponents.freedata(var data);
......@@ -1633,7 +1633,7 @@ var
po1: pcomponentinfoty;
begin
{$ifdef FPC} {$checkpointer off} {$endif}
po1:= inherited add(cardinal(comp),nil^);
po1:= inherited add(ptruint(comp),nil^);
{$ifdef FPC} {$checkpointer default} {$endif}
with po1^ do begin
instance:= comp;
......@@ -1644,7 +1644,7 @@ end;
function tcomponents.find(const value: tobject): pcomponentinfoty;
begin
result:= pcomponentinfoty(inherited find(cardinal(value)));
result:= pcomponentinfoty(inherited find(ptruint(value)));
end;
procedure tcomponents.swapcomponent(const old,new: tcomponent);
......
......@@ -918,7 +918,7 @@ begin
if int1 > high(usercolors) then begin
break;
end;
setcolormapvalue(cl_user + cardinal(int1),usercolors[int1]);
setcolormapvalue(cl_user + longword(int1),usercolors[int1]);
end;
end;
li.free;
......@@ -1495,7 +1495,7 @@ begin
fo.colgrid.fixcols[-1].captions.count:= usercolorcount;
with fo,projectoptions do begin
for int1:= 0 to colgrid.rowhigh do begin
colgrid.fixcols[-1].captions[int1]:= colortostring(cl_user+cardinal(int1));
colgrid.fixcols[-1].captions[int1]:= colortostring(cl_user+longword(int1));
end;
end;
with fo.signame do begin
......@@ -2176,7 +2176,7 @@ begin
str1:= '';
for int1:= 0 to colgrid.rowhigh do begin
if usercolors[int1] <> 0 then begin
str1:= str1 + ' setcolormapvalue('+colortostring(cl_user+cardinal(int1))+','+
str1:= str1 + ' setcolormapvalue('+colortostring(cl_user+longword(int1))+','+
colortostring(usercolors[int1])+');';
if usercolorcomment[int1] <> '' then begin
str1:= str1 + ' //'+usercolorcomment[int1];
......
......@@ -80,7 +80,7 @@ type
fasking: boolean;
fgdbpage: tsourcepage;
ffileloading: boolean;
ffiletag: cardinal;
ffiletag: longword;
fnaviglist: tnaviglist;
fsourcehintwidget: twidget;
feditposar: gridcoordarty;
......@@ -140,7 +140,7 @@ type
function closeall(const nosave: boolean): boolean; //false on cancel
function gdbpage: tsourcepage;
function modified: boolean;
function newfiletag: cardinal;
function newfiletag: longword;
property items[const index: integer]: tsourcepage read getitems; default;
property naviglist: tnaviglist read fnaviglist;
function findbookmark(const bookmarknum: integer): boolean;
......@@ -555,7 +555,7 @@ var
begin
for int1:= 0 to count - 1 do begin
with items[int1] do begin
if (cardinal(info.tag) = filetag) and canchangenotify(info) then begin
if (longword(info.tag) = filetag) and canchangenotify(info) then begin
filechanged:= true;
application.wakeupmainthread;
end;
......@@ -783,7 +783,7 @@ begin
end;
end;
function tsourcefo.newfiletag: cardinal;
function tsourcefo.newfiletag: longword;
begin
inc(ffiletag);
if ffiletag = 0 then begin
......
......@@ -65,7 +65,7 @@ type
flasthintlength: integer;
fbackupcreated: boolean;
ffindpos: gridcoordty;
ffiletag: cardinal;
ffiletag: longword;
fsavetime: tdatetime;
fexecstamp: integer;
fgotoline: integer;
......@@ -143,7 +143,7 @@ type
property filename: filenamety read getfilename;
property relpath: filenamety read getrelpath write frelpath;
property filepath: filenamety read getfilepath write setfilepath;
property filetag: cardinal read ffiletag;
property filetag: longword read ffiletag;
end;
function getpascalvarname(const edit: tsyntaxedit; pos: gridcoordty;
......@@ -1220,8 +1220,8 @@ begin
removebookmark(bookmarknum);
end
else begin
dataicon[arow]:= replacebits(cardinal(1 shl (bookmarknum + bmbitshift)),
cardinal(dataicon[arow]),cardinal(bmbitmask));
dataicon[arow]:= replacebits(longword(1 shl (bookmarknum + bmbitshift)),
longword(dataicon[arow]),longword(bmbitmask));
setlength(finitialbookmarks,high(finitialbookmarks)+2);
finitialbookmarks[high(finitialbookmarks)].bookmarknum:= bookmarknum;
end;
......
......@@ -144,7 +144,7 @@ begin
grid[1][int1]:= str1 + ')';
grid[2][int1]:= filename;
grid[3][int1]:= inttostr(line);
grid[4][int1]:= hextostr(cardinal(addr),8);
grid[4][int1]:= hextostr(addr,8);
end;
end;
if grid.rowcount > 0 then begin
......
......@@ -375,7 +375,7 @@ procedure TMemDataset.InternalDelete;
Var
TS : TMemoryStream;
OldPos,NewPos,CopySize1,CopySize2 : Cardinal;
OldPos,NewPos,CopySize1,CopySize2 : longword;
begin
if (FCurrRecNo<0) or (FCurrRecNo>=FRecCount) then
......
......@@ -93,7 +93,7 @@ Type
FServerInfo: String;
FMySQL : PMySQL;
FDidConnect : Boolean;
fport: cardinal;
fport: longword;
flasterror: integer;
flasterrormessage: msestring;
flastsqlcode: string;
......@@ -183,7 +183,7 @@ Type
property lastsqlcode: string read flastsqlcode;
published
property Dialect : integer read FDialect write FDialect default 0;
property port: cardinal read fport write fport default 0;
property port: longword read fport write fport default 0;
property DatabaseName;
property HostName;
property KeepConnection;
......
......@@ -101,7 +101,7 @@ Type
FServerInfo: String;
FMySQL1 : PMySQL;
// FDidConnect : Boolean;
fport: cardinal;
fport: longword;
flasterror: integer;
foptions: mysqloptionsty;
flasterrormessage: msestring;
......@@ -206,7 +206,7 @@ Type
published
property options: mysqloptionsty read foptions write foptions default [];
property Dialect : integer read FDialect write FDialect default 0;
property port: cardinal read fport write fport default 0;
property port: longword read fport write fport default 0;
property ssl_key: filenamety read fssl_key write fssl_key;
property ssl_cert: filenamety read fssl_cert write fssl_cert;
property ssl_ca: filenamety read fssl_ca write fssl_ca;
......@@ -455,7 +455,7 @@ function createbindingbuffers(const bindings: pointer;
var bindinfos: bindinginfoarty): pointer;
var
int1: integer;
bufsum: cardinal;
bufsum: longword;
begin
bufsum:= 0;
for int1:= 0 to high(bindinfos) do begin
......
......@@ -1248,7 +1248,7 @@ begin
result:= 0;
end
else begin
result:= cardinal(pqbackendpid(fhandle));
result:= pqbackendpid(fhandle);
end;
end;
......
......@@ -298,7 +298,7 @@ begin
n1:= timagecachenode.create(id1);
abitmap.savetoimagebuffer(n1.fimage);
n1.fsize:= (n1.fimage.image.length + n1.fimage.mask.length) *
sizeof(cardinal);
sizeof(longword);
fimagecache.addnode(n1);
end;
end
......
......@@ -269,7 +269,7 @@ type
CLIENT_SECURE_CONNECTION = 32768; // New 4.1 authentication
CLIENT_MULTI_STATEMENTS = 65536; // Enable/disable multi-stmt support
CLIENT_MULTI_RESULTS = 131072; // Enable/disable multi-results
CLIENT_REMEMBER_OPTIONS : cardinal = 1 shl 31;
CLIENT_REMEMBER_OPTIONS : longword = 1 shl 31;
SERVER_STATUS_IN_TRANS = 1; // Transaction has started
......
......@@ -80,7 +80,7 @@ procedure getobjforminfo(instream: ttextstream; var formname,formclass: string);
var
str1: string;
ar1: stringarty;
posbefore: cardinal;
posbefore: longword;
begin
posbefore:= instream.position;
instream.readln(str1);
......
......@@ -15,7 +15,7 @@ unit msegdbutils;
interface
uses
msestream,mseclasses,classes,msetypes,mseevent,msehash,msepipestream,msestrings,
mseapplication,msegui,msedatalist;
mseapplication,msegui,msedatalist,msesys;
//todo: byte endianess for remote debugging
......@@ -168,7 +168,7 @@ type
registerinfoarty = array of registerinfoty;
asmlinety = record
address: cardinal;
address: qword;
instruction: string;
end;
asmlinearty = array of asmlinety;
......@@ -237,10 +237,10 @@ type
{$endif}
fgdb: integer; //processhandle
fstate: gdbstatesty;
fsequence: cardinal;
fconsolesequence: cardinal;
frunsequence: cardinal;
fsyncsequence: cardinal;
fsequence: longword;
fconsolesequence: longword;
frunsequence: longword;
fsyncsequence: longword;
fsyncvalues: resultinfoarty;
fsynceventkind: gdbeventkindty;
fclivalues: string;
......@@ -255,7 +255,7 @@ type
fstartupbreakpoint1: integer;
fstoponexception: boolean;
ferrormessage: string;
fprocid: cardinal;
fprocid: procidty;
{$ifdef mswindows}
finterruptthreadid: longword;
{$endif}
......@@ -304,7 +304,7 @@ type
procedure logoutput(const text: string);
procedure sequenceend;
procedure receiveevent(const event: tobjectevent); override;
procedure doevent(const token: cardinal; const eventkind: gdbeventkindty;
procedure doevent(const token: longword; const eventkind: gdbeventkindty;
const values: resultinfoarty);
procedure postsyncerror;
procedure checkpointersize;
......@@ -444,7 +444,7 @@ type
function attach(const procid: longword; out info: stopinfoty): gdbresultty;
function attachtarget(out info: stopinfoty): gdbresultty;
function detach: gdbresultty;
function getprocid(var aprocid: longword): boolean;
function getprocid(var aprocid: procidty): boolean;
//true if ok
function clearenvvars: gdbresultty;
function setenvvar(const aname,avalue: string): gdbresultty;
......@@ -521,7 +521,7 @@ type
//for avr32
function infoline(const filename: filenamety; const line: integer;
out start,stop: qword): gdbresultty; overload;
function infoline(const address: cardinal; out filename: filenamety;
function infoline(const address: qword; out filename: filenamety;
out line: integer;
out start,stop: qword): gdbresultty; overload;
function infosymbol(const symbol: msestring;
......@@ -571,7 +571,7 @@ implementation
uses
sysutils,mseformatstr,mseprocutils,msesysutils,msefileutils,
msebits,msesys,msesysintf,mseguiintf
msebits,msesysintf,mseguiintf
{$ifdef UNIX},mselibc,
msesysbindings{$else},windows{$endif};
......@@ -928,7 +928,7 @@ begin
// consoleoutput(text);
end;
function tgdbmi.getprocid(var aprocid: longword): boolean;
function tgdbmi.getprocid(var aprocid: procidty): boolean;
var
ar1,ar2: stringarty;
int1: integer;
......@@ -1239,7 +1239,7 @@ begin
end;
end;
procedure tgdbmi.doevent(const token: cardinal; const eventkind: gdbeventkindty;
procedure tgdbmi.doevent(const token: longword; const eventkind: gdbeventkindty;
const values: resultinfoarty);
var
ev: tgdbevent;
......@@ -1341,7 +1341,7 @@ procedure tgdbmi.interpret(const line: string);
var
po1,po2: pchar;
token: cardinal;
token: longword;
ch1: char;
recordclass: recordclassty;
isconsole: boolean;
......@@ -1578,7 +1578,7 @@ end;
function tgdbmi.synccommand(const acommand: string;
atimeout: integer = defaultsynctimeout): gdbresultty;
var
timestamp: cardinal;
timestamp: longword;
int1: integer;
begin
......@@ -1847,7 +1847,7 @@ procedure tgdbmi.dorun;
var
int1: integer;
ar1,ar2: stringarty;
ca1: cardinal;
ca1: longword;
str1: string;
frames1: frameinfoarty;
ev: tgdbstartupevent;
......@@ -2064,7 +2064,7 @@ end;
function tgdbmi.interrupttarget: gdbresultty; //stop for breakpointsetting
var
timestamp: cardinal;
timestamp: longword;
bo1: boolean;
begin
result:= gdb_ok;
......@@ -3295,7 +3295,7 @@ begin
end;
end;
function tgdbmi.infoline(const address: cardinal; out filename: filenamety; out line: integer;
function tgdbmi.infoline(const address: qword; out filename: filenamety; out line: integer;
out start,stop: qword): gdbresultty;
var
str1,str2: string;
......@@ -3335,7 +3335,7 @@ function tgdbmi.internaldisassemble(out aresult: disassarty; command: string;
setlength(dest,length(source));
for int1:= 0 to high(source) do begin
with dest[int1] do begin
if not getintegervalue(source[int1],'address',integer(address)) then exit;
if not getqwordvalue(source[int1],'address',address) then exit;
if not getstringvalue(source[int1],'inst',instruction) then exit;
end;
end;
......
......@@ -136,8 +136,8 @@ type
valuekindty = (vk_none,vk_integer,vk_real,vk_string);
tokenidty = record
scanner: cardinal;
token: cardinal;
scanner: longword;
token: longword;
end;
tokenidarty = array of tokenidty;
......@@ -163,8 +163,8 @@ type
fcasesensitive: boolean;
fscanner: tscanner;
fownsscanner: boolean;
fscannernum: cardinal;
ftokennum: cardinal;
fscannernum: longword;
ftokennum: longword;
fidents: array[0..identbucketcount-1] of identinfoarty;
ffilestack: filestackinfoarty;
ftokenstack: tokenidarty;
......@@ -182,9 +182,9 @@ type
fdefstatecount: integer;
fstartdefines: stringarty;
function getacttoken: tokenidty;
procedure setacttokennum(anum: cardinal);
procedure setacttokennum(anum: longword);
procedure setacttoken(const atoken: tokenidty);
procedure enterinclude(anum: cardinal);
procedure enterinclude(anum: longword);
function exitinclude: boolean;
protected
fscanners: scannerarty;
......@@ -977,10 +977,10 @@ begin
result.token:= ftokennum;
end;
procedure tparser.setacttokennum(anum: cardinal);
procedure tparser.setacttokennum(anum: longword);
begin
with fscanner do begin
if anum <= cardinal(high(ftokens)) then begin
if anum <= longword(high(ftokens)) then begin
ftokennum:= anum;
fto:= @ftokens[ftokennum];
end
......@@ -995,7 +995,7 @@ var
int1,int2: integer;
begin
with atoken do begin
if scanner > cardinal(high(fscanners)) then begin
if scanner > longword(high(fscanners)) then begin
internalerror;
end;
if ffilestack <> nil then begin
......@@ -1012,7 +1012,7 @@ begin
fscanner:= fscanners[scanner];
feof:= false;
with fscanner do begin
if token <= cardinal(high(ftokens)) then begin
if token <= longword(high(ftokens)) then begin
ftokennum:= token;
fto:= @ftokens[ftokennum];
end
......@@ -1023,13 +1023,13 @@ begin
end;
end;
procedure tparser.enterinclude(anum: cardinal);
procedure tparser.enterinclude(anum: longword);
var
id1: tokenidty;
int1: integer;
aline: integer;
begin
if anum > cardinal(high(fscanners)) then begin
if anum > longword(high(fscanners)) then begin
internalerror;
end;
inc(fscanner.fincludecount);
......@@ -1785,7 +1785,7 @@ var
int1,int2: integer;
str1: string;
filename: filenamety;
anum: cardinal;
anum: longword;
startpos,endpos: sourceposty;
lstr1: lstringty;
begin
......
......@@ -633,9 +633,9 @@ type
feditor: tpropertyeditor;
protected
function getdefaultstate: propertystatesty; override;
function getordvalue(const index: integer = 0): integer;
procedure setordvalue(const value: longword); overload;
procedure setordvalue(const index: integer; const value: longword); overload;
// function getordvalue(const index: integer = 0): integer;
// procedure setordvalue(const value: longword); overload;
// procedure setordvalue(const index: integer; const value: longword); overload;
function getpointervalue(const index: integer = 0): pointer;
procedure setpointervalue(const value: pointer); overload;
procedure setpointervalue(const index: integer; const value: pointer); overload;
......@@ -2265,18 +2265,18 @@ end;
function tsetpropertyeditor.getvalue: msestring;
begin
{$ifdef FPC}
result:= '['+concatstrings(settostrings(tintegerset(cardinal(getordvalue)),
result:= '['+concatstrings(settostrings(tintegerset(longword(getordvalue)),
typedata^.comptype),',')+']';
{$else}
result:= '['+concatstrings(settostrings(tintegerset(cardinal(getordvalue)),
result:= '['+concatstrings(settostrings(tintegerset(longword(getordvalue)),
typedata^.comptype^),',')+']';
{$endif}
(*
{$ifdef FPC}
result:= '['+concatstrings(settostrings(tintegerset(cardinal(getordvalue)),
result:= '['+concatstrings(settostrings(tintegerset(longword(getordvalue)),
gettypedata(fprops[0].propinfo^.proptype)^.comptype),',')+']';
{$else}
result:= '['+concatstrings(settostrings(tintegerset(cardinal(getordvalue)),
result:= '['+concatstrings(settostrings(tintegerset(longword(getordvalue)),
gettypedata(fprops[0].propinfo^.proptype^)^.comptype^),',')+']';
{$endif}
*)
......@@ -2344,7 +2344,7 @@ end;
function tsetelementeditor.getvalue: msestring;
begin
if findex in tintegerset(cardinal(getordvalue)) then begin
if findex in tintegerset(longword(getordvalue)) then begin
result:= truename;
end
else begin
......@@ -2360,9 +2360,9 @@ begin
result:= inherited allequal;
if not result then begin
result:= true;
bo1:= findex in tintegerset(cardinal(getordvalue));
bo1:= findex in tintegerset(longword(getordvalue));
for int1:= 1 to high(fprops) do begin
if bo1 <> (findex in tintegerset(cardinal(getordvalue(int1)))) then begin
if bo1 <> (findex in tintegerset(longword(getordvalue(int1)))) then begin
result:= false;
break;
end;
......@@ -2481,7 +2481,8 @@ end;
function tcomponentpropertyeditor.allequal: boolean;
var
ca1: cardinal;
// ca1: cardinal;
po1: pointer;
int1: integer;
begin
result:= inherited allequal;
......@@ -2496,9 +2497,11 @@ begin
end;
end
else begin
ca1:= getordvalue;
// ca1:= getordvalue;
po1:= getpointervalue;
for int1:= 1 to high(fprops) do begin
if cardinal(getordvalue(int1)) <> ca1 then begin
// if cardinal(getordvalue(int1)) <> ca1 then begin
if getpointervalue(int1) <> po1 then begin
result:= false;
break;
end;
......@@ -3641,7 +3644,7 @@ function tcollectionitemeditor.name: msestring;
begin
result:= 'Item '+inttostr(findex);
end;
{
function tcollectionitemeditor.getordvalue(const index: integer = 0): integer;
begin
result:= integer(tcollection(fparenteditor.getpointervalue(index)).items[findex]);
......@@ -3657,7 +3660,7 @@ procedure tcollectionitemeditor.setordvalue(const index: integer;
begin
//dummy
end;
}
function tcollectionitemeditor.getpointervalue(const index: integer = 0): pointer;
begin
result:= tcollection(fparenteditor.getpointervalue(index)).items[findex];
......@@ -3914,7 +3917,7 @@ end;
procedure tbooleanpropertyeditor.setvalue(const value: msestring);
begin
setordvalue(cardinal(uppercase(trim(value)) = uppercase(truename)));
setordvalue(longword(uppercase(trim(value)) = uppercase(truename)));
end;
function tbooleanpropertyeditor.getvalue: msestring;
......
......@@ -3191,7 +3191,7 @@ begin
if accept then begin
if not fisnull then begin
if fmax < fmin then begin //unsigned
if (cardinal(int1) < cardinal(fmin)) or (cardinal(int1) > cardinal(fmax)) then begin
if (longword(int1) < longword(fmin)) or (longword(int1) > longword(fmax)) then begin
rangeerror(fmin,fmax,quiet);
accept:= false;
end;
......
......@@ -589,7 +589,7 @@ procedure tlistitem.setstate(const Value: nodestatesty);
var
stat1: nodestatesty;
begin
stat1:= nodestatesty(cardinal(fstate) xor cardinal(value));
stat1:= nodestatesty(longword(fstate) xor longword(value));
fstate := Value;
if stat1 * invalidatestates <> [] then begin
change;
......@@ -756,16 +756,16 @@ end;
procedure tlistitem.dostatread(const reader: tstatreader);
var
ca1: cardinal;
ca1: longword;
begin
reader.readrecord('a',[@tag,@ca1,@fimagenr,@fcaption],
[tag,cardinal(fstate),fimagenr,fcaption]);
fstate:= nodestatesty(replacebits(ca1,cardinal(fstate),cardinal(statstates)));
[tag,longword(fstate),fimagenr,fcaption]);
fstate:= nodestatesty(replacebits(ca1,longword(fstate),longword(statstates)));
end;
procedure tlistitem.dostatwrite(const writer: tstatwriter);
begin
writer.writerecord('a',[tag,cardinal(fstate),fimagenr,fcaption]);
writer.writerecord('a',[tag,longword(fstate),fimagenr,fcaption]);
end;
procedure tlistitem.dostatupdate(const filer: tstatfiler);
......
......@@ -505,15 +505,15 @@ var
begin
statebefore:= finfo.state;
foptions:= Value;
updatebit(cardinal(finfo.state),ord(shs_invisible),fbo_invisible in value);
updatebit(cardinal(finfo.state),ord(shs_disabled),fbo_disabled in value);
updatebit(cardinal(finfo.state),ord(shs_flat),fbo_flat in value);
updatebit(cardinal(finfo.state),ord(shs_noanimation),fbo_noanim in value);
updatebit(cardinal(finfo.state),ord(shs_nomouseanimation),
updatebit(longword(finfo.state),ord(shs_invisible),fbo_invisible in value);
updatebit(longword(finfo.state),ord(shs_disabled),fbo_disabled in value);
updatebit(longword(finfo.state),ord(shs_flat),fbo_flat in value);
updatebit(longword(finfo.state),ord(shs_noanimation),fbo_noanim in value);
updatebit(longword(finfo.state),ord(shs_nomouseanimation),
fbo_nomouseanim in value);
updatebit(cardinal(finfo.state),ord(shs_noclickanimation),
updatebit(longword(finfo.state),ord(shs_noclickanimation),
fbo_noclickanim in value);
updatebit(cardinal(finfo.state),ord(shs_nofocusanimation),
updatebit(longword(finfo.state),ord(shs_nofocusanimation),
fbo_nofocusanim in value);
if statebefore <> finfo.state then begin
changed;
......@@ -686,7 +686,7 @@ begin
// invisiblebefore:= ss_invisible in finfo.state;