Farver på TMainMenu

Glemte lige at sige hvis det er et nyt komponent skal det være freeware.

<MB>

Du skal du skal skrive din kode i OnPaint eventet .... der kan du lave om på ALT.

jens B

Hmm lyder okey men hvad er koden så lige :)

<MB>

Din mainMenu skal have flaget OwnerDrawed sat til true.

Så skal du give alle dine items et OnAdvancedDrawItem event ...

Det kan fx. se således ud :

procedure TForm1.Item11AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
ACanvas.Brush.Color := clRed;
ACanvas.FillRect(ARect);
end;


så skal du bare slev tegne det hele, du ved tekst og den slags ..... du ved efter WYDIWYG (What You Draw Is What You Get)

Eller som de siger i fjernsynet : Slib med sandpapir korn 120, smør hele molevitten ind i Lindolie og lad det stå natten over .....

Jens B

Hmm min TmainMenu har kun en OnChange event så det er jo ikke lige så fedt

<MB>

DET var dine MENU ITEMS der skulle have et OnAdvancedDrawItem event ikke din main menu !

\"Så skal du give alle dine items et OnAdvancedDrawItem event ...\"

prøv nu lige at læse / bruge koden inden du afviser mit svar .....

Jens B

lad os se den gider dem godt nok en ny farve men fjerner teksten og laver kun noget af det rødt
det skal jo lige som være det hele der skal skifte farve den ser jo temliggrimt ud når det kun er noget af det
men kunne da bruge det svar til noget men hvis du ved hvordan jeg får hele mainmenuen til at sifte farve vil jeg gerne vider det

<MB>

og jepz har set du har skrevet jeg selv skal tegne det hene men har ingen ide om hvordan :)