kocforum

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » kocforum » Smile! » fun pix


fun pix

Сообщений 91 страница 120 из 345

91

Чорт! Какая нахрен  Kelly Osbourne?? Это песня Joan Osbourne!! Не надо клеветать, что какая-то упитанная сука может петь такие милые песни. Милейшая песня! Кстати говоря, эта песня из OST фильма Vanilla Sky. Милейший фильм, несмотря на то, что из разряда "с Ричардом Гиром и Томом Хэнксом"

What if god was one of us,
Just a slob like on of us,
like a stranger on a bus
Trying to make his way home
И  конечно же, охуитительнейшие строчки этой песни:
yeah,yeah, God is Great, yeah,yeah, God is good,
yeah,yeah,yeah,yeah,yeah!
=)

Шура, извини, совсем всё перепутал.
В Литву Ози Озборн приезжает, вот я чего-то под впечатлением и заглючился, отдал лавры суке-дочке-Озборннах. Извини не стреляй! =)
А песня на самом деле суперская!

0

92

:D

0

93

ok

0

94

в сети видел фотку.
Ночной клуб, на двери женского туалета отпечатан текст: "Дорогие девочки, в туалет можно только пи-пи или ка-ка, всё остальное в тазик. Администрация."

0

95

Cf,l

0

96

на фотопоп смахивает! но супер!

0

97

как мило...

0

98

хехехе.. адепты ИТ =)))
СиО извините.. =)

0

99

любоффь зла...

0

100

автолюбителям посвещаеЦЦо!

0

101

привет из падстала))))

0

102

хехехе.. адепты ИТ =)))
СиО извините.. =)

Зверски вообще!  :D

0

103

мега стихотворение-читать вдумчиво и с выражением)))

0

104

Кошмар, чему детей учат! =)
жалкое пародия на Маршака,
писал обкуренный студент ЛитФака (или как он там)
=)))

0

105

кстати,Гест,сейчас вспомнила,когда ты про Маршака сказал-я очень-очень-очень советую вам с Ксю почитать Чуковского "от 2 до 5"
во-первых-эта книжка дегко читается
а во-вторых -вы в очередной раз убедитесь,что ваш ребенок гений и многое в его речи станет понятней:)это просто замечательная книга!

ах да и в -третьих-смеятся будете до слез!:)

0

106

мега стихотворение-читать вдумчиво и с выражением)))

А где достать той травы, что курил афтар :iopt: ???

Отредактировано SiO (2007-03-02 18:31:25)

0

107

ты тоже хочешь, писать для детей так, что бы это потом и в школе проходили?! =))))

0

108

Поверь мне Гест, то что я пишу, куда страшнее... ;)

0

109

покеж-ка, ну давай, покеж-ка! ну давай напугай же меня! ну! истезай же меня своей страшной прозой =))))

0

110

БОЙСЯ!!!

Код:
procedure TCommonForms_editorext.RunForm;          {RUNFORM}
var
  xmld:TXMLDocument;
  i,j:integer;
  pnl:TCommonComponents_PANEL;
  find:boolean;
begin
  xmld:=TXMLDocument.Create(self);
  xmld.XML.Text:=self.createscript;
  xmld.Active:=true;
  if lowercase(vartostr(xmld.DocumentElement.Attributes['type']))='tree' then
  begin
    self.FormTree(self.cf_editorext_tree,vartostr(xmld.DocumentElement.Attributes['idfield']),vartostr(xmld.DocumentElement.Attributes['basetable']),vartostr(xmld.DocumentElement.Attributes['captionfield']),vartostr(xmld.DocumentElement.Attributes['parentfield']),vartostr(xmld.DocumentElement.Attributes['addsql']));
  end;
  for i:=0 to fulltree.Fields.Count-1 do
  begin
    find:=false;
    for j:=0 to xmld.DocumentElement.ChildNodes.Count-1 do
    begin
      if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['field']))=lowercase(fulltree.Fields.Item[i].Name) then
      begin

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('type') = true then
        begin
          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='cbx' then
          begin
          //cbx
            pnl:=TCommonComponents_PANEL_COMBOBOX.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;

            TCommonComponents_PANEL_COMBOBOX(pnl).rs:=dbform.SendSQLCommand(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_query']),'false',dbform.database,'query','true','',self);
            TCommonComponents_PANEL_COMBOBOX(pnl).outfield:=lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_outfield']));
            TCommonComponents_PANEL_COMBOBOX(pnl).itemsfield:=lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_itemsfield']));
            TCommonComponents_PANEL_COMBOBOX(pnl).LoadBox;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;

          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='checkbox' then
          begin
          //cbx
            pnl:=TCommonComponents_PANEL_CHECKBOX.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;

          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='edt' then
          begin
          //edt
            pnl:=TCommonComponents_PANEL_EDIT.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;
        end;


        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('aliase') = true then
        begin
          if pnl <> nil then pnl.lbl.Caption:=vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['aliase'])
        end;

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('enabled') = true then
        begin
          if pnl <> nil then
          begin
            if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['enabled']))='true' then
            begin
              pnl.Enabled:=true
            end
            else
            begin
              pnl.lbl.Font.Style:=[];
              pnl.Enabled:=false;
            end;
          end;
        end;

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('visible') = true then
        begin
          if pnl <> nil then
          begin
            if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['visible']))='true' then
              pnl.Visible:=true
            else
              pnl.Visible:=false;
              //showmessage(xmld.DocumentElement.ChildNodes.Nodes[j].XML);
          end;
        end;
        find:=true;
      end;
    end;
    if find=false then
    begin
      pnl:=TCommonComponents_PANEL_EDIT.Create(self.clpanel);
      pnl.Name:=fulltree.Fields.Item[i].Name;
      pnl.Parent:=self.clpanel;
      pnl.lbl.Caption:=fulltree.Fields.Item[i].Name;
      pnl.Caption:='';
      pnl.Show;
    end;
  end;
  xmld.Active:=false;
  xmld.Free;

end;

0

111

ААААААААААААААААААА!!!!!
ПЛЯЯЯЯЯ!!!
Не хочу курить! Не буду!  это же СИОщина !!!

0

112

Так-то!

0

113

сомневаетесь за кого голосовать?
А вот вам программка!

0

114

кстати,Гест,сейчас вспомнила,когда ты про Маршака сказал-я очень-очень-очень советую вам с Ксю почитать Чуковского "от 2 до 5"
во-первых-эта книжка дегко читается
а во-вторых -вы в очередной раз убедитесь,что ваш ребенок гений и многое в его речи станет понятней:)это просто замечательная книга!

ах да и в -третьих-смеятся будете до слез!:)

точка, спасибо, учтём, если что ещё раз переспросим.

Новые постановки...

0

115

Сио, вот тебе, это круче травы! Лёгкие не испортишь!

0

116

УниверСам =)

0

117

и конечно же, как тут обойдёшься без деликатесов?!

0

118

обозначения смайлов

0

119

Анимированное изображение

0

120

чего только не прочитаешь на киосках

0


Вы здесь » kocforum » Smile! » fun pix