Gustav Schubert

Setting StyleLookup to 'panelstyle' works, but the question remains - why is it not needed in a direct descendant?

I have a Memo on my Form the content of which is updated often, programatically. It contains no more than a few lines, ScrollBars should never appear, by design, so I set property ShowScrollBars to False, when reviewing the code. But I needed to reverse the setting (should be true), because - if not - the user can scroll the content out of view, off the top edge of the control! ( My app in a nutshell will allow the user to select the current parameter, and then change the value of that parameter with the mouse wheel, when shift or ctrl is down. A normal mouse wheel delta will continue to be available for normal scrolling, of content in a Memo or Listbox, as expected. ) ( I also searched in quality portal, and found that the most relevant entry already had a test case project attached, uploaded by - guess who. RSP-12137 - FMX Memo Scrolling Bug. ) I attach the new test app here (zipped form), for "future reference". MemoWheelTest.zip

A Hello World program featuring TMemo, holding exactly one line of text, which is initially hidden - but which can be scrolled into view, interactively! I think this a now a finished piece. ( When you see the empty Memo, scroll the mouse wheel over the Memo, away from yourself, or click. ) unit Unit1; interface uses System.SysUtils, System.UITypes, FMX.Types, FMX.Controls, FMX.Forms, FMX.Memo; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private Memo: TMemo; Timer: TTimer; procedure TimerTimer(Sender: TObject); end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); begin Memo := TMemo.Create(Self); Memo.Parent := Self; Timer := TTimer.Create(Self); Timer.OnTimer := TimerTimer; end; procedure TForm1.TimerTimer(Sender: TObject); var i: Integer; begin Memo.Position.X := 10; Memo.Position.Y := 10; Memo.Width := 300; Memo.Height := 300; Memo.ControlType := TControlType.Styled; Memo.StyledSettings := []; Memo.TextSettings.Font.Family := 'Courier New'; Memo.TextSettings.Font.Size := 24; Memo.TextSettings.FontColor := TAlphaColors.Red; Memo.ShowScrollBars := False; for i := 0 to 15 do begin Memo.Lines.Add(''); end; Memo.Lines.Clear; Memo.Lines.Add('Hello World'); Caption := 'Memo.Lines.Count = ' + IntToStr(Memo.Lines.Count); Timer.Enabled := False; Memo.ScrollTo(0, 1000); end; end.

I am using latest CE. If I open a file without BOM in Delphi, which was saved from VS Code, it is interpreted wrongly as ANSI. Changes to project options would go into the the .dproj file which I do not want to rely on. And further, I do not want to rely on the configuration of the IDE, when I come to another machine and check out a project. It is good thing if code reading ini files can cope with a BOM. Whether you want your files to have a BOM may be determined by factors that have nothing to do with ini files.

Such as the Delphi IDE when loading pascal files. Visual Studio Code, which I use to do git, will assume UTF8. Using a file between the two environments only works if BOM is present. And my Merge tool (Araxis) also needs to be configured to copy with BOM. So for me it is three programs which need to be fine tuned as a set. ( When I work with a jekyll project, then BOM is forbidden, and I have to switch the configuration of the Merge tool. )

OK, I did not try to google it, admitted, but there is at least one more thing I did not do: suggest that there might be a bug, or search for RSP.

I have the Delphi IDE (10.3.3) maximized on HD-Monitor and create a screenshot with Alt-Print. Screenshot dimensions: exp: 1920 x 1040 act: 1928 x 1048 How come? Long version: I have a two Monitor setup, 2 x 1920 * 1080. My Windows Taskbar is at the bottom of the screen, height 40, standard. When I make a screenshot with Print key, it is too large, two screens horizontally. So I tried Alt-Print instead, after maximizing the App (IDE). Pasted Screenshot into MS-Paint and noticed extra space, bottom and right edge. Other apps, including my own VCL app, 'screenshot' as expected.

