Форум программистов, компьютерный форум CyberForum.ru

Из Делфи в С++ - C++

Восстановить пароль Регистрация
 
Irushka
 Аватар для Irushka
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 4
21.10.2012, 19:15     Из Делфи в С++ #1
Может ли кто то помочь перевести программу?Буду очень благодарна любой помощи)

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap1, Bitmap2: TBitmap;
    x,y: Integer;
    r,g,b: Integer;
    l:Real;
    FName: String;
begin
Bitmap1:=TBitmap.Create;
Bitmap2:=TBitmap.Create;
//
Bitmap1.Width:=957;
Bitmap1.Height:=672;
Bitmap1.PixelFormat:=pf24bit;
//
Bitmap2.Width:=Bitmap1.Width;
Bitmap2.Height:=Bitmap1.Height;
Bitmap2.PixelFormat:=pf24bit;
//
if (OpenPictureDialog1.Execute()) then
begin
  FName := OpenPictureDialog1.FileName;
  Bitmap1.LoadFromFile(FName);
  Image1.Picture.Bitmap:=Bitmap1;
end;
//
for x := 0 to Bitmap1.Width-1 do
begin
  for y := 0 to Bitmap1.Height-1 do
    begin
      r:=getRValue(Bitmap1.Canvas.Pixels[x,y]);
      g:=getGValue(Bitmap1.Canvas.Pixels[x,y]);
      b:=getBValue(Bitmap1.Canvas.Pixels[x,y]);
      l:= 0.299*r+0.587*g+0.114*b;
      l:=Round(l);
      if l>255 then l:=255;
       Bitmap2.Canvas.Pixels[x,y]:=RGB(Round(l),Round(l),Round(l));
    end;
end;
Image2.Picture.Bitmap:=Bitmap2;
end;
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2012, 19:15     Из Делфи в С++
Посмотрите здесь:

C++ stringgrid. аналог делфи.
Аналог модуля Делфи в С++ C++
C++ переход с делфи на цпп
Перевод из делфи в с C++
C++ Перевести из делфи в с++
C++ Переход с делфи
Перевести с Делфи в С++ C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
silent_1991
Эксперт C++
4938 / 3014 / 149
Регистрация: 11.11.2009
Сообщений: 7,024
Завершенные тесты: 1
24.10.2012, 13:19     Из Делфи в С++ #2
Что программа делает? Сейчас тема имеет не информативное название, и я не могу переименовать её, потому что кроме кода вы ничего не предоставили. Текст задания также увеличивает ваши шансы на получение помощи, поскольку, возможно, не все знающие Делфи люди захотят написать вам программу (что маловероятно) или поделиться хранящимся у них готовым кодом (что более вероятно).
хАЛЕКСЕЙх
 Аватар для хАЛЕКСЕЙх
8 / 8 / 2
Регистрация: 11.10.2012
Сообщений: 118
24.10.2012, 15:48     Из Делфи в С++ #3
Цитата Сообщение от Irushka Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
TForm1 = class(TForm)
 Image1: TImage;
 Image2: TImage;
 Button1: TButton;
 OpenPictureDialog1: TOpenPictureDialog;
 SavePictureDialog1: TSavePictureDialog;
 procedure Button1Click(Sender: TObject);
мне кажется здесь прийдётся работать с оконным приложением

Добавлено через 8 минут
Irushka, покажи скрин приложения написанного на Delphi
Yandex
Объявления
24.10.2012, 15:48     Из Делфи в С++
Ответ Создать тему
Опции темы

Текущее время: 04:45. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru