#511
|
||||
|
||||
In FMX it is impossible to change the color of the FMultiview and the color of the FSpeedButton??
|
Sponsored Links |
#512
|
||||
|
||||
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: | ||
#513
|
||||
|
||||
All Ok!
Last edited by audiofeel; 27-12-2023 at 11:06. |
#514
|
||||
|
||||
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?
|
#515
|
||||
|
||||
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: | ||
#516
|
||||
|
||||
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; |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (14-09-2023) |
#517
|
|||
|
|||
Hello brother, please give the complete script, where should I download it, thanks
|
#518
|
||||
|
||||
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; Last edited by audiofeel; 15-09-2023 at 11:29. |
#519
|
||||
|
||||
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) |
#520
|
||||
|
||||
Quote:
here is everything I had enough for))) Last edited by audiofeel; 15-09-2023 at 07:15. |
#521
|
||||
|
||||
FMXInno - Updates
FMXInno - Updates: 2023-Sep-15
The latest version has been added to the first post. |
#522
|
||||
|
||||
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. |
#523
|
||||
|
||||
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?? |
#524
|
||||
|
||||
Quote:
screenshot: . Last edited by BLACKFIRE69; 14-07-2024 at 03:08. |
#525
|
||||
|
||||
looks and works great.
What was my main mistake? Code:
FMXForm.StopPropertyAnimation(LeftPanel.Handle, 'Width'); 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) |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
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 |