General Politics Celebrities Crime Programming Health Business Sports Jobs Music and Videos Comedy Religion How to Live Sports EducationI have a problem with Sizes of Gtk Windows. The programming language is Ada.
On a screen of 3840 * 2160 pixels I want a Main window of about 2000 * 1200 pixels. When I run the program where the initiation code is herby given (as far a sizes are involved) it looks like a window of about 3000 * 2000 pixels what should I do to get real pixels
in the spec:
Mainsize_H : Gint := 2000; -- Width of the main window
Mainsize_V : Gint := 1200; -- Height of the main window
from another package:
type Screen_resolution is record
width : integer := 0;
heigth : integer := 0;
end record;
procedure Init(MainWindow : access Main_Window_Record'Class) is
pragma Suppress (All_Checks);
Scr : Screen_resolution;
Pixmaps_Dir : constant String := "pixmaps/";
FontDesc : Pango_Font_Description;
begin
Gtk.Window.Initialize (MainWindow, Window_Toplevel);
MainWindow.Set_Title (To_String(Lan_Window_Title(Lan)));
Set_Position (MainWindow, Win_Pos_Center);
Set_Modal (MainWindow, False);
Set_Resizable (MainWindow, True);
Scr := Resolution;
if Scr.width < integer(Mainsize_H) and Scr.width /= 0 then
MainSize_H := Gint(Scr.Width);
end if;
if Scr.heigth < integer(Mainsize_V) and Scr.heigth /= 0 then
MainSize_V := Gint(Scr.heigth);
end if;
Set_Default_Size (MainWindow, Mainsize_H, Mainsize_V);
...
...
Get_Size(MainWindow, W, H);
--Debug
Print(Scr.width);
Print_Line(Scr.heigth);
Print(integer(Mainsize_H));
Print_Line(integer(Mainsize_V));
Print(integer(W));
Print_Line(integer(H));
----
...
...
end Init;
Cutting-edge app development is at the forefront of innovation, and staying updated with the latest ...[Read more]
Looking to unlock the potential of your assets? Hivelance, a leading tokenization platform development company, ...[Read more]
Agen Judi Togel Online Taruhan Angka 4d Terbaik dan Terpercaya DAFTAR KLIK DISINI SEKARANG DAFTAR ...[Read more]
🔍 Eager to unravel the critical differences between Cloud Transformation and Cloud Migration? Dive into the ...[Read more]
I didn’t think that there will be a time where websites would be ...[Read more]
Creating an effective B2B email marketing strategy for Dubai, or any market, requires a ...[Read more]
You might be looking for a secure and efficient way to automate customer conversations on ...[Read more]
Hi I'm trying to use gtk on linux (ubuntu 20.04). GtkPrintUnixDialog not available on linux? ...[Read more]
Benefits of Python Programming: • Python is Embeddable: There are many advantages of Python ...[Read more]
When using Set_Current_Folder I get a window in which the Folder I enter ...[Read more]
At Oodles Technologies, we deliver customer-centric OTT solutions that are unique and add value to ...[Read more]
I want to set up my software solutions for transportation and logistics management. However, the ...[Read more]
I have a vertical grid of 4 buttons. Clicking on a button adds a grid entry ...[Read more]
I am a student who is doing an internship in a company, for this I ...[Read more]
If you want to Build a Competitive Marketplace App then find the best app development ...[Read more]
Technologies have shaped the entire world differently, and mobile apps stand the first in this ...[Read more]
To build successful software for the client, a software development company needs an incredible team. ...[Read more]
Video Cameras on Finance | Lease to own DSLR Camera – Instant Finance 24: We carry a ...[Read more]
Austin Design Studio • Enterprise Software Companies • Innovation Consulting • Rocksauce: Design thinking methodology ...[Read more]
