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

MWE:

Browse Source 
- Removed some ^M (files were mixed unix/dos)
  * Hacked a workaround for:
     Error: Method (variable) and Procedure (variable) are not compatible.

git-svn-id: trunk@569 -
This commit is contained in:
lazarus 2002-01-02 22:18:25 +00:00
parent f80c09271e
commit 87f185f09c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/propedits.pp
View File

@ -1248,7 +1248,7 @@ end;
procedure TPropertyEditor.Edit;
type
TGetStrFunc=function(const StrValue:ansistring):Integer of object;
TGetStrFunc = function(const StrValue:ansistring):Integer of object;
var
I:Integer;
Values:TStringList;
@ -1258,8 +1258,8 @@ begin
Values:=TStringList.Create;
Values.Sorted:=paSortList in GetAttributes;
try
AddValue:=@Values.Add;
GetValues(TGetStringProc(AddValue));
AddValue := @Values.Add;
GetValues(TGetStrProc((@AddValue)^));
if Values.Count > 0 then begin
I:=Values.IndexOf(FirstValue)+1;
if I=Values.Count then I:=0;