TMenuItem.Checked ses ikke når TPopupMenu.Images er sat

Hej Hrc, tror ikke du kan gøre begge dele samtidig, uden at tegne selv. Dette gælder jo også for TMainMenu. Alternativt kan du jo lave elementerne som sub-menuer, som så har de egenskaber med check-marks (altså til hvert emne).

//mbs

[MENU]
  [ELEMENT]
    [CHECK-ITEM 1]
    [CHECK-ITEM 2]

Jeg kan godt se at pladsen mangler. Der er ikke 16 pixels til ikonen og 16 til checkboksen. Regner ikke med at checktegnet vil kunne ligge over grafikken (havde ellers været elegant)

  And now for something completly different...

Gik ind på din side og blev nødt til at kommentere (har bare ikke lyst til at registre) den IsNumeric (I Delphi delen) som en eller anden har lagt ind. Den kunne være pænere (formateret korrekt):

function isNumeric(theStr: string): boolean;
var
  i: integer;
  ch: byte;
begin
  result := true;
  i := 0;
  if theStr = '' then
    result := false
  else
    while i < length(theStr) do
    begin
      inc(i);
      ch := ord(theStr[i]);
      if (ch < 48) or (ch > 57) then
      begin
        result := false;
        exit;
      end;
    end;
end;

... er en noget kluntet fremgangsmåde. Denne synes jeg er pænere:

function IsNumeric(const aString: string): boolean;
var
  i: integer;
  Lgd: integer;
begin
  Lgd := length(aString); // Burde der trimmes først?
  result := Lgd > 0; i := 0;
  while (i < Lgd) and result do
  begin
    inc(i);
    result := aString[i] in ['0'..'9'];
  end;
end;

... skal der tjekkes for negative og decimaltal bliver den lidt udbygget:

function IsNumeric(const aString: string): boolean;
var
  ch: char;
  i: integer;
  Lgd: integer;
  MinusCount: integer;
  DecimalSeparatorCount: integer;
begin
  MinusCount := 0;
  DecimalSeparatorCount := 0;
  Lgd := length(aString); // Burde der trimmes først?
  result := Lgd > 0; i := 0;
  while (i < Lgd) and result do
  begin
    inc(i);
    ch := aString[i];
    result := ch in ['0'..'9',DecimalSeparator,'-'];
    inc(MinusCount,integer(ch = '-'));
    inc(DecimalSeparatorCount,integer(ch = DecimalSeparator));
  end;
  if result then
    result := ((MinusCount = 0) or (aString[1] = '-'))
          and (DecimalSeparatorCount in [0,1]);
end;

Endelig må jeg erkende at der allerede er en funktion der klarer alt dette: Math.IsNAN :-)

Hej, alt hvad der ligger på min side er gammelt materiale. Er blevet noget bedre i mellemtiden. Takket være dig bla.. :) Jeg er ved at lave en server i Delphi, og når den bliver klar, opdaterer jeg indholdet af hjemmesiden.

Mht til menuerne, synes jeg også engang at have set en "down" propery, men har ikke lige kunne finde den i main/popup p.t.

Det med isnumeric gør jeg nu således:

function isBetween(const i,a,b:str):boolean;    //bruger overload for int mm.
begin result:=(i>=a) and (i<=b) end;

function isNumericChar(const ch:sChar):boolean; 
begin result:=isBetween(ch,'0','9') end;

function isNumeric(const s:str):boolean;
var i:smallInt;
begin clr(result);if empty(s) then exit;
for i:=1 to length(s) do if not isNumericChar(s[i]) then exit;result:=true
end;

og sChar er:

type
sChar=string[1];

Lgd := length(aString); // Burde der trimmes først?

Der bør ikke trimmes her, fordi lgd er en "intern" variabel af funktionen, og vil afgøre funktionens resultat her udfra. Hvis resultatet er TRUE baseret på det trim, vil man møde en intToStr konverteringsfejl bagefter..

Ved godt at min "nye" måde at bruge isNumeric, stadig ikke klarer decimaltal og tal mindre end nul, men hvis man kun bruger til funktionen til heltal over nul, er det stadig en ret hurtig måde at gøre det på. De få gange jeg har haft behov for at bruge funktionen i forbindelse med de andre typer tal, har jeg benyttet replaceChar (hjemmelavet) og removeLeading(DASH) / removeTrailing (også hjemmelavet)

mvh mbs

p.s. hjemmelavet fordi jeg først opdagede lang tid senere at der ligger nogle sammen med indy som kan det samme, men de hjemmelavede har kørt godt nok til at de er beholdt

mbsnet: Vil du have points som tak for hjælpen?

Nej tak, håber at kunne hjælpe bedre en anden gang.

OK. Jeg lukker nu.