Re: A Lazarus IDE challenge

[Alex Kovacic]

-

SCREENSHOT:http://mxs.bergsoft.net/index.php
DOWNLOAD SOURCE: http://mxs.bergsoft.net/files/ribbons/MBRibbon_v0-24.zip 
alex.
At 09:46 PM 13/12/2007 +0100, you wrote:


On Thu, 13 Dec 2007, Graeme Geldenhuys wrote:

 Oh, here is the link to that Ribbon Test App.
 
 http://mxs.bergsoft.net/files/ribbons/RibbonTestApp.zip

Don't they have screenshots ?

Michael.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Alex Kovacic(PTC,HPTC,BSc,MSc)
FISH Lab
CYTOGENETICS UNIT,
SEALS,Level 4, Campus Centre,
Prince Of Wales Hospital,
RANDWICK, NSW, 2031,
AUSTRALIA,
Tel: (61) (02) 9382 9168
Fax: (61) (02) 9382 9157
email1:[EMAIL PROTECTED]
email2:[EMAIL PROTECTED]

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] Contribute Contactless Measurement Tool

[Alex Kovacic]

There is a standard for  UNIVERSAL CCD CAMERA DLL DRIVER INTERFACE (writen
in delphi. This document describes a software library created to interface
CCD cameras and client control software.(windows).This standard defines a
low level camera control library that is not in charge of things like human
interface, graphics, etc; this will be taken care of by the control
software. (A port for lazarus would be beneficial)...

If this is useful let me know..? (send me a email and I will forward this
to you) (source for the library is also available - GPL?)..
ALEX


At 05:19 PM 25/09/2007 +0400, you wrote:
I'm sorry but it seems the project will be still far from what was 
declared for a long time.
I cannot to achieve suitable work using neither VideoForLinux nor 
VideoForWindows API
because they are too primitive.
They are not allow to change gain and exposure of webcamera. Without 
this adjustments
i cannot get reliable LED detection without noise.
VideoForLinux driver is bad twice: it's driver gives sometimes slided 
image from my Logitech QuickCam.
At the same time this cam works OK via VideoForWindows.
VideoForLinux2 driver doesn't see this cam at whole.
Creative VoiceCam hasn't driver neither for VideoForLinux nor for 
VideoForLinux2.
So i forced to look for suitible desicion using M$ DirectShow...
Reality brings me back to Windowse...

//--
//aka skywriter

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Alex Kovacic(PTC,HPTC,BSc,MSc)
FISH Lab
CYTOGENETICS UNIT,
SEALS,Level 4, Campus Centre,
Prince Of Wales Hospital,
RANDWICK, NSW, 2031,
AUSTRALIA,
Tel: (61) (02) 9382 9168
Fax: (61) (02) 9382 9157
email1:[EMAIL PROTECTED]
email2:[EMAIL PROTECTED]

-

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] MRU (most recently used) component

[Alex Kovacic]

  with TRegistry.Create do
  try
RootKey := HKEY_CURRENT_USER;
if OpenKey(FRegistryPath, True) then
begin
  //delete old mru
  i:=1;
  while ValueExists('MRU'+IntToStr(i)) do
  begin
DeleteValue('MRU'+IntToStr(i));
Inc(i);
  end;

  //write new mru
  for i := 0 to -1 + FItems.Count do
WriteString('MRU'+IntToStr(i+1),FItems[i]);
  CloseKey;
end;
  finally
Free;
  end;
end; (*SaveMRU*)


procedure TadpMRU.ItemsChange(Sender: TObject);
var
  i: Integer;
  NewMenuItem: TMenuItem;
  FileName: String;
begin
  if ParentMenuItem  nil then
  begin
ClearParentMenu;
for i := 0 to -1 + FItems.Count do
begin
  if ShowFullPath then
FileName := StringReplace(FItems[I], '', '', [rfReplaceAll, 
rfIgnoreCase])
  else
FileName := StringReplace(ExtractFileName(FItems[i]), '', '', 
[rfReplaceAll, rfIgnoreCase]);

  NewMenuItem := TMRUMenuItem.Create(Self);
  NewMenuItem.Caption := Format('%s', [FileName]);
  NewMenuItem.Tag := i;
  NewMenuItem.OnClick := DoClick;
  ParentMenuItem.Add(NewMenuItem);
end;
  end;
end; (*ItemsChange*)

procedure TadpMRU.ClearParentMenu;
var
  i:integer;
begin
  if Assigned(ParentMenuItem) then
for i:= -1 + ParentMenuItem.Count downto 0 do
  if ParentMenuItem.Items[i] is TMRUMenuItem then
ParentMenuItem.Delete(i);
end; (*ClearParentMenu*)

procedure TadpMRU.DoClick(Sender: TObject);
begin
  if Assigned(FOnClick) and (Sender is TMRUMenuItem) then
FOnClick(Self, FItems[TMRUMenuItem(Sender).Tag]);
end;(*DoClick*)

procedure TadpMRU.SetParentMenuItem(const Value: TMenuItem);
begin
  if FParentMenuItem  Value then
  begin
ClearParentMenu;
FParentMenuItem := Value;
ItemsChange(Self);
  end;
end; (*SetParentMenuItem*)

end. (*adpMRU.pas*)

{



Alex Kovacic(PTC,HPTC,BSc,MSc)
FISH Lab
CYTOGENETICS UNIT,
SEALS,Level 4, Campus Centre,
Prince Of Wales Hospital,
RANDWICK, NSW, 2031,
AUSTRALIA,
Tel: (61) (02) 9382 9168
Fax: (61) (02) 9382 9157
email1:[EMAIL PROTECTED]
email2:[EMAIL PROTECTED]