Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

ICO to BMP   Найти похожие ветки 

 
Dentist ©   (2004-04-16 10:00) [0]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Registry, WinProcs, StdCtrls, ExtDlgs, CoolTrayIcon, ComObj, ShlObj, Menus;

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

var
 Form1: TForm1;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 TheIcon: TIcon;
 TheBitmap: TBitmap;
begin
 TheIcon := TIcon.Create;
 TheIcon.LoadFromFile("c:\1.ico");
 TheBitmap := TBitmap.Create; - говорит Object or class type required
 TheBitmap.Height := TheIcon.Height;
 TheBitmap.Width := TheIcon.Width;
 TheBitmap.Canvas.Draw(0, 0, TheIcon);
 Form1.Canvas.Draw(10, 10, TheBitmap);
 TheBitmap.Free;
 TheIcon.Free;
end;
end.

Какой класс или объект ему надо?


 
Dentist ©   (2004-04-16 10:02) [1]

А потом еще:
[Error] Unit1.pas(36): Undeclared identifier: "Height"
[Error] Unit1.pas(37): Undeclared identifier: "Width"
[Error] Unit1.pas(38): Undeclared identifier: "Canvas"
[Error] Unit1.pas(39): Incompatible types: "TGraphic" and "tagBITMAP"
[Error] Unit1.pas(40): Undeclared identifier: "Free"
[Error] Unit1.pas(22): Unsatisfied forward or external declaration: "Button1Click"


 
han_malign ©   (2004-04-16 10:15) [2]

замени TBitmap - Graphics.TBitmap - и будет тебе щастье

З.Ы. В каком то модуле, прописанном после Graphics, перекрыт тип TBitmap и нужно либо явно указать модуль, либо передвинуть Graphics в конец uses...


 
han_malign ©   (2004-04-16 10:17) [3]

И здается мне, что это WinProcs...



Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
8-1069622719
Satirus
2003-11-24 00:25
2004.05.02
OpenGL графика в проектах Delphi


14-1081399857
Delphi5.01
2004-04-08 08:50
2004.05.02
Specialisti angliskogo pomogite (tolko profi)


4-1079038077
ZedeS
2004-03-11 23:47
2004.05.02
отследить запуск другой программы


14-1081249300
Rule
2004-04-06 15:01
2004.05.02
Как вы относитесь к ценам на буржуйские компоненты


3-1081161321
+Evgen+
2004-04-05 14:35
2004.05.02
базы данных в сети