La boîte à prog: octobre 2002

mercredi 16 octobre 2002

Comment avoir la ligne courante dans un memo?

procedure TForm1.MemExpKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  LigneNum: LongInt;
begin
  if (Key=VK_UP)or(Key=VK_DOWN) then
  begin
    LigneNum:=MemExp.Perform(EM_LINEFROMCHAR, MemExp.SelStart, 0);
    Label1.Caption:='Line - '+IntToStr(LigneNum+1);
  end;
end;

dimanche 6 octobre 2002

Comment créer un composant à l'exécution

procedure TForm1.Button1Click(Sender: TObject);
var
  Button: TButton;
begin
  Button:=TButton.Create(Form1);
  try
    with Button do 
    begin
      Parent:=Self;
      Left:=Random(Form1.ClientWidth-Width);
      Top:=Random(Form1.ClientHeight-Height);
      Caption:='Button';
    end;
  except
    Button.Free;
  end;
end;

mardi 1 octobre 2002

Quel librairie ce programme utilise?

Un gros programme risque d'avoir une longue liste de librairie... ci-dessous seul quelques fichiers sont affichés

ldd /opt/kde3/bin/kopete
linux-gate.so.1 =>  (0xffffe000)
libkopete.so.1 => /opt/kde3/lib/libkopete.so.1 (0x4002e000)
libkabc.so.1 => /opt/kde3/lib/libkabc.so.1 (0x40125000)
libkutils.so.1 => /opt/kde3/lib/libkutils.so.1 (0x401dd000)
libkio.so.4 => /opt/kde3/lib/libkio.so.4 (0x40242000)
libkdeui.so.4 => /opt/kde3/lib/libkdeui.so.4 (0x40583000)
libkdecore.so.4 => /opt/kde3/lib/libkdecore.so.4 (0x40860000)
libdcop.so.4 => /opt/kde3/lib/libdcop.so.4 (0x40aa2000)