mdi i tbitmap

0

Wiecie co mi się przytrafiło?
No więc mam aplikacje mdi. Każda forma tworzy sobie tbitmap.
Ale... wygl±da to jakby te tbitmapy miały wspólna pamięć.
Tzn. gdy rysuję po tbitmap jednej formy, to rysuje po tbitmapach
wszystkich innych form! Kurde. Może dziwne i ciekawe, ale
mnie to przeszkadza... wiecie może co mam zrobic aby każda tbitmapa
dostawała swoja pamięc?

Vroc hmm... hmm...
--Vroc
&ltDelphi Knight&gt

0

Wiemy :)
Użyj wskaźników.
var
WskBitmap : TBitmap;*&lt- tu może być błąd (piszę z pamięci) możliwe, że najpierw trzeba
zadeklarować typ PoBitmap =
TBitmap;
begin
New(WskBitmap);
WskBitmap := TBitmap.Create;
...
WskBitmap
.Free;
Dispose(WskBitmap);
end;
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http:*www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net

0

eee tam, probowalem i nie dziala--Vroc
&ltDelphi Knight&gt

0

Vroc napisał:
eee tam, probowalem i nie dziala

Cóż, trzeba zrobić listę wskaźników :(
Ja mam to tak:
W MAIN:

var
Lista : array [0..10] of TBitmap;
Nr : Integer;

W CHILDWIN:

uses MAIN;

procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Inc(Nr);
Child.Tag := Nr;
New(Lista[Nr]);
Lista[Nr]</sup> := TBitmap.Create;
Lista[Nr].LoadFromFile('c:\windows\kawa.bmp');
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
Lista[Tag].Free;
Dispose(Lista[Tag]);
end;

procedure TMDIChild.FormPaint(Sender: TObject);
begin
Canvas.Draw(0,0, Lista[Tag]</sup>);
end;

procedure TMDIChild.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Lista[Tag]^.Canvas.LineTo(X, Y);
end;
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net

0

doobra, nie musiales sie tak rozppisywac, wystarczylo napisac rzebym zrobil tablice z ^tbitmapkami:)))--Vroc
&ltDelphi Knight&gt

0

Vroc napisał:
doobra, nie musiales sie tak rozppisywac, wystarczylo napisac rzebym zrobil tablice z ^tbitmapkami:)))

Napisałem na zapas, bo wielu osobom trzeba pisać jeszcze raz, jeżeli się zbyt ogólnie pisze :) Przepraszam za brak zaufania do twojej wiedzy {browar} --Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net

1 użytkowników online, w tym zalogowanych: 0, gości: 1