Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2010, 21:52   #1
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию Перевод модуля-связки Delphi -> C\C++

Здравствуйте еще раз.

Для большей популярности проекта решил перевести модуль-связку проекта на C++ (или, если возможно на С, я не в курсе различий).

В общем т.к. синтаксис я знаю очень смутно, прошу помощи в данном вопросе. Мне достаточно перевода одного кусочка, чтобы самому закончить остальное:
Код:
Unit Gfur;

 Interface

 Uses
  Windows;

 Const

  HN_MOUSEMOVE   = $000000; { TYPE 1 }
  HN_LBUTTONDOWN = $000001; { TYPE 1 }


 Type

  TSimplyprocedure = Procedure;
  TParamProcedure = Procedure(Handle : HWND; Param : LongInt);

  TTexture = Record
   BitMap : HBitMap;
   Width  : Integer;
   Height : Integer;
   Exists : LongBool;
   Name   : PChar;
  End;
  PTexture = ^TTexture;

  TBuffer = Record
   DC      : HDC;
   Texture : TTexture;
  End;

  TWarehouse = Array of TTexture;

  TImage = Record
   Handle : HWND;
   DC     : HDC;
  End;

  TForm = Record
   Handle : HWND;
   Left   : Integer;
   Image  : TImage;
   Font   : HFont;
   Warehouse : TWarehouse;
  End;
  PForm = ^TForm;

 Function BoolToStr(B : Boolean): PChar; External 'Gfur.dll' Name 'BoolToStr';
Procedure ResizeForm(Var Form : TForm; NewWidth, NewHeight : Integer); External 'Gfur.dll' Name 'ResizeForm';
 

 Implementation

 End.
Привел кусочек, если получу его перевод, смогу самостоятель перевести остальное.

Заранее благодарю откликнувшихся.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание модуля Delphi стек Graff Valdemar Помощь студентам 5 23.05.2010 14:46
php + mysql проблема связки Garacio_cain Софт 8 30.11.2009 10:27
Рзработка модуля и программы использующей этот модуль (Delphi) Sonny01 Помощь студентам 2 07.11.2009 17:26
Программирование модуля Ke-USB24A на Delphi 7 RockForr Общие вопросы Delphi 2 28.04.2009 19:29