Question

Створіть проєкт, виконання якого відкриє вікно синього кольору з розміра- ми 200  450 пікселів і змінить текст у рядку заголовка вікна на ваше ім’я. ЗбережітьпроєктупапцізіменемЗавдання6.1.2,створенійувашійпапці. Зробити в Lazarus!!! Допоможіть!!!! Треба сьогодні

Answer 1

Відповідь:

program Task_6_1_2;

uses

 Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

{$R *.lfm}

type

 { TForm1 }

 TForm1 = class(TForm)

   procedure FormCreate(Sender: TObject);

 private

 public

 end;

var

 Form1: TForm1;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

 //Change the window size

 self.Height := 450;

 self.Width := 200;

 

 //Change the title bar

 self.Caption := 'Your Name Here';

 

 //Change the window's background color

 self.Color := clBlue;

end;

begin

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.Run;

end.

Пояснення:

Важке питання, наді.сь відповідь правильна! Впевнений на 90%

Answer 2

Зрозуміло, я допоможу вам створити проект у Lazarus, що відкриватиме вікно синього кольору з заданим розміром і змінюватиме текст заголовка на ваше ім'я. Ось код, який ви можете використати:

pascalCopy code
program Task6_1_2;

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // потрібно для форм
  Forms, // необхідно для TForm
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Далі вам потрібно створити ще один файл під назвою "Unit1.pas" і вставити такий код:

pascalCopy code
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Задаємо розміри вікна
  Width := 200;
  Height := 450;

  // Задаємо колір фону вікна
  Color := clBlue;

  // Змінюємо текст заголовка вікна на ваше ім'я
  Caption := 'Ваше ім’я';
end;

end.

Після створення файлу "Unit1.pas" і вставлення коду, ви можете зберегти проект з назвою "Завдання6.1.2" в вашій власній папці.

Цей код створює вікно зі зміненим розміром, коліром фону та текстом заголовка. Вам потрібно встановити рамку форми на "bsSingle" або "bsNone" у властивостях форми, якщо вам не потрібна рамка.

Сподіваюся, цей код допоможе вам створити потрібний проект у Lazarus!