├── Projecticons.dpr ├── Projecticons.dproj ├── Uniticons.dfm └── Uniticons.pas /Projecticons.dpr: -------------------------------------------------------------------------------- 1 | program Projecticons; 2 | 3 | uses 4 | Vcl.Forms, 5 | Uniticons in 'Uniticons.pas' {Formresize}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TFormresize, Formresize); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /Projecticons.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {7F576A7F-DB4A-4EE9-8480-67EDF01D63A9} 4 | 18.8 5 | VCL 6 | Projecticons.dpr 7 | True 8 | Debug 9 | Win32 10 | 1 11 | Application 12 | 13 | 14 | true 15 | 16 | 17 | true 18 | Base 19 | true 20 | 21 | 22 | true 23 | Base 24 | true 25 | 26 | 27 | true 28 | Base 29 | true 30 | 31 | 32 | true 33 | Cfg_1 34 | true 35 | true 36 | 37 | 38 | true 39 | Base 40 | true 41 | 42 | 43 | true 44 | Cfg_2 45 | true 46 | true 47 | 48 | 49 | .\$(Platform)\$(Config) 50 | .\$(Platform)\$(Config) 51 | false 52 | false 53 | false 54 | false 55 | false 56 | System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) 57 | $(BDS)\bin\delphi_PROJECTICON.ico 58 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png 59 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png 60 | Projecticons 61 | 62 | 63 | DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;FmxTeeUI926;vclactnband;vclFireDAC;emsclientfiredac;DataSnapFireDAC;svnui;tethering;FireDACADSDriver;TeeGL926;FMXTeeLanguage926;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;IcsFmxD103Run;IcsVclD103Run;emsedge;FireDACIBDriver;fmx;fmxdae;TeeMaker126;vclib;FireDACDBXDriver;dbexpress;IndyCore;FMXTeeImport926;vclx;dsnap;DataSnapCommon;emsclient;TMSMQTTPkgDEDXE12;FireDACCommon;FrameStandPackage_10_3;RESTBackendComponents;DataSnapConnectors;TeeImport926;VCLRESTComponents;soapserver;vclie;FMXTeeDB926;bindengine;DBXMySQLDriver;FireDACOracleDriver;CloudService;FireDACMySQLDriver;DBXFirebirdDriver;progressdialog;FireDACCommonODBC;FireDACCommonDriver;TeeUI926;DataSnapClient;TeeTree2D26Tee9;inet;bindcompdbx;IndyIPCommon;TeePro926;vcl;IndyIPServer;DBXSybaseASEDriver;TMSFMXCloudPackPkgDXE12;IndySystem;FireDACDb2Driver;FMXTee926;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;TeeLanguage926;TMSMQTTPkgDXE12;emshosting;TeeImage926;Tee926;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;FireDACTDataDriver;DBXOdbcDriver;soaprtl;DbxCommonDriver;TeeDB926;ibxpress;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;emsserverresource;DbxClientDriver;FireDACDSDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;FMXTeePro926;DBXInformixDriver;IndyIPClient;bindcompvcl;IcsCommonD103Run;dbxcds;VclSmp;TMSFMXPackPkgDXE12;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;FMXTree26;TeeWorld926;fmxase;$(DCC_UsePackage) 64 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 65 | Debug 66 | true 67 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= 68 | 1033 69 | $(BDS)\bin\default_app.manifest 70 | 71 | 72 | DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;DataSnapFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;IcsFmxD103Run;IcsVclD103Run;emsedge;FireDACIBDriver;fmx;fmxdae;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;emsclient;FireDACCommon;FrameStandPackage_10_3;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;CloudService;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;bindcompdbx;IndyIPCommon;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;FireDACTDataDriver;DBXOdbcDriver;soaprtl;DbxCommonDriver;ibxpress;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;emsserverresource;DbxClientDriver;FireDACDSDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;IcsCommonD103Run;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;fmxase;$(DCC_UsePackage) 73 | 74 | 75 | DEBUG;$(DCC_Define) 76 | true 77 | false 78 | true 79 | true 80 | true 81 | 82 | 83 | false 84 | true 85 | PerMonitorV2 86 | 87 | 88 | false 89 | RELEASE;$(DCC_Define) 90 | 0 91 | 0 92 | 93 | 94 | true 95 | PerMonitorV2 96 | 97 | 98 | 99 | MainSource 100 | 101 | 102 |
Formresize
103 | dfm 104 |
105 | 106 | Cfg_2 107 | Base 108 | 109 | 110 | Base 111 | 112 | 113 | Cfg_1 114 | Base 115 | 116 |
117 | 118 | Delphi.Personality.12 119 | Application 120 | 121 | 122 | 123 | Projecticons.dpr 124 | 125 | 126 | 127 | 128 | 129 | Projecticons.exe 130 | true 131 | 132 | 133 | 134 | 135 | 1 136 | 137 | 138 | Contents\MacOS 139 | 1 140 | 141 | 142 | 0 143 | 144 | 145 | 146 | 147 | classes 148 | 1 149 | 150 | 151 | classes 152 | 1 153 | 154 | 155 | 156 | 157 | res\xml 158 | 1 159 | 160 | 161 | res\xml 162 | 1 163 | 164 | 165 | 166 | 167 | library\lib\armeabi-v7a 168 | 1 169 | 170 | 171 | 172 | 173 | library\lib\armeabi 174 | 1 175 | 176 | 177 | library\lib\armeabi 178 | 1 179 | 180 | 181 | 182 | 183 | library\lib\armeabi-v7a 184 | 1 185 | 186 | 187 | 188 | 189 | library\lib\mips 190 | 1 191 | 192 | 193 | library\lib\mips 194 | 1 195 | 196 | 197 | 198 | 199 | library\lib\armeabi-v7a 200 | 1 201 | 202 | 203 | library\lib\arm64-v8a 204 | 1 205 | 206 | 207 | 208 | 209 | library\lib\armeabi-v7a 210 | 1 211 | 212 | 213 | 214 | 215 | res\drawable 216 | 1 217 | 218 | 219 | res\drawable 220 | 1 221 | 222 | 223 | 224 | 225 | res\values 226 | 1 227 | 228 | 229 | res\values 230 | 1 231 | 232 | 233 | 234 | 235 | res\values-v21 236 | 1 237 | 238 | 239 | res\values-v21 240 | 1 241 | 242 | 243 | 244 | 245 | res\values 246 | 1 247 | 248 | 249 | res\values 250 | 1 251 | 252 | 253 | 254 | 255 | res\drawable 256 | 1 257 | 258 | 259 | res\drawable 260 | 1 261 | 262 | 263 | 264 | 265 | res\drawable-xxhdpi 266 | 1 267 | 268 | 269 | res\drawable-xxhdpi 270 | 1 271 | 272 | 273 | 274 | 275 | res\drawable-ldpi 276 | 1 277 | 278 | 279 | res\drawable-ldpi 280 | 1 281 | 282 | 283 | 284 | 285 | res\drawable-mdpi 286 | 1 287 | 288 | 289 | res\drawable-mdpi 290 | 1 291 | 292 | 293 | 294 | 295 | res\drawable-hdpi 296 | 1 297 | 298 | 299 | res\drawable-hdpi 300 | 1 301 | 302 | 303 | 304 | 305 | res\drawable-xhdpi 306 | 1 307 | 308 | 309 | res\drawable-xhdpi 310 | 1 311 | 312 | 313 | 314 | 315 | res\drawable-mdpi 316 | 1 317 | 318 | 319 | res\drawable-mdpi 320 | 1 321 | 322 | 323 | 324 | 325 | res\drawable-hdpi 326 | 1 327 | 328 | 329 | res\drawable-hdpi 330 | 1 331 | 332 | 333 | 334 | 335 | res\drawable-xhdpi 336 | 1 337 | 338 | 339 | res\drawable-xhdpi 340 | 1 341 | 342 | 343 | 344 | 345 | res\drawable-xxhdpi 346 | 1 347 | 348 | 349 | res\drawable-xxhdpi 350 | 1 351 | 352 | 353 | 354 | 355 | res\drawable-xxxhdpi 356 | 1 357 | 358 | 359 | res\drawable-xxxhdpi 360 | 1 361 | 362 | 363 | 364 | 365 | res\drawable-small 366 | 1 367 | 368 | 369 | res\drawable-small 370 | 1 371 | 372 | 373 | 374 | 375 | res\drawable-normal 376 | 1 377 | 378 | 379 | res\drawable-normal 380 | 1 381 | 382 | 383 | 384 | 385 | res\drawable-large 386 | 1 387 | 388 | 389 | res\drawable-large 390 | 1 391 | 392 | 393 | 394 | 395 | res\drawable-xlarge 396 | 1 397 | 398 | 399 | res\drawable-xlarge 400 | 1 401 | 402 | 403 | 404 | 405 | res\values 406 | 1 407 | 408 | 409 | res\values 410 | 1 411 | 412 | 413 | 414 | 415 | 1 416 | 417 | 418 | Contents\MacOS 419 | 1 420 | 421 | 422 | 0 423 | 424 | 425 | 426 | 427 | Contents\MacOS 428 | 1 429 | .framework 430 | 431 | 432 | Contents\MacOS 433 | 1 434 | .framework 435 | 436 | 437 | 0 438 | 439 | 440 | 441 | 442 | 1 443 | .dylib 444 | 445 | 446 | 1 447 | .dylib 448 | 449 | 450 | 1 451 | .dylib 452 | 453 | 454 | Contents\MacOS 455 | 1 456 | .dylib 457 | 458 | 459 | Contents\MacOS 460 | 1 461 | .dylib 462 | 463 | 464 | 0 465 | .dll;.bpl 466 | 467 | 468 | 469 | 470 | 1 471 | .dylib 472 | 473 | 474 | 1 475 | .dylib 476 | 477 | 478 | 1 479 | .dylib 480 | 481 | 482 | Contents\MacOS 483 | 1 484 | .dylib 485 | 486 | 487 | Contents\MacOS 488 | 1 489 | .dylib 490 | 491 | 492 | 0 493 | .bpl 494 | 495 | 496 | 497 | 498 | 0 499 | 500 | 501 | 0 502 | 503 | 504 | 0 505 | 506 | 507 | 0 508 | 509 | 510 | 0 511 | 512 | 513 | Contents\Resources\StartUp\ 514 | 0 515 | 516 | 517 | Contents\Resources\StartUp\ 518 | 0 519 | 520 | 521 | 0 522 | 523 | 524 | 525 | 526 | 1 527 | 528 | 529 | 1 530 | 531 | 532 | 1 533 | 534 | 535 | 536 | 537 | 1 538 | 539 | 540 | 1 541 | 542 | 543 | 1 544 | 545 | 546 | 547 | 548 | 1 549 | 550 | 551 | 1 552 | 553 | 554 | 1 555 | 556 | 557 | 558 | 559 | 1 560 | 561 | 562 | 1 563 | 564 | 565 | 1 566 | 567 | 568 | 569 | 570 | 1 571 | 572 | 573 | 1 574 | 575 | 576 | 1 577 | 578 | 579 | 580 | 581 | 1 582 | 583 | 584 | 1 585 | 586 | 587 | 1 588 | 589 | 590 | 591 | 592 | 1 593 | 594 | 595 | 1 596 | 597 | 598 | 1 599 | 600 | 601 | 602 | 603 | 1 604 | 605 | 606 | 1 607 | 608 | 609 | 1 610 | 611 | 612 | 613 | 614 | 1 615 | 616 | 617 | 1 618 | 619 | 620 | 1 621 | 622 | 623 | 624 | 625 | 1 626 | 627 | 628 | 1 629 | 630 | 631 | 1 632 | 633 | 634 | 635 | 636 | 1 637 | 638 | 639 | 1 640 | 641 | 642 | 1 643 | 644 | 645 | 646 | 647 | 1 648 | 649 | 650 | 1 651 | 652 | 653 | 1 654 | 655 | 656 | 657 | 658 | 1 659 | 660 | 661 | 1 662 | 663 | 664 | 1 665 | 666 | 667 | 668 | 669 | 1 670 | 671 | 672 | 1 673 | 674 | 675 | 1 676 | 677 | 678 | 679 | 680 | 1 681 | 682 | 683 | 1 684 | 685 | 686 | 1 687 | 688 | 689 | 690 | 691 | 1 692 | 693 | 694 | 1 695 | 696 | 697 | 1 698 | 699 | 700 | 701 | 702 | 1 703 | 704 | 705 | 1 706 | 707 | 708 | 1 709 | 710 | 711 | 712 | 713 | 1 714 | 715 | 716 | 1 717 | 718 | 719 | 1 720 | 721 | 722 | 723 | 724 | 1 725 | 726 | 727 | 1 728 | 729 | 730 | 1 731 | 732 | 733 | 734 | 735 | 1 736 | 737 | 738 | 1 739 | 740 | 741 | 1 742 | 743 | 744 | 745 | 746 | 1 747 | 748 | 749 | 1 750 | 751 | 752 | 1 753 | 754 | 755 | 756 | 757 | 1 758 | 759 | 760 | 1 761 | 762 | 763 | 1 764 | 765 | 766 | 767 | 768 | 1 769 | 770 | 771 | 1 772 | 773 | 774 | 1 775 | 776 | 777 | 778 | 779 | 1 780 | 781 | 782 | 1 783 | 784 | 785 | 1 786 | 787 | 788 | 789 | 790 | 1 791 | 792 | 793 | 1 794 | 795 | 796 | 797 | 798 | ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 799 | 1 800 | 801 | 802 | ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 803 | 1 804 | 805 | 806 | 807 | 808 | 1 809 | 810 | 811 | 1 812 | 813 | 814 | 815 | 816 | ..\ 817 | 1 818 | 819 | 820 | ..\ 821 | 1 822 | 823 | 824 | 825 | 826 | 1 827 | 828 | 829 | 1 830 | 831 | 832 | 1 833 | 834 | 835 | 836 | 837 | 1 838 | 839 | 840 | 1 841 | 842 | 843 | 1 844 | 845 | 846 | 847 | 848 | ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 849 | 1 850 | 851 | 852 | 853 | 854 | ..\ 855 | 1 856 | 857 | 858 | ..\ 859 | 1 860 | 861 | 862 | 863 | 864 | Contents 865 | 1 866 | 867 | 868 | Contents 869 | 1 870 | 871 | 872 | 873 | 874 | Contents\Resources 875 | 1 876 | 877 | 878 | Contents\Resources 879 | 1 880 | 881 | 882 | 883 | 884 | library\lib\armeabi-v7a 885 | 1 886 | 887 | 888 | library\lib\arm64-v8a 889 | 1 890 | 891 | 892 | 1 893 | 894 | 895 | 1 896 | 897 | 898 | 1 899 | 900 | 901 | 1 902 | 903 | 904 | Contents\MacOS 905 | 1 906 | 907 | 908 | Contents\MacOS 909 | 1 910 | 911 | 912 | 0 913 | 914 | 915 | 916 | 917 | library\lib\armeabi-v7a 918 | 1 919 | 920 | 921 | 922 | 923 | 1 924 | 925 | 926 | 1 927 | 928 | 929 | 930 | 931 | Assets 932 | 1 933 | 934 | 935 | Assets 936 | 1 937 | 938 | 939 | 940 | 941 | Assets 942 | 1 943 | 944 | 945 | Assets 946 | 1 947 | 948 | 949 | 950 | 951 | 952 | 953 | 954 | 955 | 956 | 957 | 958 | 959 | 960 | 961 | True 962 | False 963 | 964 | 965 | 12 966 | 967 | 968 | 969 | 970 |
971 | -------------------------------------------------------------------------------- /Uniticons.dfm: -------------------------------------------------------------------------------- 1 | object Formresize: TFormresize 2 | Left = 0 3 | Top = 0 4 | Caption = 'Create Icons' 5 | ClientHeight = 507 6 | ClientWidth = 527 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Image1: TImage 17 | Left = 64 18 | Top = 136 19 | Width = 425 20 | Height = 337 21 | Stretch = True 22 | end 23 | object Image2: TImage 24 | Left = 495 25 | Top = 32 26 | Width = 2732 27 | Height = 2732 28 | Stretch = True 29 | Transparent = True 30 | Visible = False 31 | end 32 | object Label1: TLabel 33 | Left = 64 34 | Top = 82 35 | Width = 12 36 | Height = 13 37 | Caption = '---' 38 | end 39 | object Label2: TLabel 40 | Left = 64 41 | Top = 101 42 | Width = 12 43 | Height = 13 44 | Caption = '---' 45 | end 46 | object Button1: TButton 47 | Left = 128 48 | Top = 32 49 | Width = 75 50 | Height = 25 51 | Caption = 'Load' 52 | TabOrder = 0 53 | OnClick = Button1Click 54 | end 55 | object Button2: TButton 56 | Left = 238 57 | Top = 32 58 | Width = 75 59 | Height = 25 60 | Caption = 'Create' 61 | TabOrder = 1 62 | OnClick = Button2Click 63 | end 64 | object RadioGroup1: TRadioGroup 65 | Left = 334 66 | Top = 8 67 | Width = 139 68 | Height = 73 69 | Caption = 'Select' 70 | Items.Strings = ( 71 | 'Android' 72 | 'iOS') 73 | TabOrder = 2 74 | end 75 | object OpenDialog1: TOpenDialog 76 | Left = 24 77 | Top = 16 78 | end 79 | end 80 | -------------------------------------------------------------------------------- /Uniticons.pas: -------------------------------------------------------------------------------- 1 | unit Uniticons; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ExtDlgs,pngimage; 8 | 9 | type 10 | TFormresize = class(TForm) 11 | Button1: TButton; 12 | Image1: TImage; 13 | Button2: TButton; 14 | OpenDialog1: TOpenDialog; 15 | RadioGroup1: TRadioGroup; 16 | Image2: TImage; 17 | Label1: TLabel; 18 | Label2: TLabel; 19 | procedure Button2Click(Sender: TObject); 20 | procedure Button1Click(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | 26 | end; 27 | 28 | var 29 | Formresize: TFormresize; 30 | sizex,sizey:integer; 31 | pic_empty, pic_stamp, pic_result :TPicture; 32 | r:TRect; 33 | png : TPNGObject; 34 | location:string; 35 | 36 | implementation 37 | 38 | {$R *.dfm} 39 | procedure doit; 40 | begin 41 | r.Left := 0; 42 | r.Top := 0; 43 | r.Right := r.Left + sizex; 44 | r.Bottom := r.Top + sizey; 45 | 46 | pic_result := tpicture.Create; 47 | pic_result.Bitmap.Assign(pic_empty.Graphic); 48 | pic_result.Graphic.Transparent := True; 49 | pic_result.Bitmap.Canvas.StretchDraw(r,pic_stamp.Graphic); 50 | pic_result.Bitmap.Width :=sizex; 51 | pic_result.Bitmap.Height:=sizey; 52 | 53 | png := TPNGObject.Create; 54 | png.Assign(pic_result.Bitmap); 55 | if Formresize.RadioGroup1.ItemIndex=0 //android 56 | then 57 | begin 58 | png.SaveToFile(location+'androidlogo'+inttostr(sizex)+'x'+inttostr(sizey)+'.png'); 59 | Formresize.label1.caption:=location+'androidlogo'+inttostr(sizex)+'x'+inttostr(sizey)+'.png'; 60 | Formresize.label1.Update; 61 | end 62 | else 63 | begin 64 | png.SaveToFile(location+'iOSlogo'+inttostr(sizex)+'x'+inttostr(sizey)+'.png'); 65 | Formresize.label1.caption:=location+'iOSlogo'+inttostr(sizex)+'x'+inttostr(sizey)+'.png'; 66 | Formresize.label1.Update; 67 | 68 | end; 69 | 70 | 71 | 72 | png.Free; 73 | pic_result.Free; 74 | end; 75 | 76 | procedure TFormresize.Button1Click(Sender: TObject); 77 | 78 | begin 79 | if opendialog1.Execute then 80 | begin 81 | 82 | 83 | image1.Picture.LoadFromFile(opendialog1.filename); 84 | end; 85 | end; 86 | 87 | procedure TFormresize.Button2Click(Sender: TObject); 88 | var tempstr,tempstr2:string; 89 | i,ii:integer; 90 | 91 | begin 92 | label2.Caption:='---'; 93 | tempstr:=opendialog1.filename; 94 | for i:=1 to length(tempstr) 95 | do 96 | begin 97 | if copy(tempstr,i,1)='\' then 98 | ii:=i; 99 | end; 100 | location:=copy(tempstr,1,ii); 101 | 102 | if RadioGroup1.ItemIndex=0 //android 103 | then 104 | begin 105 | 106 | 107 | try 108 | pic_stamp := TPicture.Create; 109 | pic_stamp.assign(image1.picture); 110 | pic_stamp.Graphic.Transparent := True; 111 | 112 | pic_empty := TPicture.Create; 113 | 114 | pic_empty.assign(image2.Picture); 115 | 116 | pic_empty.Bitmap.Width :=2732; 117 | pic_empty.Bitmap.Height:=2732; 118 | 119 | 120 | sizex:=24; 121 | sizey:=24; 122 | doit; 123 | 124 | sizex:=36; 125 | sizey:=36; 126 | doit; 127 | 128 | sizex:=48; 129 | sizey:=48; 130 | doit; 131 | 132 | sizex:=72; 133 | sizey:=72; 134 | doit; 135 | 136 | sizex:=96; 137 | sizey:=96; 138 | doit; 139 | 140 | sizex:=144; 141 | sizey:=144; 142 | doit; 143 | 144 | sizex:=426; 145 | sizey:=320; 146 | doit; 147 | 148 | sizex:=470; 149 | sizey:=320; 150 | doit; 151 | 152 | sizex:=640; 153 | sizey:=480; 154 | doit; 155 | 156 | sizex:=960; 157 | sizey:=720; 158 | doit; 159 | 160 | 161 | finally 162 | pic_empty.Free; 163 | pic_stamp.free; 164 | end; 165 | 166 | 167 | 168 | 169 | 170 | 171 | end 172 | else 173 | begin 174 | 175 | try 176 | pic_stamp := TPicture.Create; 177 | pic_stamp.assign(image1.picture); 178 | pic_stamp.Graphic.Transparent := True; 179 | 180 | pic_empty := TPicture.Create; 181 | pic_empty.assign(image2.Picture); 182 | 183 | pic_empty.Bitmap.Width :=2732; 184 | pic_empty.Bitmap.Height:=2732; 185 | 186 | 187 | sizex:=72; 188 | sizey:=72; 189 | doit; 190 | 191 | sizex:=76; 192 | sizey:=76; 193 | doit; 194 | 195 | sizex:=144; 196 | sizey:=144; 197 | doit; 198 | 199 | sizex:=152; 200 | sizey:=152; 201 | doit; 202 | 203 | sizex:=167; 204 | sizey:=167; 205 | doit; 206 | 207 | sizex:=768; 208 | sizey:=1004; 209 | doit; 210 | 211 | sizex:=768; 212 | sizey:=1024; 213 | doit; 214 | 215 | sizex:=1024; 216 | sizey:=768; 217 | doit; 218 | 219 | sizex:=1024; 220 | sizey:=748; 221 | doit; 222 | 223 | sizex:=1536; 224 | sizey:=2048; 225 | doit; 226 | 227 | sizex:=2048; 228 | sizey:=1536; 229 | doit; 230 | 231 | sizex:=2048; 232 | sizey:=1496; 233 | doit; 234 | 235 | sizex:=1668; 236 | sizey:=2224; 237 | doit; 238 | 239 | sizex:=1668; 240 | sizey:=2388; 241 | doit; 242 | 243 | sizex:=2388; 244 | sizey:=1668; 245 | doit; 246 | 247 | sizex:=2048; 248 | sizey:=2732; 249 | doit; 250 | 251 | sizex:=2732; 252 | sizey:=2048; 253 | doit; 254 | 255 | sizex:=40; 256 | sizey:=40; 257 | doit; 258 | 259 | sizex:=50; 260 | sizey:=50; 261 | doit; 262 | 263 | sizex:=80; 264 | sizey:=80; 265 | doit; 266 | 267 | sizex:=100; 268 | sizey:=100; 269 | doit; 270 | 271 | sizex:=29; 272 | sizey:=29; 273 | doit; 274 | 275 | sizex:=58; 276 | sizey:=58; 277 | doit; 278 | 279 | sizex:=57; 280 | sizey:=57; 281 | doit; 282 | 283 | sizex:=60; 284 | sizey:=60; 285 | doit; 286 | 287 | sizex:=87; 288 | sizey:=87; 289 | doit; 290 | 291 | sizex:=114; 292 | sizey:=114; 293 | doit; 294 | 295 | sizex:=120; 296 | sizey:=120; 297 | doit; 298 | 299 | sizex:=180; 300 | sizey:=180; 301 | doit; 302 | 303 | sizex:=320; 304 | sizey:=480; 305 | doit; 306 | 307 | sizex:=640; 308 | sizey:=960; 309 | doit; 310 | 311 | sizex:=640; 312 | sizey:=1136; 313 | doit; 314 | 315 | sizex:=1136; 316 | sizey:=640; 317 | doit; 318 | 319 | sizex:=750; 320 | sizey:=1334; 321 | doit; 322 | 323 | sizex:=1334; 324 | sizey:=750; 325 | doit; 326 | 327 | sizex:=828; 328 | sizey:=1792; 329 | doit; 330 | 331 | sizex:=1792; 332 | sizey:=828; 333 | doit; 334 | 335 | sizex:=1125; 336 | sizey:=2436; 337 | doit; 338 | 339 | sizex:=2436; 340 | sizey:=1125; 341 | doit; 342 | 343 | sizex:=1242; 344 | sizey:=2208; 345 | doit; 346 | 347 | sizex:=2208; 348 | sizey:=1242; 349 | doit; 350 | 351 | sizex:=1242; 352 | sizey:=2688; 353 | doit; 354 | 355 | sizex:=2688; 356 | sizey:=1242; 357 | doit; 358 | 359 | 360 | sizex:=1536; 361 | sizey:=2008; 362 | doit; 363 | 364 | sizex:=2224; 365 | sizey:=1668; 366 | doit; 367 | 368 | sizex:=29; 369 | sizey:=29; 370 | doit; 371 | 372 | sizex:=40; 373 | sizey:=40; 374 | doit; 375 | 376 | sizex:=58; 377 | sizey:=58; 378 | doit; 379 | 380 | sizex:=80; 381 | sizey:=80; 382 | doit; 383 | 384 | sizex:=120; 385 | sizey:=120; 386 | doit; 387 | 388 | finally 389 | pic_empty.Free; 390 | pic_stamp.free; 391 | end; 392 | 393 | 394 | end; 395 | label2.Caption:='complete!'; 396 | end; 397 | 398 | end. 399 | --------------------------------------------------------------------------------