paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix wrong cursor pos for 64 bit systems, hopefully fixes bug report 23957

Browse Source 
git-svn-id: trunk@23704 -
This commit is contained in:
pierre 2013-03-07 13:55:55 +00:00
parent 2cfcf32725
commit eeae77bfc2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/wcedit.pas
View File

@ -774,7 +774,7 @@ procedure TIndicator.Draw;
var var
Color: Byte; Color: Byte;
Frame: Char; Frame: Char;
L: array[0..1] of Longint; L: array[0..1] of PtrInt;
S: String[15]; S: String[15];
B: TDrawBuffer; B: TDrawBuffer;
begin begin

4
ide/wviews.pas
View File

@ -250,7 +250,7 @@ function FormatStrF(const Format: string; var Params): string;
function FormatStrStr(const Format, Param: string): string; function FormatStrStr(const Format, Param: string): string;
function FormatStrStr2(const Format, Param1,Param2: string): string; function FormatStrStr2(const Format, Param1,Param2: string): string;
function FormatStrStr3(const Format, Param1,Param2,Param3: string): string; function FormatStrStr3(const Format, Param1,Param2,Param3: string): string;
function FormatStrInt(const Format: string; L: longint): string; function FormatStrInt(const Format: string; L: PtrInt): string;
const UserButtonName : array[1..4] of string[40] = ('User~1~','User~2~','User~3~','User~4~'); const UserButtonName : array[1..4] of string[40] = ('User~1~','User~2~','User~3~','User~4~');
@ -2400,7 +2400,7 @@ begin
FormatStrStr3:=S; FormatStrStr3:=S;
end; end;
function FormatStrInt(const Format: string; L: longint): string; function FormatStrInt(const Format: string; L: PtrInt): string;
var S: string; var S: string;
begin begin
FormatStr(S,Format,L); FormatStr(S,Format,L);