Forum TIBIA forum Strona Główna  
 FAQ  •  Szukaj  •  Użytkownicy  •  Grupy •  Galerie   •  Rejestracja  •  Profil  •  Zaloguj się, by sprawdzić wiadomości  •  Zaloguj
 sdfsfsfdsfddfsfdg Zobacz następny temat
Zobacz poprzedni temat
Napisz nowy tematOdpowiedz do tematu
Autor Wiadomość
sds
Gość





PostWysłany: Pią 14:53, 29 Lut 2008 Powrót do góry

procedure TForm1.Button2Click(Sender: TObject);
begin
with canvas do
begin
pen.Color:=clred;
brush.color:=clred;
rectangle(50,50,clientWidth - 50,clientheight - 50);
pen.Color:=clWhite;
brush.color:=clWhite;
rectangle((clientWidth div 5)*2,clientheight div 5,(clientWidth div 5)*3,(clientheight div 5)*4);
pen.Color:=clWhite;
brush.color:=clWhite;
rectangle(clientWidth div 5,(clientheight div 5)*2,(clientWidth div 5)*4,(clientheight div 5)*3);
end;
end;
boniek 456
JEDI MASTER



Dołączył: 12 Mar 2008
Posty: 301 Przeczytał: 0 tematów

Ostrzeżeń: 9/10
Skąd: grajewo

PostWysłany: Nie 19:33, 16 Mar 2008 Powrót do góry

lol


Post został pochwalony 0 razy
Zobacz profil autora
Wyświetl posty z ostatnich:      
Napisz nowy tematOdpowiedz do tematu


 Skocz do:   



Zobacz następny temat
Zobacz poprzedni temat
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001/3 phpBB Group :: FI Theme :: Wszystkie czasy w strefie EET (Europa)