Changeset 54 for trunk/Forms
- Timestamp:
- Dec 8, 2021, 2:29:29 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 4 edited
-
UFormContact.lfm (modified) (32 diffs)
-
UFormContact.pas (modified) (4 diffs)
-
UFormProperties.lfm (modified) (1 diff)
-
UFormProperties.pas (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r52 r54 18 18 Top = 8 19 19 Width = 939 20 ActivePage = TabSheet All20 ActivePage = TabSheetGeneral 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 423 TabIndex = 0 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet … … 32 32 object Label1: TLabel 33 33 Left = 240 34 Height = 2 534 Height = 24 35 35 Top = 80 36 Width = 8636 Width = 94 37 37 Caption = 'First name:' 38 38 ParentColor = False … … 41 41 object EditFirstName: TEdit 42 42 Left = 360 43 Height = 3343 Height = 42 44 44 Top = 72 45 45 Width = 155 … … 49 49 object Label2: TLabel 50 50 Left = 16 51 Height = 2 551 Height = 24 52 52 Top = 250 53 Width = 5953 Width = 63 54 54 Caption = 'Mobile:' 55 55 ParentColor = False … … 58 58 object EditMobile: TEdit 59 59 Left = 144 60 Height = 3360 Height = 42 61 61 Top = 240 62 62 Width = 254 … … 66 66 object EditPhone: TEdit 67 67 Left = 144 68 Height = 3368 Height = 42 69 69 Top = 286 70 70 Width = 254 … … 74 74 object Label3: TLabel 75 75 Left = 16 76 Height = 2 576 Height = 24 77 77 Top = 290 78 Width = 5 478 Width = 59 79 79 Caption = 'Phone:' 80 80 ParentColor = False … … 83 83 object EditEmail: TEdit 84 84 Left = 144 85 Height = 3385 Height = 42 86 86 Top = 328 87 87 Width = 254 … … 91 91 object Label4: TLabel 92 92 Left = 16 93 Height = 2 593 Height = 24 94 94 Top = 336 95 Width = 5 395 Width = 58 96 96 Caption = 'E-mail:' 97 97 ParentColor = False … … 100 100 object EditLastName: TEdit 101 101 Left = 671 102 Height = 33102 Height = 42 103 103 Top = 72 104 104 Width = 155 … … 108 108 object Label5: TLabel 109 109 Left = 536 110 Height = 2 5110 Height = 24 111 111 Top = 80 112 Width = 8 0112 Width = 87 113 113 Caption = 'Last name' 114 114 ParentColor = False … … 117 117 object EditBirthday: TEdit 118 118 Left = 144 119 Height = 33119 Height = 42 120 120 Top = 424 121 121 Width = 254 … … 125 125 object Label22: TLabel 126 126 Left = 16 127 Height = 2 5127 Height = 24 128 128 Top = 432 129 Width = 69129 Width = 76 130 130 Caption = 'Birthday:' 131 131 ParentColor = False … … 138 138 Width = 207 139 139 Center = True 140 OnClick = APhotoLoadExecute 140 141 PopupMenu = PopupMenuPhoto 141 142 Proportional = True … … 144 145 object Label24: TLabel 145 146 Left = 240 146 Height = 2 5147 Height = 24 147 148 Top = 32 148 Width = 8 0149 Width = 88 149 150 Caption = 'Full name:' 150 151 ParentColor = False … … 153 154 object EditFullName: TEdit 154 155 Left = 360 155 Height = 33156 Height = 42 156 157 Top = 24 157 158 Width = 467 … … 161 162 object Label25: TLabel 162 163 Left = 536 163 Height = 2 5164 Height = 24 164 165 Top = 128 165 Width = 1 08166 Width = 116 166 167 Caption = 'Middle name:' 167 168 ParentColor = False … … 170 171 object EditMiddleName: TEdit 171 172 Left = 671 172 Height = 33173 Height = 42 173 174 Top = 120 174 175 Width = 155 … … 178 179 object Label26: TLabel 179 180 Left = 240 180 Height = 2 5181 Height = 24 181 182 Top = 176 182 Width = 93183 Width = 101 183 184 Caption = 'Title before:' 184 185 ParentColor = False … … 187 188 object EditTitleBefore: TEdit 188 189 Left = 360 189 Height = 33190 Height = 42 190 191 Top = 168 191 192 Width = 155 … … 195 196 object Label27: TLabel 196 197 Left = 536 197 Height = 2 5198 Height = 24 198 199 Top = 176 199 Width = 77200 Width = 85 200 201 Caption = 'Title after:' 201 202 ParentColor = False … … 204 205 object EditTitleAfter: TEdit 205 206 Left = 671 206 Height = 33207 Height = 42 207 208 Top = 168 208 209 Width = 155 … … 212 213 object Label44: TLabel 213 214 Left = 240 214 Height = 2 5215 Height = 24 215 216 Top = 128 216 Width = 82217 Width = 91 217 218 Caption = 'Nickname:' 218 219 ParentColor = False … … 221 222 object EditNickName: TEdit 222 223 Left = 360 223 Height = 33224 Height = 42 224 225 Top = 120 225 226 Width = 155 … … 229 230 object Label45: TLabel 230 231 Left = 432 231 Height = 2 5232 Height = 24 232 233 Top = 432 233 Width = 96234 Width = 105 234 235 Caption = 'Anniversary:' 235 236 ParentColor = False … … 238 239 object EditAniversary: TEdit 239 240 Left = 575 240 Height = 33241 Height = 42 241 242 Top = 424 242 243 Width = 254 … … 246 247 object Label9: TLabel 247 248 Left = 432 248 Height = 2 5249 Height = 24 249 250 Top = 248 250 Width = 29251 Width = 34 251 252 Caption = 'Fax:' 252 253 ParentColor = False … … 255 256 object EditFax: TEdit 256 257 Left = 575 257 Height = 33258 Height = 42 258 259 Top = 240 259 260 Width = 254 … … 263 264 object EditPager: TEdit 264 265 Left = 575 265 Height = 33266 Height = 42 266 267 Top = 286 267 268 Width = 254 … … 271 272 object Label10: TLabel 272 273 Left = 432 273 Height = 2 5274 Height = 24 274 275 Top = 290 275 Width = 48276 Width = 54 276 277 Caption = 'Pager:' 277 278 ParentColor = False … … 280 281 object Label46: TLabel 281 282 Left = 16 282 Height = 2 5283 Height = 24 283 284 Top = 384 284 Width = 1 07285 Width = 114 285 286 Caption = 'Web address:' 286 287 ParentColor = False … … 289 290 object EditWeb: TEdit 290 291 Left = 144 291 Height = 33292 Height = 42 292 293 Top = 376 293 294 Width = 683 -
trunk/Forms/UFormContact.pas
r50 r54 206 206 Stream: TMemoryStream; 207 207 JpegImage: TJpegImage; 208 PngImage: TPortableNetworkGraphic; 208 209 begin 209 210 Contact.Fields[cfFullName] := EditFullName.Text; … … 247 248 JpegImage.Free; 248 249 end; 250 end else 251 if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin 252 PngImage := TPortableNetworkGraphic.Create; 253 try 254 try 255 PngImage.SetSize(ImagePhoto.Picture.Bitmap.Width, ImagePhoto.Picture.Bitmap.Height); 256 PngImage.Canvas.Draw(0, 0, ImagePhoto.Picture.Bitmap); 257 PngImage.SaveToStream(Stream); 258 except 259 end; 260 finally 261 PngImage.Free; 262 end; 249 263 end else begin 250 264 try … … 274 288 Photo: string; 275 289 JpegImage: TJpegImage; 290 PngImage: TPortableNetworkGraphic; 276 291 Stream: TMemoryStream; 277 292 PhotoProperty: TContactProperty; … … 319 334 JpegImage.Free; 320 335 end; 336 end else 337 if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin 338 PngImage := TPortableNetworkGraphic.Create; 339 try 340 try 341 PngImage.LoadFromStream(Stream); 342 with ImagePhoto.Picture.Bitmap do begin 343 PixelFormat := pf24bit; 344 SetSize(PngImage.Width, PngImage.Height); 345 Canvas.Draw(0, 0, PngImage); 346 end; 347 ProfilePhotoActive := True; 348 except 349 ProfilePhotoActive := False; 350 end; 351 finally 352 PngImage.Free; 353 end; 321 354 end else begin 322 355 try -
trunk/Forms/UFormProperties.lfm
r52 r54 65 65 end 66 66 object ToolButton3: TToolButton 67 Left = 106 68 Top = 2 69 Action = ARemove 70 end 71 object ToolButton4: TToolButton 67 72 Left = 71 68 73 Top = 2 69 Action = A Remove74 Action = AClone 70 75 end 71 76 end -
trunk/Forms/UFormProperties.pas
r51 r54 34 34 ToolButton2: TToolButton; 35 35 ToolButton3: TToolButton; 36 ToolButton4: TToolButton; 36 37 procedure AAddExecute(Sender: TObject); 37 38 procedure ACloneExecute(Sender: TObject);
Note:
See TracChangeset
for help on using the changeset viewer.
