Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Массивы и векторы http://www.cyberforum.ru/cpp-beginners/thread310849.html
Вопрос по теме . Что лучше использовать? :scratch:
C++ vector и функция read() из STL Привет всем, мой первый вопрос на этом форуме... Вот: Пишу программу "Список сотрудников", в которой использую vector из библиотеки STL. Программа предлагает пользователю добавить сотрудника,... http://www.cyberforum.ru/cpp-beginners/thread310846.html
C++ Перевод с Паскаля на C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; var a,b,j:integer; p:pointer; ...
Функции из STL C++
Привет всем, мой первый вопрос на этом форуме... Вот: Пишу программу "Список сотрудников", в которой использую vector из библиотеки STL. Программа предлагает пользователю добавить сотрудника,...
C++ Число компонент файла f, компонентами которого являются целые числа, кратно 10. Переписать компоненты файла f в файл g, изменяя порядок чисел в каждой http://www.cyberforum.ru/cpp-beginners/thread310833.html
Нужна помощь в задаче. Число компонент файла f, компонентами которого являются целые числа, кратно 10. Переписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы в...
C++ Напечатать список студентов мужского пола с указанием их возраста здраствуйте. не получается с ответом задачи. вроде компилируется но не вычисляется. не могли бы вы исправить ошибку* буду благодарен. Сформировать файл “stud”, имеющий следующую структуру: фамилия... подробнее

Показать сообщение отдельно
R3Pa4eK
0 / 0 / 0
Регистрация: 14.05.2011
Сообщений: 13

Delphi на C++ - C++

02.06.2011, 14:24. Просмотров 336. Ответов 0
Метки (Все метки)

помогите этот код (написанный на Delphi) переписать на C++
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
library ISLogoDraw;
 
uses
Windows, Forms, imageenview;
 
var
Logo: TImageEnView;
 
procedure ISLogo_Init(Wnd :HWND) stdcall;
begin
Logo := TImageEnView.Create(nil);
Logo.ParentWindow := Wnd;
end;
 
procedure ISLogo_Draw(FileName: PChar; X, Y: Integer) stdcall;
begin
Logo.IO.LoadFromfile(FileName);
Logo.Top := Y;
Logo.Left := X;
Logo.Width := Logo.io.Params.Width;
Logo.Height := Logo.io.Params.Height;
Logo.BorderStyle := bsNone;
Logo.Update;
end;
 
procedure ISLogo_Free; stdcall;
begin
Logo.Clear;
Logo.Destroy;
end;
 
exports ISLogo_Init;
exports ISLogo_Draw;
exports ISLogo_Free;
 
begin
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru