paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

added variants IFDEF

Browse Source 
git-svn-id: trunk@6344 -
This commit is contained in:
mattias 2004-12-06 23:26:31 +00:00
parent 5bcbdd8fbe
commit 40bafd24f2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/customformeditor.pp
View File

@ -39,6 +39,7 @@ uses
MemCheck,
{$ENDIF}
// LCL+FCL
{$IFNDEF Ver1_0}{$IFNDEF VER1_9_4}Variants,{$ENDIF}{$ENDIF}
Classes, SysUtils, TypInfo, Math, LCLProc, Graphics, Controls, Forms, Menus,
Dialogs,
// components
@ -354,11 +355,13 @@ Begin
SetFloatProp(FComponent,PRI,Extended(Value));
Result := True;
end;
{$IFDEF HasVariant}
tkVariant : Begin
//Writeln('Variant...');
SetVariantProp(FComponent,PRI,Variant(Value));
Result := True;
end;
{$ENDIF}
tkMethod : Begin
//Writeln('Method...');
SetMethodProp(FComponent,PRI,TMethod(value));