Ændrer musemarkør

Vil du have pilen(markøren) til at automatisk skifte til en pil med et 'K' på, når du klikker i kalenderen?!? Det tror jeg ikke du kan, så skal der i hvert fald være lavet et eller andet program til det.
Men du skal jo have den markør med pilen & K'et på for at kunne skifte til den.

Hvis den markør du taler om er i kalenderen, så kan du jo agså bare skifte til den, så du har den som standart.. Det andet er i hvert fald ikke muligt, med standart windows programmer.

//nhj

Man vælger fra en liste, hvad der skal indsættes i kalenderen - eks en kommentar. Herefter skulle markøren ændre udseende til et 'k'. Når man så klikker i kalenderen indsættes et 'k' (kommentar) - markøren ændres ved at klikke på et andet element i listen (eks. 'e' eftermiddagsvagt).

Niels

Du kan ikke indsætte et k som bogstave ved siden af din musemarkør. Du er nød til at tegne det som en slags Bitmap. En muse cursor ligger i et format der hedder TCursor (meget passende) og er meget nært beslægtet med en TBitmap.

Jeg skal prøve at lede efter et program der kan lave dem .... Ellers må man jo selv skrive et.

Jens B

const
    crMyFancyCursor = 5;
procedure TForm1.ListBox1Click(Sender: TObject);

var
    str : string;
    ii : TIconInfo;
    maskBM, colorBM : TBitmap;
begin
    str :=  ListBox1.Items[ListBox1.itemindex];
   
    maskBM := TBitmap.Create;
    with maskBM do begin
        Height := 32;
        Width := 32;
        DrawIcon(Canvas.handle, 0, 0, LoadCursor(0, IDC_ARROW));
        with Canvas do begin
          Font.Style := [fsBold];
          Brush.Color := clBlack;
          TextOut(0,15,str);
        end;
    end;
    colorBM := TBitmap.Create;
    with colorBM do begin
        Height := 32;
        Width := 32;
        DrawIcon(Canvas.handle, 0, 0, LoadCursor(0, IDC_ARROW));
        with Canvas do begin
          Font.Style := [fsBold];
          Brush.Color := clWhite;
          TextOut(0,15,str);
        end;
    end;

    with ii do begin
        fIcon := false;
        xHotspot := 0;
        yHotspot := 0;
        hbmMask := maskBM.Handle;
        hbmColor := colorBM.Handle;
    end;
    Screen.Cursors[crMyFancyCursor] := CreateIconIndirect(ii);
    Screen.Cursor := crMyFancyCursor;
    maskBM.Free;
    colorBM.Free;
end;

Hej kloge hoveder :o)
- tak for dit hint borisholt

Nu er jeg kommet så langt :o))))))))

Min cursor er dog med sort baggrund - hvordan laver jeg det om ???
desuden leder jeg efter en forklaring på, hvorfor der skal tegnes 2 bitmaps til en cursor ('AND bitmask' og 'XOR bitmask')

Please Help Niels

lukker