#466
|
||||
|
||||
Quote:
Code:
// TabControl type FTabControl = interface(IUnknown) '{4E174B91-AFAC-42FC-A740-450E6F17B9B3}' function FCreate(FParent: TFmxObject): ITabControl; procedure SetBounds(FLeft, FTop, FWidth, FHeight: Single); procedure HitTest(FValue: Boolean); procedure SetActiveTabWithTransition(const ATab: ITabItem; const ATransition: TTabTransition; const ADirection: TTabTransitionDirection); procedure SetActiveTabWithTransitionAsync(const ATab: ITabItem; const ATransition: TTabTransition; const ADirection: TTabTransitionDirection; const AOnFinish: TNotifyEvent); procedure FinishCurrentTabTransition; function FindVisibleTab(var Index: Integer; const FindKind: TFindKind): Boolean; function FindVisibleTab2(const FindKind: TFindKind): Integer; procedure GoToActiveTab; function GotoVisibleTab(Index: Integer; ATransition: TTabTransition; const ADirection: TTabTransitionDirection): Boolean; function Next(ATransition: TTabTransition; const ADirection: TTabTransitionDirection): Boolean; function Previous(ATransition: TTabTransition; const ADirection: TTabTransitionDirection): Boolean; function First(ATransition: TTabTransition; const ADirection: TTabTransitionDirection): Boolean; function Last(ATransition: TTabTransition; const ADirection: TTabTransitionDirection): Boolean; function Delete(const Index: Integer): Boolean; function HasActiveTab: Boolean; procedure UpdateTabBarButtons; function TabCount: Integer; function TransitionRunning: Boolean; procedure Align(FAlign: TAlignLayout); function ActiveTab: ITabItem; function ActiveTabIndex: Integer; function GetTabItem(AIndex: Integer): ITabItem; procedure Enabled(FEnabled: Boolean); procedure CanFocus(FValue: Boolean); procedure Height(FHeight: Single); procedure Margins(FLeft, FTop, FRight, FBottom: Single); procedure Padding(FLeft, FTop, FRight, FBottom: Single); procedure Opacity(FOpacity: Single); procedure Position(X, Y: Single); procedure RotationAngle(FAngle: Single); procedure Scale(X, Y: Single); procedure TabHeight(FHeight: Single); procedure TabStop(FValue: Boolean); procedure TabPosition(FTabPosition: TTabPosition); procedure Visible(FVisible: Boolean); procedure Width(FWidth: Single); procedure SetFocus; procedure ResetFocus; procedure AutoCapture(FValue: Boolean); procedure DisableFocusEffect(FValue: Boolean); procedure UpdateEffects; procedure BeginUpdate; procedure EndUpdate; procedure RecalcSize; procedure RecalcEnabled; procedure RecalcOpacity; procedure RecalcUpdateRect; procedure RecalcAbsolute; procedure Repaint; procedure AddObject(const AObject: TFmxObject); procedure InsertObject(Index: Integer; const AObject: TFmxObject); procedure RemoveObject(const AObject: TFmxObject); procedure RemoveObject2(Index: Integer); function ContainsObject(const AObject: TFmxObject): Boolean; procedure ExchangeObjects(const AObject1, AObject2: TFmxObject); procedure DeleteChildren; function IsChild(AObject: TFmxObject): Boolean; function ChildrenCount: Integer; procedure BringToFront; procedure SendToBack; procedure BringChildToFront(Child: TFmxObject); procedure SendChildToBack(Child: TFmxObject); function IsEquals(AObject: TObject): Boolean; procedure SetTag(Tag: Integer); procedure SetHint(const FText: WideString); function GetTabHeight: Single; function GetOpacity: Single; function GetVisible: Boolean; function GetHeight: Single; function GetWidth: Single; function GetPressed: Boolean; function GetAutoCapture: Boolean; function GetDisableFocusEffect: Boolean; function GetMouseOver: Boolean; function GetObject: LongInt; function GetTag: Integer; function GetParent: Longint; procedure OnClick(Event: TNotifyEvent); procedure OnMouseDown(Event: TMouseEventF); procedure OnMouseMove(Event: TMouseMoveEventF); procedure OnMouseUp(Event: TMouseEventF); procedure OnMouseEnter(Event: TNotifyEvent); procedure OnMouseLeave(Event: TNotifyEvent); procedure OnMouseWheel(Event: TMouseWheelEvent); procedure OnResize(Event: TNotifyEvent); procedure OnResized(Event: TNotifyEvent); procedure OnActivate(Event: TNotifyEvent); procedure OnDeactivate(Event: TNotifyEvent); procedure OnCanFocus(Event: TCanFocusEvent); procedure OnKeyDown(Event: TKeyEvent); procedure OnKeyUp(Event: TKeyEvent); function Handle: TFmxObject; procedure Free; end; |
Sponsored Links |
#467
|
||||
|
||||
use FFolderTreeView / FStartMenuFolderTreeView
Code:
// Folder TreeView type FFolderTreeView = Interface(IUnknown) '{22193C2C-6109-4625-92A3-6CECE9A56348}' procedure FCreate(hHandle: HWND; FLeft, FTop, FWidth, FHeight: Integer; const ADir: WideString); procedure NewFolder(const Folder: WideString); procedure ChangeDirectory(const ADir: WideString); procedure OnChange(FEvent: TNotifyEvent); function GetCurrrentDir: WideString; procedure Left(FLeft: Integer); procedure Top(FTop: Integer); procedure Width(FWidth: Integer); procedure Height(FHeight: Integer); procedure Hide; procedure Show; function GetObject: Longint; function HandleHWND: HWND; procedure Free; End; // StartMenu Folder TreeView type FStartMenuFolderTreeView = Interface(IUnknown) '{22193C2C-6109-4625-92A3-6CECE9A56348}' procedure FCreate(hHandle: HWND; FLeft, FTop, FWidth, FHeight: Integer; const ADir: WideString); procedure NewFolder(const Folder: WideString); procedure ChangeDirectory(const ADir: WideString); procedure OnChange(FEvent: TNotifyEvent); function GetCurrrentDir: WideString; procedure Left(FLeft: Integer); procedure Top(FTop: Integer); procedure Width(FWidth: Integer); procedure Height(FHeight: Integer); procedure Hide; procedure Show; function GetObject: Longint; function HandleHWND: HWND; procedure Free; End; |
#468
|
||||
|
||||
Quote:
Code:
FMXForm.CanvasQuality(cqHighPerformance); done. Quote:
Quote:
Quote:
Code:
new property: procedure OnChange(Event: TNotifyEvent); there's no way until now. Last edited by BLACKFIRE69; 02-09-2023 at 10:08. |
#469
|
|||
|
|||
This doesn't fix it. It's happening same in the WPI Corepack.iss file you created and shared initially on the same forum. let me know, if it can help if I share the installer script?
Code:
DirBrowseDlg.FCreate('Select Install Directory', WizardForm.DirEdit.Text, True, False, 0.35, 0); DirBrowseDlg.TextFontSettings('Bellefair Regular', VCLFontSizeToFMX2(14), {#Color}); |
#470
|
|||
|
|||
@Blackfire69
When trying to edit the directory box, weird things are happening. Like it's not proper like FEdit. Backspace to delete does something else. Moving the cursor to a location and editing edit something else completely. I posted my Directory creation code in the post above. Let me know if I'm doing something wrong. Can you please check? Last edited by Fak Eid; 05-09-2023 at 11:52. |
#471
|
||||
|
||||
Quote:
Code:
DirBrowseDlg.EditFontSettings('Bellefair Regular', VCLFontSizeToFMX2(14), {#Color}); Quote:
Code:
procedure TextHorzAlign(HorzAlign: TTextAlign); TTextAlign = (txCenter, txLeading, txTrailing);
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:07. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
Fak Eid (01-09-2023) |
#472
|
||||
|
||||
Quote:
CAN YOU FIX pjScreen IN FLayer3D? Code:
FMXLayer3D[1].FCreate(FMXViewport3D.Handle); FMXLayer3D[1].Align(Client); //FMXLayer3D[1].Projection(pjScreen); FMXLayer3D[1].Transparency(True); FMXLayer3D[1].FillColor(ALNull); // FMXLayer3D[2].FCreate(FMXViewport3D.Handle); FMXLayer3D[2].Align(Client); //FMXLayer3D[2].Projection(pjScreen); FMXLayer3D[2].Transparency(True); FMXLayer3D[2].FillColor(ALNull); Last edited by hitman797; 02-09-2023 at 01:43. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (01-09-2023) |
#473
|
|||
|
|||
Thanks for that advice earlier, I implemented the same on my installer. I just wanted to know if padding was not working or I was doing it wrong. Thanks to @Blackfire69 for clarification.
Quote:
|
The Following User Says Thank You to Fak Eid For This Useful Post: | ||
audiofeel (01-09-2023) |
#474
|
||||
|
||||
![]()
i'm working on an update. some users have mentioned that the installer appears too small at higher DPI values. can you guys test this on higher DPI settings and let me know how it looks and if it has the correct scaling?
![]() Attachment: Last edited by BLACKFIRE69; 02-09-2023 at 10:07. |
#475
|
||||
|
||||
I don't have a full test (just zoom 150%). Everything is fine. The problem is only with "FFluentDirBrowse"
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:07. |
The Following 2 Users Say Thank You to audiofeel For This Useful Post: | ||
BLACKFIRE69 (02-09-2023), hitman797 (02-09-2023) |
#476
|
||||
|
||||
Quote:
now it should work. . Last edited by BLACKFIRE69; 14-07-2024 at 03:04. |
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
#477
|
||||
|
||||
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:07. |
The Following 2 Users Say Thank You to audiofeel For This Useful Post: | ||
BLACKFIRE69 (02-09-2023), hitman797 (02-09-2023) |
#478
|
||||
|
||||
ProgressBar 98%
@BLACKFIRE69
The progress bar always shows 97-99% after unpacking (no errors) . What and where did I do wrong again? Part of the code below Code:
function ProgressCallback(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): longword; begin Page3PB.SetValue(OverallPct, 1000); ----------------- Page3PB.FCreate(Page3.Handle, 64, 166, 671, 36, {#StyleColor}, $6C030303, False); Page3PB.Curve(4.0, 4.0); Page3PB.StrokeColor(ALNull); Page3PB.StrokeSetting(1.6, scRound, sdSolid, sjMiter); Page3PB.StrokeColorBack(ALMedGray); Page3PB.StrokeSettingBack(0.8, scRound, sdSolid, sjMiter); Page3PB.Opacity(0.9); Page3PB.FillGradient({#StyleColor}, ALMediumspringgreen, gsLinear); Page3PB.FillGradientLinearAngle(45); Page3PB.FillGradientAnimSetting(atOut, 1.2, 0, False, True, True); Page3PB.FillGradientAnimInterpolationType(itCircular); Page3PB.FillGradientAnimColors({#StyleColor}, ALMediumspringgreen, ALMediumspringgreen, {#StyleColor}); Page3PB.FillGradientAnimEnable(True);
__________________
https://t.me/FMXInno Last edited by audiofeel; 27-12-2023 at 11:07. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (05-09-2023) |
#479
|
||||
|
||||
Quote:
the new update will fix this. |
#480
|
||||
|
||||
![]()
FMXInno - Updates : [2023-September-05]
This is a quality update fix for FMXInno on August 31. Code:
* Fixed for higher DPI values. * Updated IsOSMatched for Windows 11 23H2 (Sun Valley 3) update. - if IsOsMatched(B_WIN11_23H2) then ... * Updated FluentAPI v2.0. * Updated ISArcEx. * Other quality improvements and bug fixes. NOTE: * Effective from this update onward, InnoSetup v5.6.1 or a newer version is required. ------------------------------------------------------------------------------------------------------------------------------------------- Quote:
The first post has been updated. . Last edited by BLACKFIRE69; 14-07-2024 at 03:04. |
The Following 7 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
ADMIRAL (05-09-2023), audiofeel (05-09-2023), Behnam2018 (07-09-2023), hitman797 (05-09-2023), Lord.Freddy (05-09-2023), Razor12911 (10-09-2023), Tihiy_Don (06-09-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 |