#511
|
||||
|
||||
Quote:
Code:
{ ResIconSize } const RIS_SMALL = $0001; // 16 x 16 RIS_MEDIUM = $0002; // 32 x 32 RIS_LARGE = $0003; // 48 x 48 RIS_EXTRA_LARGE = $0004; // 64 x 64 RIS_EXTRA_EXTRA_LARGE = $0005; // 128 x 128 RIS_JUMBO = $0006; // 256 x 256 function wGetSysDefaultIconsFromResLib(const AModule: WideString; AIndex, RISIcoSize: Cardinal; const Buffer: PAnsiChar; var Count: Cardinal): Integer; function wGetSysDefaultIconsFromResLib2(const AModule, AOutFile: WideString; AIndex, RISIcoSize: Cardinal): Boolean; function wGetSysDefaultIconsSizeFromResLib(const AModule: WideString; AIndex, RISIcoSize: Cardinal): Integer; Code:
{ GetSysDefaultIcons } AModule := 'C:\Windows\SystemResources\imageres.dll.mun'; AIndex[1] := 31; // C-Drive AIndex[2] := 27; // OtherDrvs AIndex[3] := 103; // Music AIndex[4] := 105; // Desktop AIndex[5] := 175; // Donwloads AIndex[6] := 107; // Documents P := 0; Q := 0; for i := 1 to C_RANGE do begin if i = (C_RANGE div 2) + 1 {i =4} then begin P := 0; Q := 160; end; AImage[i].FCreate(FMXForm.Handle); AImage[i].SetBounds(NSX(P + 130), NSY(Q + 80), NSX(100), NSY(100)); #ifdef AMethod1 /* Extract SysDefaultIcons into a Buffer, then load them into AImage[i] */ ImgSize[i] := wGetSysDefaultIconsSizeFromResLib(AModule, AIndex[i], RIS_EXTRA_EXTRA_LARGE); if ImgSize[i] <> -1 then begin SetLength(Buffer[i], ImgSize[i]); if wGetSysDefaultIconsFromResLib(AModule, AIndex[i], RIS_EXTRA_EXTRA_LARGE, Buffer[i], Count[i]) <> -1 then AImage[i].LoadPictureFromBuffer(Buffer[i], Count[i], wmTileStretch); end; #else /* Extract SysDefaultIcons into the TmpDir, then load them into AImage[i] */ ImgFile[i] := ExpandConstant('{tmp}\') + IntToStr(i) + '.png'; if wGetSysDefaultIconsFromResLib2(AModule, ImgFile[i], AIndex[i], RIS_EXTRA_EXTRA_LARGE) then begin AImage[i].LoadPicture(ImgFile[i], wmTileStretch); end; #endif P := P + 150; end; { GetSysDefaultIcons } . Last edited by BLACKFIRE69; 14-07-2024 at 03:07. |
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
Sponsored Links |
#512
|
||||
|
||||
All Ok!
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:06. |
#513
|
||||
|
||||
I have a question. Five buttons, four of which are "Align Top" and the fifth "Align Bottom". Why does the fourth button come in second place?
__________________
https://t.me/FMXInno |
#514
|
||||
|
||||
Quote:
Delphi/FMX: How to add a dynamically created top-aligned component . Last edited by BLACKFIRE69; 14-07-2024 at 03:07. |
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
#515
|
||||
|
||||
Quote:
Code:
for i:= 1 to 4 do begin PanelBtn[i].FCreate(LeftPanel.Handle); PanelBtn[i].Align(Top); PanelBtn[i].Height(NSY(56)); PanelBtn[i].Width(NSX(58)); PanelBtn[i].FillColor(ALNull); if i > 1 then PanelBtn[i].Top(PanelBtn[i].GetHeight * i); end;
__________________
https://t.me/FMXInno |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (14-09-2023) |
#516
|
|||
|
|||
Hello brother, please give the complete script, where should I download it, thanks
|
#517
|
||||
|
||||
animation
@BLACKFIRE69 How to avoid animation jerks when pointing the pointer at different objects with the same task? I didn't come up with anything better, as in the code below. Everything goes smoothly but with only one object (animation).
Code:
TObject(PanelBtnClick[1].GetObject), TObject(PanelBtnClick[2].GetObject), TObject(PanelBtnClick[3].GetObject), TObject(PanelBtnClick[4].GetObject), TObject(PanelBtnClick[5].GetObject), TObject(LeftPanel.GetObject): begin FMXForm.AnimateFloatDelay(LeftPanel.Handle, 'Width', NSX(280), 0.5, 0.2, atInOut, itBack); end; Code:
procedure CommonMouseEnter(Sender: TObject); var i: Integer; begin i := -1; case Sender of TObject(Btn[1].GetObject): i := 1; TObject(Btn[2].GetObject): i := 2; TObject(Btn[3].GetObject): i := 3; TObject(Btn[4].GetObject): i := 4; TObject(Btn[5].GetObject): i := 5; end; if i <> -1 then Btn[i].FontSetting('{#MyFont2Name}', NS(52), VCLColorToFMXColor($EEEE00)); end;
__________________
https://t.me/FMXInno Last edited by audiofeel; 15-09-2023 at 11:29. |
#518
|
||||
|
||||
Quote:
i'm not sure. could you provide an example or explain further? |
The Following User Says Thank You to BLACKFIRE69 For This Useful Post: | ||
audiofeel (15-09-2023) |
#519
|
||||
|
||||
Quote:
here is everything I had enough for)))
__________________
https://t.me/FMXInno Last edited by audiofeel; 15-09-2023 at 07:15. |
#520
|
||||
|
||||
FMXInno - Updates
FMXInno - Updates: 2023-Sep-15
The latest version has been added to the first post. |
#521
|
||||
|
||||
if you are talking about Custom MultiView, you need to plan it out a bit more thoroughly than this. . Last edited by BLACKFIRE69; 14-07-2024 at 03:07. |
#522
|
||||
|
||||
Quote:
What exactly are you talking about? I won't do better anyway, because I don't know how. I have the right to make a mistake. Because I'm doing something. I understood that from the very beginning I went the wrong way??
__________________
https://t.me/FMXInno |
#523
|
||||
|
||||
Quote:
screenshot: . Last edited by BLACKFIRE69; 14-07-2024 at 03:08. |
#524
|
||||
|
||||
looks and works great.
What was my main mistake? Code:
FMXForm.StopPropertyAnimation(LeftPanel.Handle, 'Width');
__________________
https://t.me/FMXInno Last edited by audiofeel; 15-09-2023 at 09:40. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (15-09-2023) |
#525
|
|||
|
|||
@Blackfire69
If you have some time, can you please work on enabling some component over FVideoPlayer (like even FPopUpBox) will also be fine. You can check this post for the requirement I'm asking for. https://fileforums.com/showpost.php?...&postcount=493 |
![]() |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM | BLACKFIRE69 | Conversion Tutorials | 0 | 15-11-2023 18:35 |
Windows Phone Installer similar to razor12911's original design? | Kitsune1982 | Conversion Tutorials | 0 | 02-07-2020 14:04 |
INDEX - Conversion Tutorial Index | Razor12911 | Conversion Tutorials | 5 | 11-06-2020 03:05 |
Frequently Asked Questions | Joe Forster/STA | PC Games - Frequently Asked Questions | 0 | 29-11-2005 10:48 |