Lazrus-1.8.0RC4-fpc-3.0.4RC1 IDE problem

[BSaidus]

Here is a screenshoot .. after clicking the button.
It only happen when Editor not focused.

[avra]

It only happen when Editor not focused.

Form has hidden the editor window. Does it happen when not focused editor window is shown?

[Pascal]

Confirmed for trunk when using Sparta docked form editor.

[BSaidus]

It only happen when Editor not focused.

Form has hidden the editor window. Does it happen when not focused editor window is shown?

As the Pics shows, only happen when the Tab Form selected (Focus on the TAB Form) and it works well when the Editor is focused (Just tested with spata_form & anchordocs installed ) .

[sam707]

lot of bugs in lazarus.

just another anoying example

by past i was used to locate form on screen by

    Left:=Screen.WorkAreaRect.Righ-Self.Width;
    Top:=Screen.WorkAreaRect.Bottom-Self.Height;

to position my form on the bottom right of the screen

for now, width=clientwidth and height=clientheight

so the form draws parts OUT OF THE SCREEN

I guess its not only on windows and it is a bug! because by past it worked FINE

and clientwidth can not be equal to width due to the borders size
clientheight can not be equal to height due to the borders and caption sizes

so!

im afraid to get a bitbamp pic of my form and ask for its size (it exists a method in TForm to get a bitmap from itself) and ask for bitmap size is not a cool trick to position a form

[sam707]

just put a form and a procedure

procedure TForm.dummy;
var l,v: integer;
begin
 v:=width-clientwidth;
 l:=height-clientheight;
end;

debug and watch the magnificeent ZERO results in v and l hahahahah

[sam707]

TCustomForm.GetFormImage is the bitmap getter

to crunch time, resources, and finally get the right sizes

[Pascal]

It only happen when Editor not focused.

Form has hidden the editor window. Does it happen when not focused editor window is shown?

As the Pics shows, only happen when the Tab Form selected (Focus on the TAB Form) and it works well when the Editor is focused (Just tested with spata_form & anchordocs installed ) .

Did you report it on mantis? If not, please do so.

[Thaddy]

lot of bugs in lazarus.

Where?

just another anoying example

by past i was used to locate form on screen by

    Left:=Screen.WorkAreaRect.Right-width-Self.Width;
    Top:=Screen.WorkAreaRect.Right-height-Self.Height;

to position my form on the bottom right of the screen

for now, width=clientwidth and height=clientheight

so the form draws parts OUT OF THE SCREEN

Yes, that is correct... It is the FORM client, not the SCREEN client....
That's intended behavior and Delphi compatible...
In the past Lazarus could not handle this case correctly (multi-monitor setup)
The client area is independent of the screen, that is not a bug. Your code is wrong.

[sam707]

c'mon i made it work properly from delphi 3.5 to xe2 (that is more than 15 years long)

otherwise WHAT THE F... need for clientwidth and width properties if they are the same?????????
(optimize and remove the unwanted from the form class if so)
stop being chrumpy LOL

width and height = sizes with os 'decorattions'
clientwidth and clientheight = inside sizes

I dont plan to reinstall xe2 but i am pretty sure I AM F... RIGHT
because last year I positioned forms on screen with my method and they werent drawn part outside like with laz
(C++ builder using VCL from delphi xe2, by a client and friend of mine)

[sam707]

i'm not against the fact to remove trailing useless redundant properties.

so if width and clientwidth, height and clientheight, manage the same values, laz team can remove the redundant ones, and optimize! no problem.

but in the case they want to keep 'hem, the properties should act as i mentioned :

benefit?
1) true forms alignements with no headache
2) retreive size of nonclient areas with simple code

vertbordersize;=(width-clientwidth) div 2;  // for example
captionheight:=height-bordersize-clientheight;

I already used computations like that past years, im not poping them from a magic hat LOL

[sam707]

furthermore, we need difference between width and clientwidth (Hheight/clientheight) if we decide to turn our apps into awesome guis with non rectangular forms. SO if delphi is bad when firemonkey is used, why would laz enter the bad way?

simple Eliptic Form without drop shadow

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   ABitmap: TBitmap;
4. begin
5.   // Hide the titlebar
6.   BorderStyle:=bsNone;
7.   ABitmap := TBitmap.Create;
8.   ABitmap.Monochrome := True;
9.   ABitmap.Width := Width; // or Form1.Width
10.   ABitmap.Height := Height; // or Form1.Height
11.  
12.   // We set the background as black (which will be transparent)
13.   ABitmap.Canvas.Brush.Color:=clBlack;
14.   ABitmap.Canvas.FillRect(0, 0, Width, Height);
15.  
16.   // Now we draw our shape in White
17.   ABitmap.Canvas.Brush.Color:=clWhite;
18.   ABitmap.Canvas.Ellipse(0, 0, Width, Height);
19.   //Canvas.Draw(0,0,ABitmap);
20.   SetShape(ABitmap);
21.  
22.   ABitmap.Free;
23. end;

in the above example, all went good with laz 0.9.xx today it shrinks to client frame

[sam707]

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Forms_TForm_ClientWidth.html

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Controls_TControl_Width.html

chessmate mister @T

width <> clientwidth otherwise it's bug, even achording to your "master" delphitard

[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 .

[Thaddy]

And that makes it checkmate... not chessmade or something..