Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
LCL
»
[SOLVED] Fullscreen
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
CORDIC algorithms
by
MaxCuriosus
[
Today
at 12:34:43 am]
How to detect if a String...
by
jamie
[December 04, 2023, 11:38:49 pm]
License Agreement
by
RayoGlauco
[December 04, 2023, 11:33:44 pm]
How to print a DrawGrid
by
wp
[December 04, 2023, 11:29:20 pm]
virus with lazarus-3.0RC2...
by
rvk
[December 04, 2023, 11:11:01 pm]
Feature announcement: Fun...
by
amerou
[December 04, 2023, 10:18:18 pm]
Online Package Manager
by
wp
[December 04, 2023, 07:57:56 pm]
i can't inatall Dam dialo...
by
wp
[December 04, 2023, 07:55:42 pm]
(new Topic) i can't inata...
by
majid.ebru
[December 04, 2023, 07:43:23 pm]
Lazarus Release Candidate...
by
dedrasta
[December 04, 2023, 05:39:19 pm]
Flock of Birds
by
Dzandaa
[December 04, 2023, 05:30:05 pm]
https page download
by
BubikolRamios
[December 04, 2023, 04:11:51 pm]
Anyone interested in test...
by
Thaddy
[December 04, 2023, 02:44:32 pm]
Unable to write "/usr/sha...
by
Thaddy
[December 04, 2023, 02:26:11 pm]
[SOLVED] TStringGrid.Colu...
by
wp
[December 04, 2023, 11:03:07 am]
Advance Record operators ...
by
Thaddy
[December 04, 2023, 07:51:12 am]
Installing Lazarus on a R...
by
dbannon
[December 04, 2023, 06:45:40 am]
Un-register an LCL Compon...
by
dbannon
[December 04, 2023, 06:07:39 am]
Creating a "compressed" s...
by
maurobio
[December 03, 2023, 11:19:01 pm]
Lazarus 3.9.9 Variable Wa...
by
Martin_fr
[December 03, 2023, 09:27:11 pm]
TCustomShellTreeView.GetF...
by
Alexx2000
[December 03, 2023, 07:22:01 pm]
Can TreeView Node Colours...
by
Bart
[December 03, 2023, 07:21:27 pm]
Two paintbox, how to set ...
by
krolikbest
[December 03, 2023, 06:38:39 pm]
Error: -macosx_version_mi...
by
Koenijn
[December 03, 2023, 06:03:37 pm]
[SOLVED] TPanel slider po...
by
Pe3s
[December 03, 2023, 05:46:45 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: [SOLVED] Fullscreen (Read 572 times)
Pe3s
Hero Member
Posts: 525
[SOLVED] Fullscreen
«
on:
September 22, 2023, 12:43:25 pm »
Hello forum members
I came up with code that supports full screen, but does not cover the entire screen. How can I improve the code?
Code: Pascal
[Select]
[+]
[-]
procedure
TForm1
.
Button1Click
(
Sender
:
TObject
)
;
const
Rect
:
TRect
=
(
Left
:
0
;
Top
:
0
;
Right
:
0
;
Bottom
:
0
)
;
FullScreen
:
Boolean
=
False
;
begin
FullScreen
:
=
not
FullScreen
;
If
FullScreen
Then
Begin
Rect
:
=
BoundsRect
;
SetBounds
(
Left
-
ClientOrigin
.
X
,
Top
-
ClientOrigin
.
Y
,
GetDeviceCaps
(
Canvas
.
handle
,
HORZRES
)
+
(
screen
.
Width
-
ClientWidth
)
,
GetDeviceCaps
(
Canvas
.
handle
,
VERTRES
)
+
(
screen
.
Height
-
ClientHeight
)
)
;
SetWindowPos
(
Handle
,
HWND_TOPMOST
,
0
,
0
,
0
,
0
,
SWP_NoMove
or
SWP_NoSize
)
;
End
Else
begin
SetWindowPos
(
Handle
,
HWND_NOTOPMOST
,
0
,
0
,
0
,
0
,
SWP_NoMove
or
SWP_NoSize
)
;
BoundsRect
:
=
Rect
;
end
;
end
;
«
Last Edit: September 23, 2023, 07:32:47 pm by Pe3s
»
Logged
Josh
Hero Member
Posts: 1195
Re: Fullscreen
«
Reply #1 on:
September 22, 2023, 12:50:20 pm »
not tried or tested, but have you seen the wiki
https://wiki.lazarus.freepascal.org/Application_full_screen_mode
Logged
The best way to get accurate information on the forum is to post something wrong and wait for corrections.
Pe3s
Hero Member
Posts: 525
Re: Fullscreen
«
Reply #2 on:
September 22, 2023, 01:19:55 pm »
@Josh, I've read the wiki, the problem is that I can't use WindowState or border style
Logged
Pe3s
Hero Member
Posts: 525
Re: Fullscreen
«
Reply #3 on:
September 23, 2023, 07:32:33 pm »
Thank you
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
LCL
»
[SOLVED] Fullscreen
TinyPortal
© 2005-2018