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...

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

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