- Timestamp:
- Apr 9, 2022, 12:13:45 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.pas
r129 r131 814 814 FContact := nil; 815 815 FormProperties := TFormProperties.Create(nil); 816 FPhoto := TContactImage.Create ;816 FPhoto := TContactImage.Create(nil); 817 817 FPhoto.FieldIndex := cfPhoto; 818 818 FPhoto.OnChange := PhotoChange; -
trunk/Forms/UFormImage.pas
r127 r131 60 60 Core.ThemeManager1.UseTheme(Self); 61 61 62 Image := TContactImage.Create ;62 Image := TContactImage.Create(nil); 63 63 Image.OnChange := ImageChange; 64 64 end; -
trunk/Packages/VCard/UContactImage.pas
r130 r131 11 11 { TContactImage } 12 12 13 TContactImage = class 13 TContactImage = class(TComponent) 14 14 private 15 15 FOnChange: TNotifyEvent; … … 36 36 procedure LoadFromFile(FileName: string); 37 37 procedure SaveToFile(FileName: string); 38 procedure Assign(Source: T ContactImage);39 constructor Create ;38 procedure Assign(Source: TPersistent); override; 39 constructor Create(AOwner: TComponent); override; 40 40 destructor Destroy; override; 41 published 41 42 property Url: string read FUrl write SetUrl; 42 43 property Used: Boolean read FUsed write SetUsed; … … 44 45 end; 45 46 47 procedure Register; 48 46 49 47 50 implementation 48 51 52 procedure Register; 53 begin 54 RegisterComponents('VCard', [TVCard]); 55 end; 49 56 50 57 { TContactImage } … … 349 356 end; 350 357 351 procedure TContactImage.Assign(Source: TContactImage); 352 begin 353 Bitmap.Assign(Source.Bitmap); 354 Url := Source.Url; 355 Loaded := Source.Loaded; 356 Modified := Source.Modified; 357 Format := Source.Format; 358 FieldIndex := Source.FieldIndex; 359 Contact := Source.Contact; 360 Used := Source.Used; 361 end; 362 363 constructor TContactImage.Create; 364 begin 358 procedure TContactImage.Assign(Source: TPersistent); 359 var 360 SourceImage: TContactImage; 361 begin 362 inherited; 363 if Source is TContactImage then begin 364 SourceImage := Source as TContactImage; 365 Bitmap.Assign(SourceImage.Bitmap); 366 Url := SourceImage.Url; 367 Loaded := SourceImage.Loaded; 368 Modified := SourceImage.Modified; 369 Format := SourceImage.Format; 370 FieldIndex := SourceImage.FieldIndex; 371 Contact := SourceImage.Contact; 372 Used := SourceImage.Used; 373 end; 374 end; 375 376 constructor TContactImage.Create(AOwner: TComponent); 377 begin 378 inherited; 365 379 Bitmap := TBitmap.Create; 366 380 end; … … 372 386 end; 373 387 374 375 388 end. 376 389 -
trunk/Packages/VCard/UVCard.pas
r130 r131 360 360 procedure Register; 361 361 begin 362 RegisterComponents(' Common', [TVCard]);362 RegisterComponents('VCard', [TVCard]); 363 363 end; 364 364 -
trunk/Packages/VCard/VCard.lpk
r130 r131 8 8 <Version Value="11"/> 9 9 <SearchPaths> 10 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode) /"/>10 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> 11 11 </SearchPaths> 12 12 <Parsing> … … 47 47 <UnitName Value="UQuotedPrintable"/> 48 48 </Item> 49 <Item> 50 <Filename Value="UContactImage.pas"/> 51 <HasRegisterProc Value="True"/> 52 <UnitName Value="UContactImage"/> 53 </Item> 49 54 </Files> 50 55 <i18n> -
trunk/vCardStudio.lpi
r130 r131 75 75 </Item2> 76 76 <SharedMatrixOptions Count="2"> 77 <Item1 ID="186308868222" Targets="Common,SynEditEx " Modes="Debug" Value="-g -gl -gh -CirotR -O1"/>78 <Item2 ID="035947176865" Targets="Common,SynEditEx " Modes="Release" Value="-CX -XX -O3"/>77 <Item1 ID="186308868222" Targets="Common,SynEditEx,VCard" Modes="Debug" Value="-g -gl -gh -CirotR -O1"/> 78 <Item2 ID="035947176865" Targets="Common,SynEditEx,VCard" Modes="Release" Value="-CX -XX -O3"/> 79 79 </SharedMatrixOptions> 80 80 </BuildModes> … … 123 123 </Item7> 124 124 </RequiredPackages> 125 <Units Count="2 5">125 <Units Count="24"> 126 126 <Unit0> 127 127 <Filename Value="vCardStudio.lpr"/> … … 235 235 </Unit16> 236 236 <Unit17> 237 <Filename Value="UContactImage.pas"/> 238 <IsPartOfProject Value="True"/> 237 <Filename Value="Forms\UFormNameDetails.pas"/> 238 <IsPartOfProject Value="True"/> 239 <ComponentName Value="FormNameDetails"/> 240 <HasResources Value="True"/> 241 <ResourceBaseClass Value="Form"/> 239 242 </Unit17> 240 243 <Unit18> 241 <Filename Value="Forms\UForm NameDetails.pas"/>242 <IsPartOfProject Value="True"/> 243 <ComponentName Value="Form NameDetails"/>244 <Filename Value="Forms\UFormSource.pas"/> 245 <IsPartOfProject Value="True"/> 246 <ComponentName Value="FormSource"/> 244 247 <HasResources Value="True"/> 245 248 <ResourceBaseClass Value="Form"/> 246 249 </Unit18> 247 250 <Unit19> 248 <Filename Value="Forms\UFormSource.pas"/> 249 <IsPartOfProject Value="True"/> 250 <ComponentName Value="FormSource"/> 251 <HasResources Value="True"/> 252 <ResourceBaseClass Value="Form"/> 251 <Filename Value="UVCardHighlighter.pas"/> 252 <IsPartOfProject Value="True"/> 253 253 </Unit19> 254 254 <Unit20> 255 <Filename Value="UVCardHighlighter.pas"/> 256 <IsPartOfProject Value="True"/> 255 <Filename Value="Forms\UFormCompare.pas"/> 256 <IsPartOfProject Value="True"/> 257 <ComponentName Value="FormCompare"/> 258 <HasResources Value="True"/> 259 <ResourceBaseClass Value="Form"/> 257 260 </Unit20> 258 261 <Unit21> 259 <Filename Value="Forms\UFormCompare.pas"/> 260 <IsPartOfProject Value="True"/> 261 <ComponentName Value="FormCompare"/> 262 <HasResources Value="True"/> 263 <ResourceBaseClass Value="Form"/> 262 <Filename Value="Diff.pas"/> 263 <IsPartOfProject Value="True"/> 264 264 </Unit21> 265 265 <Unit22> 266 <Filename Value=" Diff.pas"/>266 <Filename Value="UTestCases.pas"/> 267 267 <IsPartOfProject Value="True"/> 268 268 </Unit22> 269 269 <Unit23> 270 <Filename Value="U TestCases.pas"/>270 <Filename Value="UVCardFile.pas"/> 271 271 <IsPartOfProject Value="True"/> 272 272 </Unit23> 273 <Unit24>274 <Filename Value="UVCardFile.pas"/>275 <IsPartOfProject Value="True"/>276 </Unit24>277 273 </Units> 278 274 </ProjectOptions>
Note:
See TracChangeset
for help on using the changeset viewer.