I want to determine at runtime whether the app was compiled in Normal configuration or Application-Store configuration. Depending on this piece of info I plan to set my internal boolean IsSandboxed property. True - show standard dialogs to choose file name. False - read and save directly from/to a known filename according to convention. {$if defined(IOS) or defined(Android)} // Mobile Apps are sandboxed, but my internal IsSandboxed flag needs to be false, ok. IsSandboxed := false; // do not show file name dialogs {$endif} {$ifdef MACOS} // OSX Apps are sandboxed, have permissions set IsSandboxed := true; // use dialogs {$endif} {$ifdef MSWINDOWS} // I myself (dev) don't want to be bothered with the dialogs. IsSandboxed := false; // Normal configuration {$endif} // pseudo code follows, does not work {$if defined(MSWINDOWS) and defined(Configuration == App_Store)} IsSandboxed := true; // for Windows Store, play it safe, earn full_trust. {$endif} ( So far I have been reluctant to rename my IsSandboxed property. ) But what is the best way to know if my App runs in Application-Store config vs. Normal config? This question applies to VCL apps as well as FMX apps.

Using ScanCode perhaps, in VCL? unit Unit1; interface uses Winapi.Windows, Winapi.Messages, Vcl.Forms; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private ScanCode: Word; public procedure WMKeyDown(var Msg: TMessage); message WM_KEYDOWN; procedure WMKeyUp(var Msg: TMessage); message WM_KEYUp; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ScanCode := Lo(MapVirtualKey(VK_INSERT, 0)); end; procedure TForm1.WMKeyDown(var Msg: TMessage); var w: Word; b: Byte; begin w := Msg.LParamHi; b := LoByte(w); if b = ScanCode then Caption := 'down'; inherited; end; procedure TForm1.WMKeyUp(var Msg: TMessage); var w: Word; b: Byte; begin w := Msg.LParamHi; b := LoByte(w); if b = ScanCode then Caption := 'up'; inherited; end; end.

VK_INSERT tests a virtual key not a real key, this is how I understand it after testing. Windows is reporting the insert STATE - on or off - when you call GetKeyState, possible return values: 0, -1, -127, or -128. You cannot even tell which of the insert keys or key combinations were used to toggle the state. In VCL, FormKeyPress triggers for KeyDown only, and FormKeyUp does not respond to the numpad numbers at all? ( In FMX, you can use FormKeyUp to successfully detect the '0' up character and know that the key was lifted. )

I don't know if it works, I am just learning - how to code against the api, I only compile and read some interesting code. It is for the original poster to test it out, waiting ...

So, it is best to use KeyDown and KeyUp in FMX to determine if any of the two insert keys is currently down? implementation {$R *.fmx} uses Windows; var IsInsertPressed: Boolean; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin case key of 45: begin IsInsertPressed := True; UpdateCaption; end; end; end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin case key of 45: begin IsInsertPressed := False; UpdateCaption; end; end; case KeyChar of '0': begin IsInsertPressed := False; end; end; UpdateCaption; end; procedure TForm1.UpdateCaption; begin if IsInsertPressed then Caption := 'INSERT' else Caption := '0'; end; end.

Yes, this compiles - with small changes - and looks much better. AVCaptureStillImageOutput = interface(iOSapi.AVFoundation.AVCaptureStillImageOutput) ['{A1669519-9901-489E-BDD1-A0E697C8C6CB}'] procedure addObserver(observer: Pointer; forKeyPath: NSString; options: NSKeyValueObservingOptions; context: Pointer); cdecl; procedure captureStillImageAsynchronouslyFromConnection(connection: AVCaptureConnection; completionHandler: TAVCaptureCompletionHandler); cdecl; end; TAVCaptureStillImageOutput = class(TOCGenericImport<AVCaptureStillImageOutputClass, AVCaptureStillImageOutput>) end; // objc_msgSendP4((FStillImageOutput as ILocalObject).GetObjectID, // sel_getUid('addObserver:forKeyPath:options:context:'), // FVideoCaptureDelegate.GetObjectID, // (StrToNSStr('capturingStillImage') as ILocalObject).GetObjectID, // NSKeyValueObservingOptionNew, // (FAVCaptureStillImageIsCapturingStillImageContext as ILocalObject).GetObjectID); TAVCaptureStillImageOutput.Wrap(FStillImageOutput).addObserver( FVideoCaptureDelegate.GetObjectID, StrToNSStr('capturingStillImage'), NSKeyValueObservingOptionNew, NSObjectToID(FAVCaptureStillImageIsCapturingStillImageContext)); { [stillImageOutput addObserver:self forKeyPath:@"capturingStillImage" options:NSKeyValueObservingOptionNew context:AVCaptureStillImageIsCapturingStillImageContext]; } Source Link.

