paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +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, MemCheck,
{$ENDIF} {$ENDIF}
// LCL+FCL // LCL+FCL
{$IFNDEF Ver1_0}{$IFNDEF VER1_9_4}Variants,{$ENDIF}{$ENDIF}
Classes, SysUtils, TypInfo, Math, LCLProc, Graphics, Controls, Forms, Menus, Classes, SysUtils, TypInfo, Math, LCLProc, Graphics, Controls, Forms, Menus,
Dialogs, Dialogs,
// components // components
@ -354,11 +355,13 @@ Begin
SetFloatProp(FComponent,PRI,Extended(Value)); SetFloatProp(FComponent,PRI,Extended(Value));
Result := True; Result := True;
end; end;
{$IFDEF HasVariant}
tkVariant : Begin tkVariant : Begin
//Writeln('Variant...'); //Writeln('Variant...');
SetVariantProp(FComponent,PRI,Variant(Value)); SetVariantProp(FComponent,PRI,Variant(Value));
Result := True; Result := True;
end; end;
{$ENDIF}
tkMethod : Begin tkMethod : Begin
//Writeln('Method...'); //Writeln('Method...');
SetMethodProp(FComponent,PRI,TMethod(value)); SetMethodProp(FComponent,PRI,TMethod(value));