#556
|
||||
|
||||
Quote:
|
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (26-09-2023) |
Sponsored Links |
#557
|
||||
|
||||
does not work. most likely, this will not work in TAG.
__________________
https://t.me/FMXInno Last edited by audiofeel; 26-09-2023 at 17:25. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (26-09-2023) |
#558
|
||||
|
||||
I found a hint on the web
Code:
procedure TForm1.CheckBox1Click(Sender: TObject); begin if TCheckBox(Sender).Checked then Label1.Caption := IntToStr(StrToInt(Label1.Caption) + StrToInt(TCheckBox(Sender).Caption)) else Label1.Caption := IntToStr(StrToInt(Label1.Caption) - StrToInt(TCheckBox(Sender).Caption)); end;
__________________
https://t.me/FMXInno |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (26-09-2023) |
#559
|
||||
|
||||
done with Timer.
press Ctrl + D to show color combo box. Code:
FMXBass: array [1..2] of IXBass; FMXCPU: array [1..2] of FCpuUsage; FMXRAM: array [1..2] of FRamUsage; FMXDISK: array [1..2] of FDiskUsage; FMXGPU: array [1..2] of FGPUInfo; FMXINFO: array [1..2] of FOSInfo; Last edited by hitman797; 26-09-2023 at 22:52. |
The Following 3 Users Say Thank You to hitman797 For This Useful Post: | ||
#560
|
||||
|
||||
@hitman797
@BLACKFIRE69 Can 't this code be shortened somehow ? Code:
procedure OnChange(Sender: TObject); begin case Sender of TObject(FMXComboColorBox[1].GetObject): begin FMXRectangle[97].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[7].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[8].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[9].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[10].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[11].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[12].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[13].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[14].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[15].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[16].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[17].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[18].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[20].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[21].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[22].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[23].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[24].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[35].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[36].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[37].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[38].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[39].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[50].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[51].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[52].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[53].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[54].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[62].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[63].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[64].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[65].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[66].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[75].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[84].FillColor(FMXComboColorBox[1].GetColor); FMXArc[1].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[85].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[86].FillColor(FMXComboColorBox[1].GetColor); FMXRectangle[93].FillColor(FMXComboColorBox[1].GetColor); end; Code:
procedure TForm1.ComboColorBox1Change(Sender: TObject); var I, J: Integer; begin if ComboColorBox1 = Sender then J := 0; if ComboColorBox2 = Sender then J := 1; if ComboColorBox3 = Sender then J := 2; for I := 0 to ComponentCount - 1 do begin if (Components[I] is TShape) then begin if TShape(Components[I]).TagString = J.ToString then TShape(Components[I]).Fill.Color := TComboColorBox(Sender).Color; if TShape(Components[I]).TagString = (J + Length(UIColour)).ToString then TShape(Components[I]).Stroke.Color := TComboColorBox(Sender).Color; end; UIColour[J] := TComboColorBox(Sender).Color; end; end;
__________________
https://t.me/FMXInno |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (28-09-2023) |
#561
|
||||
|
||||
Quote:
Code:
var MyArr: array of Integer; procedure FMXInnoInit; var I: Integer; begin SetArrayLength(MyArr, 38); for I := 0 to 37 do begin case I of 0..11 : MyArr[i] := 7 + I; // 7..18 12..16 : MyArr[i] := 20 + (I - 12); // 20..24 17..21 : MyArr[i] := 35 + (I - 17); // 35..39 22..26 : MyArr[i] := 50 + (I - 22); // 50..54 27..31 : MyArr[i] := 62 + (I - 27); // 62..66 32 : MyArr[32] := 75; // 75 33..35 : MyArr[i] := 84 + (I - 33); // 84..86 36 : MyArr[36] := 93; // 93 37 : MyArr[37] := 97; // 97 end; end; end; procedure OnChange(Sender: TObject); var I: Integer; begin case Sender of TObject(FMXComboColorBox[1].GetObject): begin FMXArc[1].FillColor(FMXComboColorBox[1].GetColor); for I := Low(MyArr) to High(MyArr) do FMXRectangle[MyArr[I]].FillColor(FMXComboColorBox[1].GetColor); end; end; end; Last edited by BLACKFIRE69; 28-09-2023 at 17:50. |
#562
|
||||
|
||||
Quote:
__________________
https://t.me/FMXInno |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (29-09-2023) |
#563
|
||||
|
||||
Quote:
Code:
var MyArr: array of Integer; procedure FMXInnoInit; var I: Integer; begin SetArrayLength(MyArr, 38); for I := 0 to 37 do begin case I of I=(0..11) : MyArr[i] := 7 + I; // 7..18 // 7 + 11 = 18; I=(12..16) : MyArr[i] := 20 + (I - 12); // 20..24 // 20 + (16 - 12)= 24; I=(17..21) : MyArr[i] := 35 + (I - 17); // 35..39 // 35 + (21 - 17)= 39; I=(22..26) : MyArr[i] := 50 + (I - 22); // 50..54 // 50 + (26 - 22)= 54; I=(27..31) : MyArr[i] := 62 + (I - 27); // 62..66 // 62 + (31 - 27)= 66; I=(32) : MyArr[32] := 75; // 75 // 75; I=(33..35) : MyArr[i] := 84 + (I - 33); // 84..86 // 84 + (35 - 33)= 86; I=(36) : MyArr[36] := 93; // 93 // 93; I=(37) : MyArr[37] := 97; // 97 // 97; end; end; end; procedure OnChange(Sender: TObject); var I: Integer; begin case Sender of TObject(FMXComboColorBox[1].GetObject): begin FMXArc[1].FillColor(FMXComboColorBox[1].GetColor); for I := Low(MyArr) to High(MyArr) do FMXRectangle[MyArr[I]].FillColor(FMXComboColorBox[1].GetColor); end; end; end; |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (29-09-2023) |
#564
|
||||
|
||||
![]()
Developer suggestions:
Hi @BLACKFIRE69, can you add GetText of FLabel class to FMXInno. thank you. FLabel: Code:
function GetText: WideString; |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (02-10-2023) |
#565
|
||||
|
||||
![]()
@BLACKFIRE69
Is there any way to get a list of disks in a listbox? I don't quite understand how to do this. The example with the combobox does not fit. Code:
procedure GetDisks; var w: dword; Root: string; i, DiskType: integer; begin w:= GetLogicalDrives; Root:= '#:\'; for i:= 0 to 24 do begin Root[1]:= Chr(Ord('A') + i); if (W and (1 shl i)) > 0 then if (GetDriveType(PAnsiChar(Root)) = DRIVE_FIXED) then Edit1Combo.AddItem(Root); end; Edit1Combo.SetItemIndex(0); end;
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:06. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (02-10-2023) |
#566
|
||||
|
||||
Quote:
it's not a big deal. Code:
var ... mListBox : FListBox; mListBoxItem: array of FListBoxItem; ... procedure FMXInnoInit; begin ... mListBox := InitListBoxHandle; ... end; procedure InitializeWizard(); begin ... FMXDesigning; FMXForm.Show; mListBox.SetItemIndex(2); // i-1 ... end; procedure ListBoxOnChange(Sender: TObject); begin if mListBox.GetItemIndex > -1 then WinTB1.Text('Selected Drive: [' + mListBox.GetItemText(mListBox.GetItemIndex) + ']'); end; Code:
procedure FMXDesigning; var i, CDrvIdx: Integer; ADrvLst: TArrWStr; begin ... if not wGetLogicalDriveList(ADrvLst, CDrvIdx) then begin Log('"wGetLogicalDriveList" failed!'); MsgBox('"wGetLogicalDriveList" failed!', mbError, MB_OK); // try another way. end; { ListBox } mListBox.FCreate(FMXForm.Handle); mListBox.SetBounds(NSX(32), NSY(53), NSX(297), NSY(249)); mListBox.OnChange(@ListBoxOnChange); { Items } SetArrayLength(mListBoxItem, GetArrayLength(ADrvLst)); mListBox.BeginUpdate; for i := 0 to GetArrayLength(ADrvLst) - 1 do begin mListBoxItem[i] := InitListBoxItemHandle; mListBoxItem[i].FCreate(mListBox.Handle); mListBoxItem[i].Text(ADrvLst[i]); mListBox.AddItem(mListBoxItem[i].Handle); end; mListBox.EndUpdate; ... end; . Last edited by BLACKFIRE69; 14-07-2024 at 03:09. |
#567
|
||||
|
||||
@BLACKFIRE
Everything is fine!! everything compiles without problems, but the installer itself freezes at startup, after one time. I've messed up something again if you turn off part of the code as in the screenshot (wGetLogicalDriveList(ADrvLst, CDrvIdx)) then everything is fine
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:06. |
#568
|
|||
|
|||
![]()
Hello, thank you for your hard work
If it is possible, can you put the metro script, I have downloaded a few, when it starts, the first page is white, then the page comes, please put this, thank you |
The Following User Says Thank You to Jahan1373 For This Useful Post: | ||
audiofeel (03-10-2023) |
#569
|
||||
|
||||
Quote:
![]()
__________________
https://t.me/FMXInno |
#570
|
||||
|
||||
Quote:
youtu.be
__________________
https://t.me/FMXInno Last edited by audiofeel; 04-10-2023 at 02:57. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (04-10-2023) |
![]() |
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 |