const libImageIO = '/System/Library/Frameworks/ImageIO.framework/ImageIO'; function objc_msgSendP4( theReceiver: Pointer; theSelector: Pointer; P1: Pointer; P2: Pointer; P3: LongWord; // ? P4: Pointer): Pointer; cdecl; overload; external libobjc name _PU + 'objc_msgSend'; You could find out if it is a long word or an Integer and if it works ...

I am looking at Macapi.ObjCRuntime. There is a function objc_msgSendP2. What if you declare objc_msgSendP4? There are 5 calls to objc-msgSend in the uFMain unit. Three take two params, these do compile? One takes 4 Params, should be objc_msgSendP2? One takes 6 params, which should be objc_msgSendP4?

On the OSX64 platform I want to use native Pickers for Color (TNsColorPanel) and Font (TNsFontPanel). The idea is that first the dialog must be shown (initialized) so that the user can select a color or font in the dialog. Then, at any time, if an action is triggered in the App, the currently selected Color or Font should be retrieved and used. It works for Color, but not for Font. I don't implement changeFont since I don't know how. But it looks as if a working handler is needed, or it won't work. Won't work means that the current Font cannot be retrieved via the convertFont method of the FontManager. https://github.com/federgraph/federgraph-meme-builder/blob/6e035f461e47ed0b30c46ceb36960cbfd528c6c2/MB/RiggVar.MB.Picker.Mac.pas#L104 - debug on Mac (F9) - press button sC (show Color Panel) - change color in panel - select App window (focus) - press button pC (pick Color), ok - press button sF (show Font Panel) - chang Font in panel - ( set breakpoint in TPickerMac.SelectFontFamilyName ) - select App window (focus) - press button pF (pick Font) - todo: make it work Should I give up at this point, and if so, why?

I include a minimal test project for FMX, OSX64 target only, see attachment. ( You can change TRectangle.Fill.Color and TText.Font.Family via native dialogs, see screenshot. ) This seems to work somehow, but there are at least two remaining problems: 1) Color: If you change from Apple to Developer in combo box and continue to use the dialog - it will crash the App. 2) Font: selectedFont is the value navigated from, not the value navigated to; in the example the font family of the TText should be Arial Narrow, not Arial Black. I would like to understand the reason for problem 1, any idea? ChangeColorTest.zip

OK, done, found and example of how to implement callback for Color, extended the case for Font, this seems to work.

