Cześć!
na pewno znacie na moje pytanie odpowiedź, to jest bardzo (pewnie) dla Was proste ale nie dla mnie więc prosze Was o pomoc, a mianowicie:
Mam speedbuttona i glypha na nim , i jak zrobic ze jak najade na speedbutona to mi sie pojawi drugi glyph a jak zjade to ten oryginalny (czyli pierwszy) - coś w podobie metody z html-a MouseOver :)
Proszę o pomoc!
Pozdrawiam!
OnMouseMove spedbuttona i formy :
na formie = glyph nr. 1
na buttonie = glyph nr. 2--Ozyrys Pozdrawiam {hello}
Delphi 6
a dokladniej :
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
SpeedButton1.Glyph.LoadFromFile('c:\plik_nr_1.bmp');
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
SpeedButton1.Glyph.LoadFromFile('c:\plik_nr_2.bmp');
end;--Ozyrys Pozdrawiam {hello}
Delphi 6
No tak, ale jak zrobić żeby obrazy pobierał z ImageList1?
Adrian16 napisał:
No tak, ale jak zrobić żeby obrazy pobierał z ImageList1?
Moze jakos tak
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
obrazek:Tbitmap;
begin
obrazek:=Tbitmap.Create;
imagelist1.getbitmap(0, obrazek); //0 to index bitmapy w imagelist
SpeedButton1.Glyph:=obrazek;
obrazek.free;
end;
pisane z glowy, bez sprawdzania
aha, moze lepiej obrazek zrobic globalny dla formy, zeby go nie tworzyc i zwalniac ciagle--Pawel
Delphi6