FreePascal.ru

Оставлю стандартное видовое с прямыми углами. Чтобы без лишних заморочек.))

По картинке задал скругленные края формы и все вроде бы хорошо было. Но до тех пор пока масштаб экрана в wondows 10 не поменял. Собрал программу на масштабе 125%. Отображается нормально со скругленными краями.
Поменял масштаб на 100% показывает края формы прямые. На 150% то же прямые не скругленные ...

скалогрыз писал(а):

user6745 писал(а):Как сделать чтобы он срабатывал в FormCreate?

он не срабатывает, потому что у формы ещё не создан Handle
вместо FormCreate используй FormShow

Ещё можно перед вызовом SetShape вызывать CreateHandle, если использование FormCreate обязательно

Спасибо, помогло. Теперь использую FormShow.

Задаем нажатием кнопки форму по белому цвету картинки


procedure TForm1.Button1Click(Sender: TObject);
var
ABitmap: TBitmap;
begin
// Скрыть заголовок окна
BorderStyle:= bsNone;
ABitmap:= TBitmap.Create;
// Загружаем картинку
ABitmap.LoadFromFile('1.bmp ...

Alex2013 писал(а):А Stretch включать пробовали ?

Спасибо. Помогло. Сам как-то не сообразил сразу! ))))

По умолчанию я использую масштаб экрана 125% в windows 10.

Вот такой пример.

Помещаю на форму компонент TImage, указываю картинку, компилирую программу, запускаю, все отображается нормально. Закрываю программу.

В Windows 10 захожу в "Параметры экрана" указываю там масштаб 100%.
Запускаю программу ...

Спасибо. Попробую предложенные варианты. Посмотрю что получится проще и удобней сделать.

iskander писал(а):А если бросить на форму картинку рамки?

В принципе тоже вариант рисованная рамка с помощью TImage. Спасибо.

Имеется на форме объект TImage. В TImage отображается картинка PNG.

Как сделать так, чтобы при наведении указателя мышки на TImage исходная картинка плавно за 2 секунды менялась на любую другую PNG которую можно скинуть в папку с программой.
А также когда мышку обираем от TImage, то TImage плавно ...

iskander, тогда исчезает рамка. Оставим все как есть. Все в таком варианте с костылями нормально работает. Вполне сойдет.

Спасибо большое за помощь! Я сам долго мучился с тем как сделать чтобы нормально сворачивалось и разворачивалось! Вы очень помогли!

iskander Спасибо.
Но этот момент появляется если добавляю возможность перетаскивать форму за картинку MouseMove.


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Windows;

type

{ TForm1 }

TForm1 = class(TForm ...

iskander Спасибо большое! Все отлично работает!

Добавлено спустя 1 час 13 минут 55 секунд:
iskander Заметил один такой момент вылезает после применения этого кода.

Разместил на форме Image шириной равный форме. В обычной ситуации если задать одинаковую ширину для картинки (у картинки left ...

Имеется вот такая программа (исходный код программы прикладываю).

Как наладить исправную работу кнопки свернуть? Чтобы все работало как стандартная кнопка окон windows свернуть.

Отличия от стандартного поведения:

1. при сворачивании и разворачивании на панели исчезает иконка программы и затем ...