paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 10:20:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced output

Browse Source 
git-svn-id: trunk@5148 -
This commit is contained in:
mattias 2004-02-02 21:31:08 +00:00
parent 2960e18919
commit 540ac3e8a3
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/propedits.pp
View File

@ -287,7 +287,6 @@ type
function GetPropInfo:PPropInfo;
function GetFloatValue:Extended;
function GetFloatValueAt(Index:Integer):Extended;
function GetDefaultFloatValue:Extended;
function GetInt64Value:Int64;
function GetInt64ValueAt(Index:Integer):Int64;
function GetMethodValue:TMethod;
@ -2021,11 +2020,6 @@ begin
with FPropList^[Index] do Result:=GetFloatProp(Instance,PropInfo);
end;
function TPropertyEditor.GetDefaultFloatValue: Extended;
begin
end;
function TPropertyEditor.GetMethodValue:TMethod;
begin
Result:=GetMethodValueAt(0);

5
lcl/include/imglist.inc
View File

@ -622,7 +622,7 @@ var
CheckInt1, CheckInt2: Integer;
CheckByte1, CheckByte2: Byte;
StreamPos: TStreamSeekType;
NewImage, NewMask: TBitMap;
NewImage: TBitMap;
i : integer;
Sign,NewCount : Word;
CurSize: integer;
@ -1066,6 +1066,9 @@ end;
{
$Log$
Revision 1.22 2004/02/02 21:31:08 mattias
reduced output
Revision 1.21 2004/02/02 19:13:31 mattias
started reading TImageList in Delphi format