Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Qt под дельфи, миф или реальность? 
:(
    Опции темы
DeadLine
Дата 24.5.2007, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: нет
Всего: 51
и если есть то как называется
PM   Вверх
Snowy
Дата 24.5.2007, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Может Delphi под QT?
Delphi может создавать приложения для QT под Windows.
В линукс приложения под QT можно портировать из Delphi (или писать) на Kylix.
PM MAIL   Вверх
DeadLine
Дата 24.5.2007, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: нет
Всего: 51

M
powerfox		Использование ненормативной лексики запрещено в любом виде!

Я получил исходник
а там 
Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Qt, jpeg;


Это сообщение отредактировал(а) powerfox - 24.5.2007, 16:54
PM   Вверх
Snowy
Дата 24.5.2007, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Вероятно в нём Qt означает что-то другое, т.к. используются совсем не QT модули.
PM MAIL   Вверх
powerfox
Дата 24.5.2007, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
Можно юзать qt совместно с fpc. Недавно в рассылке мелькала такая тема.
Вот кратко, что там было (ищите на сайте fpc по теме "QT and FPC"):
Цитата

http://users.pandora.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html

http://wiki.freepascal.org/index.php/Qt4_binding


Пример кода с рассылки:

Цитата

program qt_poc;
uses sysutils,qt4;

var
 app      : QApplicationH;
 window   : QWidgetH;
 message_ : QLabelH;
 text     : WideString;
begin
 app      := QApplication_create(@argc, argv);
 text     := 'Hello World';
 window   := QWidget_create(nil, 1);
 message_ := QLabel_create(@text, window);
 QWidget_show(window);
 QApplication_exec();
end.


Добавлено через 1 минуту и 13 секунд
Цитата(DeadLine @  24.5.2007,  14:15 Найти цитируемый пост)
ХЗ.


 ! 
powerfox		Ещё одно такое выражение в моём разделе и получишь +10% в профиль.



--------------------
user posted image
PM WWW   Вверх
Snowy
Дата 24.5.2007, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Именно QForms, QDialogs и т.д.
Все QT модули начинаются на Q. И не только во фряпаскале, но и в дельфи.
А у человека просто Forms и т.д. Значит это не QT.
А, подключенный модуль Qt означает что-то другое.
Может QuickTool или QuietTerminate... Да что угодно. Но не QT.
PM MAIL   Вверх
powerfox
Дата 24.5.2007, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
Цитата(Snowy @  24.5.2007,  18:23 Найти цитируемый пост)
Может QuickTool или QuietTerminate... Да что угодно. Но не QT.

Да там вообще не понять, что за библиотека. Он же привёл какой-то исходник, а не список модулей используемой библиотеки.


--------------------
user posted image
PM WWW   Вверх
Snowy
Дата 24.5.2007, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Как так? Он как раз привёл uses - список используемых модулей  smile 
PM MAIL   Вверх
nickless
Дата 24.5.2007, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Гентозавр
****


Профиль
Группа: Участник Клуба
Сообщений: 2976
Регистрация: 29.8.2005
Где: Germany

Репутация: нет
Всего: 181
Насколько я знаю гуй в CLX базируется на Qt (~v.2.*), так что ничего удивительного, погугли qt.pas или qt.dcu, найдёшь кучу ссылок на kylix.


--------------------
user posted image

Real men don't use backups, they post their stuff on a public ftp server and let the rest of the world make copies
- Linus Torvalds
PM MAIL   Вверх
Snowy
Дата 24.5.2007, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
CLX базируется на QT.
Но у него не CLX приложение  smile 
О чём я всё время и пишу smile
Если этот Qt и в самом деле QT, то он в этой программе нафиг не нужен  smile 
Можно его смело выкидовать из uses - его туда засунули по ошибке...
PM MAIL   Вверх
nickless
Дата 24.5.2007, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Гентозавр
****


Профиль
Группа: Участник Клуба
Сообщений: 2976
Регистрация: 29.8.2005
Где: Germany

Репутация: нет
Всего: 181
Цитата(Snowy @  24.5.2007,  21:10 Найти цитируемый пост)
Но у него не CLX приложение

Да, действительно, странное сочетание, Windows, Forms и Qt  smile 


--------------------
user posted image

Real men don't use backups, they post their stuff on a public ftp server and let the rest of the world make copies
- Linus Torvalds
PM MAIL   Вверх
Ch0bits
Дата 24.5.2007, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62
Пишите на жабе и не парьтесь.  smile 


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
powerfox
Дата 24.5.2007, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
Цитата(Ch0bits @  24.5.2007,  23:26 Найти цитируемый пост)
Пишите на жабе и не парьтесь. 

Фе... Бррр...


--------------------
user posted image
PM WWW   Вверх
DeadLine
Дата 25.5.2007, 07:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: нет
Всего: 51
Java рулит.но приходица иногда и не Дельфях...
PM   Вверх
DeadLine
Дата 25.5.2007, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: нет
Всего: 51
Код

unit Open;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Qt, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses FullScreen;

{$R *.dfm}

Procedure Mashtab;
Var HH,WW:Real;
begin
Form2.Image1.Height:=Form2.Image1.Picture.Height;
Form2.Image1.Width:=Form2.Image1.Picture.Width;
if not((Form2.Image1.Picture.Height>Form2.ClientHeight) or
(Form2.Image1.Picture.Width>Form2.ClientWidth)) then exit;
HH:=Form2.Image1.Picture.Height/Screen.Height;
WW:=Form2.Image1.Picture.Width/Screen.Width;
if HH>WW then
begin
  Form2.Image1.Height:=Round(Form2.Image1.Picture.Height/HH);
  Form2.Image1.Width:=Round(Form2.Image1.Picture.Width/HH);
end else
begin
  Form2.Image1.Height:=Round(Form2.Image1.Picture.Height/WW);
  Form2.Image1.Width:=Round(Form2.Image1.Picture.Width/WW);
end;
Form2.Image1.Stretch:=True;
end;

Procedure SetPosition;
begin
Form2.Image1.Left:=Round(Screen.Width/2-Form2.Image1.Width/2);
Form2.Image1.Top:=Round(Screen.Height/2-Form2.Image1.Height/2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not (OpenDialog1.Execute) then exit;
Form2.Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Mashtab;
SetPosition;
Form2.Show;
end;

end.


Код

program OpenImages;

uses
  Forms,
  Open in 'Open.pas' {Form1},
  FullScreen in 'FullScreen.pas' {Form2};

{$R *.res}

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

Код

unit FullScreen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Qt, jpeg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

Procedure MoreMashtab;
Var mashtab:Real;
begin
Form2.Image1.Height:=Round(Form2.Image1.Height*1.1);
Form2.Image1.Width:=Round(Form2.Image1.Width*1.1);
Form2.Image1.Left:=Round(Screen.Width/2-Form2.Image1.Width/2);
Form2.Image1.Top:=Round(Screen.Height/2-Form2.Image1.Height/2);
Form2.Image1.Stretch:=True;
end;

Procedure LessMashtab;
Var mashtab:Real;
begin
Form2.Image1.Height:=Round(Form2.Image1.Height*0.9);
Form2.Image1.Width:=Round(Form2.Image1.Width*0.9);
Form2.Image1.Left:=Round(Screen.Width/2-Form2.Image1.Width/2);
Form2.Image1.Top:=Round(Screen.Height/2-Form2.Image1.Height/2);
Form2.Image1.Stretch:=True;
end;

Procedure MoveRight;
begin
Form2.Image1.Left:=Form2.Image1.Left+Round(Form2.Image1.Width*0.1);
end;

Procedure MoveLeft;
begin
Form2.Image1.Left:=Form2.Image1.Left-Round(Form2.Image1.Height*0.1);
end;

Procedure MoveUp;
begin
Form2.Image1.Top:=Form2.Image1.Top-10;
end;

Procedure MoveDown;
begin
Form2.Image1.Top:=Form2.Image1.Top+10;
end;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Case key of
27:Close;
107:MoreMashtab;
109:LessMashtab;
39:MoveLeft;
37:MoveRight;
38:MoveDown;
40:MoveUp;
end;
end;

end.
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0599 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.