Lazrus-1.8.0RC4-fpc-3.0.4RC1 IDE problem

[sam707]

i do prefer chessmate becuz im born to be alive, mister @T 

[sam707]

@Ondrej thanks for the LCLRealFormBounds $define point, i am gonna add that one to all my old windoz projects, because it is the NORM. a norm needing a define? whatever LoOoL

for other projects (multiplatfarms with eggs and sheeps) im gona use my tricks

chessmate two 

[sam707]

achording to my wifey saying

"there is nothing rong with you babe, you're just an old wolf programming cool stuffs and watching kidos programming futuristic dampers in the dark"

ENJOY

[sam707]

just found out a nice way to turn around

I share this here in the hope it helps, I dont know if it works on mac/linux but it should be multifarms LoL

to retrieve real bounds of a form here is my snippet

Code: Pascal  [Select][+][-]

1.  
2. uses
3.   InterfaceBase; // access current widgetset in use
4.  
5.  
6. procedure TMainForm.GetTrueSizes(out trueWidth,trueHeight: integer);
7. var
8.   r: TRect;
9. begin
10.   WidgetSet.GetWindowRect(Handle,r);
11.   trueWidth:=r.Right-r.Left;
12.   trueHeight:=r.Bottom-r.Top;
13. end;
14.  
15. procedure TMainForm.FormCreate(Sender: TObject);
16. var
17.   trueW,trueH: integer;
18. begin
19.   GetTrueSizes(trueW,trueH); // get the OS decorated Form sizes
20.     SetBounds(Screen.WorkAreaRect.Right-trueW,
21.   Screen.WorkAreaRect.Bottom-trueH,Width,Height);
22.   // place Form on bottom right of current screen
23.  
24.  

[Martin_fr]

Does that work on *all* platforms?

If so, then http://wiki.freepascal.org/Lazarus_Faq#Why_are_TForm.ClientWidth.2FClientHeight_the_same_as_TForm.Width.2FHeight is no longer correct.

[Pascal]

Also see http://wiki.freepascal.org/Autosize_/_Layout#Why_is_TForm.Width_equal_to_TForm.ClientWidth.3F

[Pascal]

sam707. What's wrong with you? Please read http://wiki.freepascal.org/Lazarus_1.8.0_release_notes. Especially the "LCL changes -> TCustomForm" part .

I couldn't make it work! What do i have to do? Add -dLCLRealFormBounds to compile options?

[Ondrej Pokorny]

sam707. What's wrong with you? Please read http://wiki.freepascal.org/Lazarus_1.8.0_release_notes. Especially the "LCL changes -> TCustomForm" part .

I couldn't make it work! What do i have to do? Add -dLCLRealFormBounds to compile options?

Best is to add it to additions and overrides in your project options. Make sure the LCL/LCLBase is compiled with -dLCLRealFormBounds.

[Pascal]

Thanks, that did it. But the values does not seem to be correct.
Especially the diff to the with: 16 is more then i would expect. In a magnified screenhot i can count 2.

[Pascal]

ClientToScreen also does not seem to work correct. See updated sample project.

[Pascal]

According screenshot the client width and height are okay.
Also ClientToScreen and Form.Top.
But not Form.Left.

[Pascal]

I positioned the Form by setting Top and Left to 0. This is what you get:
- From.Left is wrong
- Form.Width is wrong
- Form.Height is wrong

[Ondrej Pokorny]

I positioned the Form by setting Top and Left to 0. This is what you get:
- From.Left is wrong
- Form.Width is wrong
- Form.Height is wrong

- No
- No
- No

The extra space is the semitransparent shadow area of windows 10 theming. All values are correct.

[Pascal]

Okay. But then Top is wrong as the shadow is also on the top of the window

[Ondrej Pokorny]

Okay. But then Top is wrong as the shadow is also on the top of the window

Please report to Microsoft