Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.867 c