Sunkieji atomai aplinkui

http://verslas.delfi.lt/energetics/asekmokas-planuoja-istatyma-galinti-pakeisti-baltarusijos-planus-del-ae.d?id=43505157
Scenariju gali buti ivairiu. Pav MAGATE, kuris yra viena koja SNO, tampa watchdog'u visame pasaulyje (dabar jie TIK rekomenduoja). Tada amerikonai uzdarineja rusu RBMK (sprogo), rusai amerikonu PWR (sprogo),kinieciai indu PHWR, indai kinu CPR, pracuzai... ir t.t. Kelias be iseities, greiciausiai nesigaus taip. Japonai buvo pasiunte MAGATE toli toli su jos rekomendacijom. Baltarusija irgi taip gali... Siap, ar taip, dali reaktoriu uzdarys, nes seni, o dar viena avarija ir atomines liks istorija simtui metu i prieki. Atsiras labai didelis poreikis ir eile statyboms. Aisku, kai triuksmas del japonu aprims, nes kito kelio paprasciausiai ner. Istatymas del atstumo iki kaimynu pasmerktas - Europoj niekaip. Del nepirkimo is atomines - blefas buhalterinis. Labai bus idomu suzinoti tesini.

Delphi. How to free dynamically created components at runtime?

Form1+Panel2+Image1. Dinamiškai: ant Image1 sukuriamas TImage Image_x.., jame pavaizduojamas GIF'as, Image_x..'ui prikabinamas TPopumMenu su eilutėmis ADD,FREE.

TForm1 = class(TForm)
...
Panel2: TPanel;
Image1: TImage;

PopupMenu1: TPopupMenu;
ADD: TMenuItem;
FREE: TMenuItem;
procedure ADDClick(Sender: TObject);
procedure FREEClick(Sender: TObject);

//Su MouseMove pastoviai atsimename peliuko koordinates:
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

// Šita procedūra nustato, kuris TImage paspaustas:
procedure OnImageClick(Sender: TObject);

private
Im_W,Im_H,
mouseX,mouseY:integer; //peliuko koordinatės
foto_Last:TImage;
foto_Last_name:string;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
begin
mouseX:=X;
mouseY:=Y;
end;

//Dinaminis TImage (idedame ir 24x24 GIF'ą)sukūrimas:
//'meniu ADD' eilutės kodas:

procedure TForm1.ADDClick(Sender: TObject);
var
Code:integer;
s1,s2:string;
begin
with TImage.Create(Panel2) do
begin
Enabled:=false;
str(mouseX:4,s1);
str(mouseY:4,s2);
//Vardas suteikiamas automatiškai, bet galima ir taip:
name:='Image_x'+trim(s1)+trim(s2);
parent:= Panel2;
Width:=24;
Height:=24;
Top:=mouseY-12; // patrauktas per pusę GIF'o
Left:=mouseX-12;
Picture.LoadFromFile('..\RESOURCE\GIF\24x24red.gif');
Visible:=true;
OnClick:=OnImageClick;
Enabled:=true;
end;


procedure TForm1.OnImageClick(Sender: TObject);
var
foto:Timage;
begin
//kuris GIF-as paspaustas?:
foto := Sender as TImage;
//atsimenam paspasta GIF'ą
foto_Last:=foto;
foto_Last_Name:=foto.Name;
//is kart iskviečiam meniu - kairio pelės mygtuko paspaudimas
Popupmenu1.Popup(mouseX+Form1.Left+12,mouseY+Form1.Top+12);
end;

Naikinimas:
//Popupmenu1 meniu eilutės FREE kodas:
// (Owner).ComponentCount.
// Form1 turi panel2, be jo būtų Owner'is būtų Form1.ComponentCount

procedure TForm1.FREEClick(Sender: TObject);
var
x:integer;
begin
for x := 0 to (panel2.ComponentCount -1) do
begin
if (panel2.Components[x].Name=foto_last_Name) then
begin
TImage(Panel2.components[x]).free;
exit;
end
end;
end;

Kas yra kas

Du protingi vyrai aiškinasi, kas yra kas: http://burgis.lt/zurnalistas-ar-publicistas.
Google:
"krivickas prodiuseris" OR "prodiuseris krivickas" -sigitas 140,
"krivickas zurnalistas" OR "zurnalistas krivickas" -sigitas 247,
"krivickas publicistas" OR "publicistas krivickas" 0,
"krivickas ne zurnalistas" 9,
"krivickas ne publicistas" 0.

Aš maniau, kad K.Krivickas yra prdiuseris, bet Google sako, kad daugiau žurnalistas. Kas yra A.Račas?

Viskas gali būti jau rytoj kitaip, nei kad mes įsivaizduojam:astroturfing.