MyCity » Pascal -> Delphi » Velicina komponenti u zavisnosti od forme

Velicina komponenti u zavisnosti od forme

Napisano na dan: 23.4.2007
4

Velicina komponenti u zavisnosti od forme
Pagination Prethodna strana

Idi na vrh

Poslao: 03 Maj 2007 09:37
Idi na vrh
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Verujem da pisem u ime svih koji su ucestvovali u ovoj temi... molim te, postuj kod da vidimo kako si implementirao promenu velicine kontrola.

Nemoj da mislis da ti ne verujem... samo me interesuje kako izgleda kod koji ti se brine o kontrolama na formi.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 03 Maj 2007 12:28
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Evo ovako

  1. var
  2. HOld,WOld,HNew,WNew,
  3. ......
  4.  
  5. procedure TForm1.FormCreate(Sender: TObject);
  6. begin
  7. HOld := Form1.Height;
  8. WOld := Form1.Width;
  9. end;
  10.  
  11. procedure TForm1.PostValue;
  12. begin
  13.         with Form1.Image1 do begin
  14.                 Image1.Width := 337;
  15.                 Image1.Height := 313;
  16.                 Image1.Left := 24;
  17.                 Image1.Top := 104;
  18.         end;
  19.  
  20. procedure TForm1.ResizeComponents;
  21. var i: integer;
  22. begin
  23.  for i := 0 to ComponentCount-1 do
  24. if (Components[i] is TImage) then
  25.     begin
  26.      (Components[i] as TImage).Left:=
  27.      (Components[i] as TImage).Left * WNew div WOld;
  28.      (Components[i] as TImage).Top:=
  29.      (Components[i] as TImage).Top * HNew div HOld;
  30.      (Components[i] as TImage).Width:=
  31.      (Components[i] as TImage).Width * WNew div WOld;
  32.      (Components[i] as TImage).Height:= (
  33.      Components[i] as TImage).Height * HNew div HOld;
  34.     end;
  35.  
  36. procedure TForm1.OnAfterResize(var Msg: TMessage);
  37. begin
  38.  HNew:= Height;
  39.  WNew:= Width;
  40.         PostValue;
  41.         ResizeComponents;
  42. end;
  43.  


Ovaj kod je samo za image1 , jer bi bilo previse da sam napisao kod za celu formu

Loshmi mi je mnogo pomogao oko ovoga

Wink Exclamation



MyCity » Pascal -> Delphi » Velicina komponenti u zavisnosti od forme

Ko je trenutno na forumu
 

Ukupno su 1007 korisnika na forumu :: 57 registrovanih, 9 sakrivenih i 941 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 9191vs, Apok, arezina, Arhiv, Bacac, bankulen, Ben Roj, Bojan85, bojcistv, BOXRR, Ca6otep, Centauro, Cigi, Dannyboy, darkojbn, debeli, dejanbenkovic, dekir, Djokislav, Dogma21, Dovla, dovlafkcz, HogarStrashni, HPkopun, HrcAk47, Kriglord, mango, Marko Marković, marko308, mercedesamg, milbos, Mićko, Myamoto Musashi, Nik_sasa, operniki, opt1, Panter, Parker, radoznao, raptorsi, sedan, Shajlok, Tandrkalo, Topaz9, tritonus, tubular, vaci, VaRvArI 85, vidra boy, Viktor Petrenko, Vlad000, vladetije, vuk77, Wrangler, x9, zombicar153, šumar bk2