paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed set method in OI

Browse Source 
git-svn-id: trunk@3832 -
This commit is contained in:
mattias 2003-02-04 14:36:19 +00:00
parent aa186e7665
commit c8b907375a
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/propedits.pp
View File

@ -1709,7 +1709,7 @@ begin
for I:=0 to FPropCount-1 do
with FPropList^[I] do begin
AMethod:=GetMethodProp(Instance,PropInfo);
Changed:=Changed or CompareMem(@AMethod,@NewValue,SizeOf(TMethod));
Changed:=Changed or not CompareMem(@AMethod,@NewValue,SizeOf(TMethod));
end;
if Changed then begin
for I:=0 to FPropCount-1 do

13
lcl/include/bitmap.inc
View File

@ -165,22 +165,22 @@ end;
procedure TBitMap.LoadFromResourceName(Instance: THandle; const ResName: String);
begin
writeln('ToDo: TBitMap.LoadFromResourceName');
end;
procedure TBitMap.LoadFromResourceID(Instance: THandle; ResID: Integer);
begin
writeln('ToDo: TBitMap.LoadFromResourceID');
end;
procedure TBitmap.LoadFromClipboardFormat(FormatID: TClipboardFormat);
begin
// ToDo
writeln('ToDo: TBitMap.LoadFromClipboardFormat');
end;
procedure TBitmap.SaveToClipboardFormat(FormatID: TClipboardFormat);
begin
// ToDo
writeln('ToDo: TBitmap.SaveToClipboardFormat');
end;
Procedure TBitmap.LoadFromXPMFile(const Filename : String);
@ -261,7 +261,7 @@ begin
if BitsPerPixel<>24 then begin
ColorsUsed:=BmpInfo^.bmiHeader.biClrUsed;
if ColorsUsed=0 then ColorsUsed:=1 shl ColorsUsed;
// s:=SizeOf(TLogPalette)+(CoorsUsed-1)*SizeOf(TPaletteEntry);
// s:=SizeOf(TLogPalette)+(ColorsUsed-1)*SizeOf(TPaletteEntry);
end;
// Palette is fake now. Then it'll be better!
// EInOutError.Create('Only truecolor is supported yet.');
@ -528,6 +528,9 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2003/02/04 14:36:19 mattias
fixed set method in OI
Revision 1.25 2002/12/16 12:12:50 mattias
fixes for fpc 1.1