Delphi 11.0 has a different form Caption offset than Delphi 10.4

[Tom Mueller 5]

Hello

 

Has anyone noticed that in Delphi 11.0 the indentation of the form caption is larger than in Delphi 10.4?

 

Especially under Windows 11 the small indent with Delphi 10.4 is irritating.

IMO Delphi 11.0 makes the better indentation.

 

Is there a way in Delphi 10.4 to adjust the intent of the form caption (without using Styles)?

 

Best regards

Tom

 

[Lars Fosdal 1792]

OwnerDraw?

Edit: i.e. handle WM_NCPAINT and WM_NCACTIVATE, etc. yourself.

[Tom Mueller 5]

Yes, OwnerDraw would probably work - if I use a base form for all the forms in an application.

I hoped that there is a more simple way to I just adjust the intent of the caption.

[Uwe Raabe 2057]

A fresh VCL forms application shows a Delphi icon in front of the window title. What did you do to remove that?

[Tom Mueller 5]

Set the forms BorderStyle to bsDialog, bsToolWindow or bsSizeToolWin.

Sorry, forgot to mention that.

[aehimself 396]

On 10/7/2021 at 12:39 PM, Uwe Raabe said:

A fresh VCL forms application shows a Delphi icon in front of the window title. What did you do to remove that?

Form 652. That's a pretty extended hello world collection!

[Attila Kovacs 629]

1 hour ago, aehimself said:

Form 652. That's a pretty extended hello world collection!

I heard that he is starting every day over!

[David Heffernan 2345]

Why has this changed? Is the VCL code custom drawing in Delphi 11 where previously it let the system do it? Or vice versa? Or both custom drawing and the code has changed? 

Edited October 12, 2021 by David Heffernan

[everybyte 7]

Also the caption height of the form with BorderStyle = bsDialog is bigger in Delphi 11 compared to 10.4,

while form height is smaller:

[mvanrijnen 123]

strange, delphi is not drawing these forms itself? vcl is just a door to the underlaying windows api?

or does this depends wether you'r using vcl styles or something similar?

 

Edited October 25, 2021 by mvanrijnen

[Lars Fosdal 1792]

It's a nightmare when you have 350+ frames and forms that may need a touch-up, and you still can't be sure they won't be f'd up if two people with different DPI settings edit them.

[Lars Fosdal 1792]

5 minutes ago, mvanrijnen said:

vcl is just a door to the underlaying windows api

Mostly, yes.

[Turan Can 3]

You have to design it yourself, 

 

On click form properties...

BorderStyle : bsNone

 

OnPaint

procedure TForm1.FormPaint(Sender: TObject);
begin
  OnBasePaint(ClientWidth, ClientHeight, Canvas);
end;

 

procedure TfmMain1.OnBasePaint(ClientWidth, ClientHeight: Integer; Canvas: TCanvas);
var
  Rect: TRect;
begin
  Rect.Left := 0;
  Rect.Top := 0;
  Rect.Bottom := ClientHeight;
  Rect.Right := ClientWidth;
  with Canvas do
  begin
    // Pen.Width := 2;
    // Brush.Color := $00000000;
    // Pen.Color := $006B6B6B;
    // Rectangle(0, 0, ClientWidth, ClientHeight);
  end;
end;

[Doug Rudd 2]

The Delphi 11 version looks better.