PDA

Ver la Versión Completa : Agregar TBitmap a proyecto


compuin
10-02-2020, 14:26:10
Hola,

Estoy llevando un programa escrito en Delphi 6 a Delphi 7 y me he conseguido con un objeto llamado Bitmap que no logro encontrar en el form1

Ademas, en el codigo lo representan asi

bmWheel, bmAspect, bmText: ^tBitmap;
bmWheelSpaceOne, bmWheelSpaceTwo, bmWheelSpaceComp,
bmAspectSpaceOne, bmAspectSpaceTwo, bmAspectSpaceComp,
bmTextSpaceOne, bmTextSpaceTwo, bmTextSpaceComp: tBitmap;

Este, especificamente no lo entiendo ^tBitmap

Tambien me aparece un ListBox definido asi PlanetListOne, PlanetListTwo, PlanetListComp: tobjectList;

Y nuevamente asi, PlanetList, SynList, mpList: ^tObjectList;

Me podrian explicar como los consigos o que representan cada uno ?

Gracias de antemano por sus comentarios

escafandra
10-02-2020, 16:12:19
Algunas clases no son componentes visuales. Eso ocurre con las clases sobre las que preguntas. Se declaran, se crean, se usan y se destruyen. Para usarlos debes incluir sus unudades correspindientes el "uses".

Creo que si te vas a adentrar en el mundo Delphi, debes leer algún libro y practicar sobre él. Si no lo aprendes de forma reglada siempre estarás medio perdido.

Saludos.

compuin
10-02-2020, 16:15:37
Algunas clases no son componentes visuales. Eso ocurre con las clases sobre las que preguntas. Se declaran, se crean, se usan y se destruyen. Para usarlos debes incluir sus unudades correspindientes el "uses".

Creo que si te vas a adentrar en el mundo Delphi, debes leer algún libro y practicar sobre él. Si no lo aprendes de forma reglada siempre estarás medio perdido.

Saludos.


Gracias

Si, ando algo perdido. Que libro me recomiendas ?


Estos son los uses que tengo definidos

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Contnrs, Math, ComCtrls, Buttons, IniFiles, GifImage,
OleCtrls, ShellAPI, StrUtils;

Las clases aparentemente se estan creado pero no las veo a ejecutar el programa, es decir, no estan apareciendo

function TFormMain.InitBitmap (w,h: integer; fourbit, blackwhite: boolean) : tBitmap;
begin
result := tBitmap.Create;
with result do
begin
if fourbit then PixelFormat := pf4bit;
if blackwhite then monochrome := true;
Width := w;
Height := h;
Canvas.Brush.Color := clWhite;
Canvas.FillRect(ClientRect);
end;
end;

Algun evento que falta por configurar ?

ecfisa
10-02-2020, 19:27:52
Hola.

Aquí te dejo algunos enlaces que espero te resulten fructíferos:

Delphi tutorial: Introduction to Graphics (http://sheepdogguides.com/dt3b.htm)
Introduction to drawing with Lazarus & Delphi (http://sheepdogguides.com/lut/lt1Graphics.htm)
Graphics in Delphi (http://www.marcocantu.com/delphipowerbook/GraphicsinDelphi_md6.pdf)
Dibujando con la clase TCanvas (I) (https://delphiallimite.blogspot.com/2007/10/dibujando-con-la-clase-tcanvas-i.html?m=1)
Dibujando con la clase TCanvas (II) (https://delphiallimite.blogspot.com/2007/10/dibujando-con-la-clase-tcanvas-ii.html)
Dibujando con la clase TCanvas (y III) (https://delphiallimite.blogspot.com/2007/10/dibujando-con-la-clase-tcanvas-y-iii.html?m=1)
Delphi Canvas Demonstration (http://pp4s.co.uk/main/tu-oop-inbuilt-dcanvas-prog.html)

Puedes ampliar la información buscando en la web.

Saludos :)

Pd.: La clase TBitmap tiene sólo dos eventos: OnChange y OnProgress

escafandra
10-02-2020, 19:58:51
Yo le iba a sugerir algo más genérico como:
"La cara oculta de delphi 4"
"La biblia de delphi 7"
Libros y tutoriales para aprender delphi (https://clubdelphi.com/foros/showthread.php?t=85907&highlight=cara+oculta)


Saludos.