Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #511  
Old 14-09-2023, 05:22
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
In FMX it is impossible to change the color of the FMultiview and the color of the FSpeedButton??
Reply With Quote
Sponsored Links
  #512  
Old 14-09-2023, 08:23
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
@BLACKFIRE69

Is it impossible to get an icon to display by the icon index?
wGetSysDefaultIcons2

something like this...

%SystemRoot%\System32\SHELL32.dll, -123


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.
Reply With Quote
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (14-09-2023), hitman797 (14-09-2023), Lord.Freddy (14-09-2023)
  #513  
Old 14-09-2023, 08:43
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
All Ok!

Last edited by audiofeel; 27-12-2023 at 11:06.
Reply With Quote
  #514  
Old 14-09-2023, 08:52
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
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?
Reply With Quote
  #515  
Old 14-09-2023, 09:49
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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?

Delphi/FMX: How to add a dynamically created top-aligned component


.

Last edited by BLACKFIRE69; 14-07-2024 at 03:07.
Reply With Quote
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (14-09-2023), hitman797 (14-09-2023), Lord.Freddy (14-09-2023)
  #516  
Old 14-09-2023, 10:58
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
Thanks! Work...
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;
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (14-09-2023)
  #517  
Old 14-09-2023, 21:12
Jahan1373 Jahan1373 is offline
Registered User
 
Join Date: Jan 2022
Location: Yes
Posts: 46
Thanks: 92
Thanked 8 Times in 8 Posts
Jahan1373 is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
Metro Installer
Hello brother, please give the complete script, where should I download it, thanks
Reply With Quote
  #518  
Old 15-09-2023, 02:43
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
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;
If you make an array as in the example below, there will still be jerks between objects (animation).
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.
Reply With Quote
  #519  
Old 15-09-2023, 06:29
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
@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;
If you make an array as in the example below, there will still be jerks between objects (animation).
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;


i'm not sure. could you provide an example or explain further?
Reply With Quote
The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (15-09-2023)
  #520  
Old 15-09-2023, 06:34
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
i'm not sure. could you provide an example or explain further?
Ok!
here is everything I had enough for)))

Last edited by audiofeel; 15-09-2023 at 07:15.
Reply With Quote
  #521  
Old 15-09-2023, 06:51
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
FMXInno - Updates

FMXInno - Updates: 2023-Sep-15



The latest version has been added to the first post.
Reply With Quote
  #522  
Old 15-09-2023, 07:04
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
Ok!
here is everything I had enough for)))

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.
Reply With Quote
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (15-09-2023), hitman797 (15-09-2023)
  #523  
Old 15-09-2023, 07:18
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
if you are talking about Custom MultiView, you need to plan it out a bit more thoroughly than this.
.
Yes, it is about this object.
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??
Reply With Quote
  #524  
Old 15-09-2023, 07:43
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
if you are talking about Custom MultiView, you need to plan it out a bit more thoroughly than this.


.


screenshot:

.

Last edited by BLACKFIRE69; 14-07-2024 at 03:08.
Reply With Quote
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (15-09-2023), hitman797 (15-09-2023)
  #525  
Old 15-09-2023, 07:51
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
screenshot:
.
looks and works great.
What was my main mistake?
Code:
FMXForm.StopPropertyAnimation(LeftPanel.Handle, 'Width');
Is it necessary for OnEnter?

Last edited by audiofeel; 15-09-2023 at 09:40.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (15-09-2023)
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

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



All times are GMT -7. The time now is 17:05.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Copyright 2000-2020, FileForums @ https://fileforums.com