MASZYN.OLECKO.PL

Mam takie skromniutkie pytanko do grupowiczow.
Zamierzam napisac sobie komponent ktory uwzgledniac bedzie innny juz
zainstalowany komponent.
To znaczy rzucam komponent dotyczacy "resize w runtimie", a nastepnie
programowo narysowac symbol graficzny ktory z zalozenia ma sie pokazywac na
poprzednim komponencie tym od resizu.
A wszystko to po to aby, poxniej taki komponent mogl wstawiac w runtimie
wraz z tymi cholernymi 8 kwadracikami.
Mam nadzieje, ze da sie zrobic taki trick bo nie mam pomyslu na uczciwy
resize w runtime.
Jesli ktos sie z tym zmagal prosze o podpowiedx, krytyke, opinie, cokolwiek,
jakie mnie czekaja problemy i takie tam.
Pozdrowienia POL
--
Wyslano z serwisu OnetNiusy: http://niusy.onet.pl

polstep...@o2.pl napisal(a) w wiadomosci:
...

A po cholere Ci te kwadraciki ?. Ich tworzenie nie jest trudne,
wystarczy tworzyc 8 czarnych Labeli i obsluzyc OnMouse...
Tylko po co Ci one. Form w RunTime mozesz zmienic
rozmiar bez zadnych kwadracikow, prawda ?. Wskazana jest
tylko zmiana ksztaltu kursora, kiedy mysz znajduje sie na
krawedziach czy rogach, aby sygnalizowac userowi mozliwosc
operacji.
Zrob tak:
Zalozmy, ze masz DoResize do operacji na wszystkich
komponentow na Formie. Operacja na TWinControl to male
piwko, TGraphicControl nie ma Handle. Poniewaz np.
zwykle ButtonClick wykonuje jakis kod, a w trakcji operacji
klikasz na Button, zatem w kodzie DoResize ja bym najpierw
zapamietal wszystkie OnMouse... komponentow i Formy.
Potem podmienilbym na swoje. Zrobilbym to wszystko jako
komponent. W jego Create tworzysz potomek TWinControl
(TSizing) o Visible = false, dla niego Form jako Owner i
Parent. Nadpisujesz CreateParams oraz
MouseDown:
procedure TSizing.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or WS_SIZEBOX;
{efekt taki, ze jak mysz na np. krawedzi to zmiemi
ksztalt i mozesz zmienic rozmiar Sizing tak, jak Form}
end;
procedure TSizing.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
  end;
  {naciskajac mysz mozesz przesuwac Sizing}
end;
Kiedy jestes w trybie edycji (po wywolaniu DoResize, musisz
dorobic Flage) i klikasz np. na Button to przesuwasz Sizing
nad Button, dasz jego rozmiar na rozmiar Button i Visible
= true. Teraz mozesz zmienic rozmiar i pozycje Sizing.
Jak jestes zadowolony to np. klikasz na Form i w tym
momencie przesuwasz Button do Sizing (SetBounds)
i dasz Sizing.Visible = false. Jak klikasz nie na Form
a na np. Panel to po SetBounds dla Button zostaw Sizing.Visible
ale przesuwasz Sizing nad Panel. I tak dalej. Musisz
miec komende do zakonczenia trybu edycji. Tak, jak DoResize,
umieszcz w menu. Przy wychodzeniu z edycji musisz
przywrocic zapamietane OnMouse...
Musisz zapisac wlasciwosci do pliku i przy starcie
odczytac.
Tak w wielkim skrocie. Sprobuj. Jak nie dasz rade
a znajde troche czasu to zobaczymy. Najpierw
musisz sam sprobowac.
 Pozdrawiam.
---------
 Tocbac.
Poczta: g...@2com.pl