I wanted to precompute the max possible value of ClientHeight, based on Screen.WorkAreaHeight, and I have tested on a normal HD-Screen and on a Surface tablet screen, and I have been surprised that - on the Surface screen WorkAreaHeight is always the same, no matter if TaskBar has collapsed, - Screen.WorkAreaHeight is given in real pixels, - whereas Height and ClientHeight are given in scaled pixels. Normal Desktop HD Screen Report: Handle.Scale = 1.0 Screen.WorkAreaHeight = 1040 MaxClientHeight = 1001 Screen-W-H = (1920, 1080) (Form)-W-H = ( 616, 639) Client-W-H = ( 600, 600) MaxClientHeight := wah - Round(scale *(h - ch)); 1001 := 1040 - Round(1.0 *(639 - 600)); mch = MaxClientHeight / scale = 1001 Surface-Pro Screen Report: Handle.Scale = 2.0 Screen.WorkAreaHeight = 1824 MaxClientHeight = 876 Screen-W-H = (2736, 1824) (Form)-W-H = ( 613, 636) Client-W-H = ( 600, 600) MaxClientHeight := wah - Round(scale *(h - ch)); 1752 := 1824 - Round(2.0 *(636 - 600)); mch = MaxClientHeight / scale = 876 Report generating code: procedure TForm1.UpdateReport; var scale: single; h:Integer; ch: Integer; wah: Integer; MaxClientHeight: Integer; mch: Integer; begin scale := Handle.Scale; h := Height; ch := ClientHeight; wah := Screen.WorkAreaHeight; MaxClientHeight := Screen.WorkAreaHeight - Round(scale *(h - ch)); mch := Round(MaxClientHeight / scale); { ClientHeight := mch; // this is the intended use of mch } { mch is the actual MaxClientHeight to be used. } { ML is a TStringList } ML.Clear; ML.Add(Format('Handle.Scale = %.1f', [scale])); ML.Add(Format('Screen.WorkAreaHeight = %d', [wah])); ML.Add(Format('MaxClientHeight = %d', [MaxClientHeight])); ML.Add(''); ML.Add(Format('Screen-W-H = (%d, %d)', [Screen.Width, Screen.Height])); ML.Add(Format('(Form)-W-H = (%d, %d)', [Width, Height])); ML.Add(Format('Client-W-H = (%d, %d)', [ClientWidth, ClientHeight])); ML.Add(''); ML.Add(Format('MaxClientHeight := wah - Round(scale *(h - ch));', [])); ML.Add(Format(' %d := %d - Round(%.1f *(%d - %d));', [MaxClientHeight, wah, scale, h, ch])); ML.Add(''); ML.Add(Format('mch = MaxClientHeight / scale = %d', [mch])); { Memo is a component on the form } Memo.Text := ML.Text; end; What do you think about Screen.WorkAreaHeight? Is this the best thing to use? How should I compute the maximum of ClientHeight that can be visible on a given screen?

On the desktop I call Screen.UpdateDisplayInformation just before I need it, it works for me. But the next problem I found with Screen.WorkAreaHeight is that the units (real pixel or scaled pixel) are different between the platforms. Surface Pro = real pixels given (Scale = 2.0) My Desktop = cannot tell (because Scale = 1.0) Retina iMac = scaled pixels returned (Scale = 2.0) So, on Windows Screen.WorkAreaHeight and ClientHeight are NOT using the same units, on Mac they are given in same units, but what should it be by design? ( I have a workaround that in my test App. )

Fixed, 367 more days for my CE installation. I have requested a new license via free-download page, using same email login as always, and got email with new license key. Then I used the license dialog of Tokyo Pro to register new license and delete expired license. Quote from comment on FB page: "Please make sure your license is expired, otherwise you will get the same expiration date as before." This may very well be true.

Downloaded web installer. Got new license key for CE in email. Now I have 10.3.3 CE with two days left. The license manager UI still buggy btw - when you navigate the leftmost listbox with the arrow keys up and down. You need to click with the mouse on the items, to see the corresponding license details in the middle, which is relevant for the actions on the right. But there is no action reading 'extend license for one more year' or similar. RSP-16220 ('code navigation is blocked inside MACOS blocks') still reproducible, contrary to what they say. 💎

TScreen.WorkAreaHeight is available in Vcl and in FMX. The Vcl help has slightly more info, but it does not mention whether the value is ever updated or not. Found out that, if you change the rotation of the form on the Surface tablet, it does not update. If you change the taskbar mode (Taskleiste automatisch ausblenden, available in taskbar context menu on Surface Pro), it does NOT update either. Any change is only reflected after restart of app. And since the implementation hides behind TPlatformServices.Current.Something it is not easy to find out. Back to square 2. Edit 1: It seems I have to call Screen.UpdateDisplayInformation manually, but when?

Hi, I have isolated another odd behaviour, and I am just dumping it here, to get it off my mind, and for your entertainment, of course. FMX only. Windows only. Edge case. Reproducible. With TMainMenu that wraps! (There are painting problems when ClientHeight is around Screen.WorkingAreaHeight and the number of menu rows changes because of changed ClientWidth.) unit FrmMain; interface (* The goal: - Maximize ClientHeight, but keep in control of aspect ratio of ClientArea. - Height should be Screen.WorkAreaHeight. - Width should be either Portrait (smaller, 800) or Landscape (larger, 1000). - Need to set Width/Height or ClientWidth/ClientHeight in code. - Prefer to set ClientWidth/ClientHeight over Width/Height. The plot thickens: - Have big TMainMenu component. - In Portrait MainMenu will wrap into two lines! - In Landscape MainMenu will fit on one line! The Problem: - ClientArea painting problem when MainMenu wraps/unwraps, when you toggle between Landscape and Portrait: Odd: - MainMenu.Height is not a property. - Changing MainMenu-Height seems to be part of the problem. - Missing space to grow the window is another part of the problem? Usage: Press buttons in order given below... Problem cases: a) Reset, Portrait, Landscape: - Black (unpainted) area at the bottom edge. b) Reset, Button2, Button1: - Black unpainted area at bottom edge of ClientArea in Window. - Button1 and Button2 not painted correctly, around bottom edge. c) Reset, Lanscape, Button1, Landscape: - Window too big, bottom edge behind task bar. These cases work as expected: d) Reset, Portrait e) Reset, Landscape f) Reset, Button 1 (like Portrait but via using Height property) g) Reset, Button 2 (like Lanscape but via using Height property) Steps: - In new, empty FMX project - rename Form to FormMain - paste test code - connect FormCreate, FormDestroy, FormKeyUp - run - hit keys instead of clicking buttons. *) uses System.SysUtils, System.Types, System.UITypes, System.UIConsts, System.Classes, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Menus, FMX.Layouts, FMX.Objects; type TFormMain = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); procedure LandscapeBtnClick(Sender: TObject); procedure PortraitBtnClick(Sender: TObject); procedure ResetBtnClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private ML: TStringList; fa: Integer; MaxClientHeight: Integer; MaxClientHeight1: Integer; MaxClientHeight2: Integer; MenuHeight1: Integer; MenuHeight2: Integer; procedure InitMemoText; procedure InitMenu; procedure UpdateReport; function AddMenu(M: TMainMenu; Caption: string): TMenuItem; procedure InitItem(I: TMenuItem; fa: Integer); public MainMenu: TMainMenu; MemoText: TText; // ResetBtn: TButton; // PortraitBtn: TButton; // LandscapeBtn: TButton; // Button1: TButton; // Button2: TButton; end; var FormMain: TFormMain; implementation {$R *.fmx} procedure TFormMain.FormCreate(Sender: TObject); begin ML := TStringList.Create; { record this while there is no MainMenu } MaxClientHeight := Screen.WorkAreaHeight - (Height - ClientHeight); InitMemoText; InitMenu; { by now we 'know' the height of the main-menu-lines } MaxClientHeight1 := MaxClientHeight - MenuHeight1; MaxClientHeight2 := MaxClientHeight - MenuHeight2; UpdateReport; end; procedure TFormMain.FormDestroy(Sender: TObject); begin ML.Free; end; procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if KeyChar = 'a' then begin ResetBtnClick(nil); PortraitBtnClick(nil); LandscapeBtnClick(nil); end else if KeyChar = 'b' then begin ResetBtnClick(nil); Button2Click(nil); Button1Click(nil); end else if KeyChar = 'c' then begin ResetBtnClick(nil); LandscapeBtnClick(nil); Button1Click(nil); LandscapeBtnClick(nil); end else if KeyChar = 'd' then begin ResetBtnClick(nil); PortraitBtnClick(nil); end else if KeyChar = 'e' then begin ResetBtnClick(nil); LandscapeBtnClick(nil); end else if KeyChar = 'f' then begin ResetBtnClick(nil); Button1Click(nil); end else if KeyChar = 'g' then begin ResetBtnClick(nil); Button2Click(nil); end else if KeyChar = 'l' then begin LandscapeBtnClick(nil); end else if KeyChar = 'p' then begin PortraitBtnClick(nil); end else if KeyChar = 'r' then begin ResetBtnClick(nil); end else if KeyChar = '1' then begin Button1Click(nil); end else if KeyChar = '2' then begin Button2Click(nil); end end; procedure TFormMain.ResetBtnClick(Sender: TObject); begin ClientWidth := 800; ClientHeight := 600; Top := 100; UpdateReport; end; procedure TFormMain.LandscapeBtnClick(Sender: TObject); begin ClientWidth := 1000; ClientHeight := MaxClientHeight1; Top := 0; UpdateReport; end; procedure TFormMain.PortraitBtnClick(Sender: TObject); begin ClientWidth := 800; ClientHeight := MaxClientHeight2; Top := 0; UpdateReport; end; procedure TFormMain.Button1Click(Sender: TObject); begin ClientWidth := 800; Height := Screen.WorkAreaHeight; Top := 0; UpdateReport; end; procedure TFormMain.Button2Click(Sender: TObject); begin ClientWidth := 1000; Height := Screen.WorkAreaHeight; Top := 0; UpdateReport; end; procedure TFormMain.UpdateReport; begin ML.Clear; ML.Add('Button KeyChars:'); ML.Add(' r = Reset'); ML.Add(' p = Portrait'); ML.Add(' l = Landscape'); ML.Add(' 1 = Button 1'); ML.Add(' 2 = Button 2'); ML.Add(''); ML.Add('KeyChars for Test Cases:'); ML.Add(' a, b, c = Bad'); ML.Add(' d, e, f, g = Good'); ML.Add(''); ML.Add('Info:'); ML.Add(Format(' Screen.Height = %d', [Screen.Height])); ML.Add(Format(' WorkAreaHeight = %d', [Screen.WorkAreaHeight])); ML.Add(Format(' MenuHeight1 = %d', [MenuHeight1])); ML.Add(Format(' MenuHeight2 = %d', [MenuHeight2])); ML.Add(Format(' W-H = (%d, %d)', [Width, Height])); ML.Add(Format(' Client-W-H = (%d, %d)', [ClientWidth, ClientHeight])); MemoText.Text := ML.Text; end; procedure TFormMain.InitMemoText; begin MemoText := TText.Create(self); MemoText.Parent := self; MemoText.Position.X := 10.0; MemoText.Position.Y := 20.0; MemoText.TextSettings.WordWrap := False; MemoText.AutoSize := True; MemoText.Font.Family := 'Consolas'; MemoText.Font.Size := 14; MemoText.TextSettings.FontColor := claBlue; MemoText.TextSettings.HorzAlign := TTextAlign.Leading; MemoText.TextSettings.VertAlign := TTextAlign.Leading; end; procedure TFormMain.InitMenu; var i: Integer; ch1, ch2: Integer; begin MainMenu := TMainMenu.Create(self); MainMenu.Parent := self; ch1 := ClientHeight; for i in [1..8] do AddMenu(MainMenu,'Menu' + IntToStr(i)); ch2 := ClientHeight; MenuHeight1 := ch1 - ch2; for i in [9..16] do AddMenu(MainMenu,'Menu' + IntToStr(i)); ch2 := ClientHeight; MenuHeight2 := ch1 - ch2; end; function TFormMain.AddMenu(M: TMainMenu; Caption: string): TMenuItem; var j: Integer; begin result := TMenuItem.Create(M); result.Text := Caption; M.AddObject(result); for j in [1..2] do begin Inc(fa); InitItem(result, fa); end; end; procedure TFormMain.InitItem(I: TMenuItem; fa: Integer); var t: TMenuItem; begin t := TMenuItem.Create(I); t.Width := 50; t.Height := 50; t.Opacity := 1.0; t.Font.Size := 24; t.Text := 'Item' + IntToStr(fa); t.Enabled := True; t.Visible := True; t.Tag := Ord(fa); I.AddObject(t); end; end.

Current test code at GitHub repo. Reported as RSP-26601.